Zeitabstand zwischen erstellen und Inhalt abspeichern?

**julchen**

Hallo,

ich möchte Text in einer Datei abspeichern und beides soll mit einem Knopfdruck erledigt werden.
Die Datei wird erstellt, aber der Inhalt nicht in ihr gespeichert und das Programm stürzt beim Speichern ab.
Was mache ich da falsch?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button4Click(Sender: TObject);

var

        i,x: integer;

        f: String;

begin

        If not FileExists('0000.html') then

        begin

          FileCreate('0000.html');

          RichEdit1.Lines.SaveToFile('0000.html');

        end

          else

        begin

          x := 0;

          for i := 0 to CountFiles(ExtractFilePath(Application.ExeName)) - 1 do

          begin

            inc(x);

            f := Format('%.4d', [x]);

            FileCreate(f + '.html');

            RichEdit1.Lines.SaveToFile(f + '.html');

          end;

        end;

end;

Zeitabstand zwischen erstellen und Inhalt abspeichern?

Zeitabstand zwischen erstellen und Inhalt abspeichern?

Forumregeln