Pressemitteilungs-Tool

[Erutan]

Hi Volker,

das geht in dem Fall leider nicht...denke ich jedenfalls. Denn aus der einen Textdatei werden mehrere EditFelder und Memofelder "bestückt".

Was ich pepostet hatte war nur ein Ausschnitt. Das Ganze sieht so aus:

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
var
 Datei: TextFile;
begin
  if SaveDialog1.Execute
  then
  AssignFile(Datei, SaveDialog1.FileName);
  Rewrite(Datei);
  WriteLn(Datei, EditName.Text);
  WriteLn(Datei,EditEmail.Text);
  WriteLn(Datei,EditPassword.Text);
  WriteLn(Datei,EditTelefon.Text);
  WriteLn(Datei,EditUeberschrift.Text);
  WriteLn(Datei,EditBeschreibung.Text);
  WriteLn(Datei,EditAnmerkungen.Text);
  WriteLn(Datei,MemoAdresse.Text);
  CloseFile(Datei);
end;

Ich habe mir jetzt vorübergehend damit beholfen, für jedes Momofeld einen eigenen Speicherknopf anzulegen. Aber das ist nicht gerade elegant und nimmt viel Platz weg.