Neuer Record Eintrag

[otto4711]

Hallo,
würde in meinem Programm gerne einen neuen Record eintrag hinzufügen.
Da ich aber Anfänger bin habe ich mit Records keinerlei Erfahrung.
Habe es hiermit versucht:

Code: Alles auswählen

 type
  TPerson = Record
    Name : string[40];
    Datum  : string[11];
 var
    Datei : File of TPerson;
    Person : TPerson;
 
procedure Record_Schreiben;
begin
  Person.Name := Form1.Memo2.Lines[1];
  Person.Datum  := Form1.Memo2.Lines[2];
 
  AssignFile(Datei, 'Test.txt');
  Append(Datei);
  Write(Datei, Person);
  CloseFile(Datei);
end;

Bekomme jedoch bei Append(Datei); die Fehlermeldung Got "File Of TPerson" expected "Text".
Ersetze ich Append durch ReWrite klappt es, löscht dann jedoch die anderen Einträge.
Kann mir mal jemand auf die Sprünge helfen , was ich hier falsch mache?

Danke schon einmal.
gruß Otto

[wp_xyz]

Deine Fragen beantwortet die Lazarus-Hilfe:
http://lazarus-ccr.sourceforge.net/docs ... ppend.html
http://lazarus-ccr.sourceforge.net/docs ... reset.html

[m.fuchs]

Ersetze

Code: Alles auswählen

Append(Datei);

durch

Code: Alles auswählen

Reset(Datei);
Seek(Datei, FileSize(Datei));

Mit Reset öffnest du die Datei ohne sie zu überschreiben und mit dem Seek-Statement "wanderst" du an das Ende der Datei. Danach werden beim Aufruf von Write weitere Daten angefügt.

[otto4711]

Danke