Datei umbenennen, pfad einlesen!

[Matze]

Das gibt aber eine böse Schleife und die Screenshots sind vermutlich weitestgehend identisch.

Ich habe noch gar nicht verstanden, was gemacht werden soll. Mit den Pfad-Funktionen kannst du die deinen Dateinamen in einem Pfad ändern lassen:

Delphi-Quellcode:

function ChangeFilename(Path: string; NewFilename: string): string;
var
  FileExtension: string;
  FilePath: string;
begin
  FilePath := ExtractFilePath(Path);
  FileExtension := ExtractFileExt(Path);

  Result := FilePath + NewFilename + FileExtension;
end;

Natürlich geht's auch kürzer und evtl. auch auf ganz anderem Weg:

Delphi-Quellcode:

function ChangeFilename(Path: string; NewFilename: string): string;
begin
  Result := ExtractFilePath(Path) + NewFilename + ExtractFileExt(Path);
end;

Sonst schaue dir einfach mal folgende Funktionen an, dann klappt das schon:

ExtractFilename
ExtractFilePath
ExtractFileExt
IncludeTrailingPathDelimiter

evtl. auch

ChangeFileExt

Wobei ChangeFileExt keine allzu gute Funktion ist bzw. nur bedingt funktioniert.

Grüße, Matze

Edit: Gut, dann hat sich das Thema ja erledigt. Wobei rauchen nicht so sinnvoll ist (ist ein anderes Thema ). *stolzer Nichtraucher ist*