Anhang an Dateiname nur wie?

[delpher]

Ne will keine zusätzlichen Dateien habe das jetzt so gelöst

Code:

repeat
  if fileexists('c:\test'+inttostr(i)+'.jpg') then
    i:=i+1;
  until not fileexists('c:\test'+inttostr(i)+'.jpg');
  FStream := TFileStream.Create('c:\test'+inttostr(i)+'.jpg', fmCreate or fmShareDenyNone);

Klappt einwandfrei!

Danke an alle