datei neu speichern, wenn nicht vorh.

[Muetze1]

Moin!

Zitat von Christian Seehase:

Moin Joko,

wenn Du mal den Code von Dir und jAcK oRsEn vergleichst, wirst Du feststellen, dass er ein end hinzugefügt hat.
Einfach mal abzählen.

Du willst es uns nicht glauben oder was?

Dein Code, Original von deinem letzten Code Postingnur mal umformatiert)

Code:

procedure Thaupt.generate_buttonClick(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;

Und hier nochmal die funktionierende Variante mit dem hinzugefügten End:

Code:

procedure Thaupt.generate_buttonClick(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;

MfG
Muetze1