Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
25. Mär 2007
Habe gerade noch etwas hinzugefügt. Getestet habe ich diese Funktion allerdings nicht.
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
25. Mär 2007
Nur schnell hingetippt:
function PathIncluded(Path1, Path2: string; var MainPath: string): Boolean;
begin
Path1 := IncludeTrailingBackslash(Path1);
Path2 := IncludeTrailingBackslash(Path2);
if Length(Path1) < Length(Path2) then
begin
if Pos(Path1, Path2) = 1 then
Forum: Object-Pascal / Delphi-Language
Delphi
by Matze,
25. Mär 2007
Hi
Das könntest du mit Pos lösen.