Also erstmal bin ich über gegensätzliche APIs der SysUtils und IOUtils gestolpert.
Ich finde es bissl Krank, dass die "alte" und "neue"
API komplett entgegen arbeiten und keiner von Beiden bei GetExt und ChangeExt jeweils gleich arbeiten.
> Mal inkl. Punkt und mal exclusive und die andere
API andersrum
Vorhin stolperte ich über eine Endloschschleife im Debugger, denn TDirectory.Exists(Result) liefert dort immer True, auch wenn keine Datei/Verzeichnis mit diesem Namen existiert.
Und warum kann man nicht einfach fragen "Existiert" irgendwas?
FileExists liefert False, wenn ein Verzeichnis existiert und DirExists bei einer Datei.
Hier eine kleine und inzwischen gebugfixte Beispiel-Funktion, wo ich die Fails als Doku dringelassen hab.
Delphi-Quellcode:
function CreateUnusedFileName(Filename: string): string;
var
Count: Integer;
begin
Result := Filename;
Count := 1;
//while TFile.Exists(Result) or TDirectory.Exists(Result) do begin // TDirectory.Exists liefert im Debugger immer True, egal ob was existiert oder nicht
while GetFileAttributes(PChar(Result)) <> INVALID_FILE_ATTRIBUTES do begin // and not (GetLastError in [ERROR_FILE_NOT_FOUND, ERROR_PATH_NOT_FOUND, ERROR_INVALID_NAME])
Inc(Count);
{ TPath.ChangeExtension mit Punkt ChangeFileExt ohne Punkt
TPath.GetExtension ohne Punkt ExtractFileExt mit Punkt }
//Result := TPath.ChangeExtension(Filename, '') + Format('~%d', [Count]) + TPath.GetExtension(Filename);
Result := ChangeFileExt(Filename, '') + Format('~%d', [Count]) + ExtractFileExt(Filename);
end;
end;