datei neu speichern, wenn nicht vorh.

[jAcK oRsEn]

bei mir klappt es ohne probleme

Delphi-Quellcode:

var
  Form1: TForm1;
  sl : tstringlist;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not FileExists('Content.txt') then
    begin
      sl:=TStringList.Create;
      try
      sl.Add('Content.TXT wurde nicht gefunden!');
      sl.Add('Datei neu erzeugt');
      sl.SaveToFile('Content.TXT');
      finally
      sl.free;
      memo1.clear;
      memo1.Lines.LoadFromFile('Content.TXT');
    end;
end;
end;