|
(Moderator)
Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
Delphi 2006 Professional
|
Re: Freien Dateinamen finden
25. Okt 2007, 10:57
kurz und bündig:
Delphi-Quellcode:
var
i : Integer;
begin
i = 1;
while FileExists('c:\' + inttostr(i) + '.txt') do
inc(i);
showmessage('Freier Dateiname: ' + 'c:\' + inttostr(i) + '.txt');
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
|