Hallo, bei dem Versuch, mehrere Memofelder nach der Methode in einem älteren Delphibuch in eine Datei zu speichern, komme ich nicht weiter.
Delphi-Quellcode:
procedure TForm1.Button16Click(Sender: TObject);
var
Datei: TextFile;
text_datei: TextFile;
text_zeilen: string;
zeilen_num: Integer;
begin
if SaveDialogAlles.Execute then
AssignFile(Datei, SaveDialogAlles.FileName);
Rewrite(Datei);
WriteLn(Datei, EditName.Text);
WriteLn(Datei,EditEmail.Text);
WriteLn(Datei,EditTelefon.Text);
WriteLn(Datei,EditAgentur.Text);
WriteLn(Datei,EditFirma.Text);
WriteLn(Datei,EditWebseite.Text);
WriteLn(Datei,EditUsername.Text);
WriteLn(Datei,EditPassword.Text);
//WriteLn(Datei,MemoKontaktdaten.Lines);
//WriteLn(Datei,MemoPortrait.Lines);
//--------------Test----------------------
for zeilen_num := 0 to MemoKontaktdaten.Lines.Count -1 do
begin
//liest geänderte Zeilen in Variable
text_zeilen := IntToStr(zeilen_num) + MemoKontaktdaten.Lines(zeilen_num);
//schreibt in Datei Zeile für Zeile
WriteLn(datei,text_zeilen);
end; //for end
//------------Test Ende---------------------
CloseFile(Datei);
end;
Der Complier stoppt bei
MemoKontaktdaten.Lines(zeilen_num);
mit dem Curser zwischen ( und zeilen_num und sagt Missing Operator oder Semicolon.
Das ist eigentlich schon der x-te Versuch, Memofelder zusammen mit Editfeldern in eine Datei zu speichern. Die beiden auskommentieren Zeilen darüber wären mir mit Abstand am liebst. Geht aber nicht.
Hat jemand eine Idee wie ich ähnlich einfach den Inhalt, zusammen mit den anderen Inhalten, abspeichern kann?
Viele Grüße
Erutan