Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Datei umbenennen in "freien" Dateinamen

**Relicted**

hi,
wie wärs hiermit?

Delphi-Quellcode:

			i := 0;

while Fileexists( sOldname + IntToStr( i ) ) do

  inc(i);

RenameFile( sOldName, sOldName+ IntToStr( i ) );

gruß
reli

Relicted Registriert seit: 24. Jan 2006 Ort: Iserlohn 646 Beiträge Delphi 10.4 Sydney	#4 Re: Datei umbenennen in "freien" Dateinamen 27. Jan 2009, 14:08 hi, wie wärs hiermit? markieren Delphi-Quellcode: i := 0; while Fileexists( sOldname + IntToStr( i ) ) do inc(i); RenameFile( sOldName, sOldName+ IntToStr( i ) ); gruß reli
	Zitat