lineare listen

[MisterNiceGuy]

Hier erstmal die richtig funktionierende Version. Du willst laden und speichern? Ich schreib dir die Procedures nochmal rein:

Delphi-Quellcode:

procedure Tliste.laden(dateiName:string);
var editstr,labelstr:string;
begin
  assignfile(datei,dateiname);
  {Die Prozedur AssignFile weiste einer Dateivariablen den Namen einer externen
  Datei zu.}
  reset(datei);
  AlleLoeschen;
  anzahl:=0;
  {Die Prozedur Reset öffnet eine vorhandene Datei zum Lesen}
  {Hier fehlt eine Anweisung zum Löschen ev. bestehender Karten}
  while not eof(datei) do {end of file}
    begin
       readln(datei,editstr);  {Lesen aus der Textdatei}
       readln(datei,labelstr);

       HintenEinfuegen(editstr);         {Karte erzeugen}
       aktuell.LKarte.caption:=LAbelstr;     {Label beschreiben}
     end;
     if aktuell<>nil then aktuell.zeige;
     closefile(datei); {Die Prozedur CloseFile beendet die Zuordnung
    zwischen einer Dateivariablen und einer externen Datei (Delphi)}
end;

Delphi-Quellcode:

procedure Tliste.speichern(DateiName:string);
var temp:TKarte;
begin
  assignfile(datei,dateiname);
  {Die Prozedur AssignFile weiste einer Dateivariablen den Namen einer externen
  Datei zu.}
  rewrite(datei);
  {Die Prozedur Rewrite erstellt eine neue Datei und öffnet sie anschließend}
  temp := erster;
  while temp<>nil do
    begin
       writeLn(datei,temp.EKarte.text);
       writeln(datei,temp.LKarte.caption);
       {Writeln schreibt ein Zeilenendezeichen in eine Textdatei}
       temp:=temp.naechster;
       end;
    closefile(datei); {Die Prozedur CloseFile beendet die Zuordnung
    zwischen einer Dateivariablen und einer externen Datei (Delphi)}
end;

Hoffe das hilft dir.