Problem bei Datei-Erstellung

[divBy0]

Hi!

Anstatt

Delphi-Quellcode:

If not Fileexists(inttoStr(x) + SaveDialog1.Filter) then
          begin
            Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);
          end
          else
            inc(x);
            Memo1.Lines.SaveToFile(IntToStr(x) + SaveDialog1.Filter);

solltest du

Delphi-Quellcode:

If not Fileexists(inttoStr(x) + '.DeineEndung') then
          begin
            Memo1.Lines.SaveToFile(IntToStr(x) + '.DeineEndung');
          end
          else
          begin
            inc(x);
            Memo1.Lines.SaveToFile(IntToStr(x) + '.DeineEndung');
          end;

versuchen.