Verzeichnisoperationen

[Poring]

Delphi-Quellcode:

function GetPreviousDir(CurrentPath: string): string;
begin
  Result := ExtractFilePath(Copy(CurrentPath, 1,
    Length(CurrentPath) - Length(ExtractFilename(CurrentPath)) - 1));
end;


DeleteFile(EGetPreviousDir + 'test.txt');

Wäre dies dann so?