Najut!!
Ich werde mein neues Wissen, das für die meisten Delphiprogrammierer zu den einfachen Grundlagen gehören wird, hier kundtun, wenn das Programm ganz fertig ist.
Das Speichern gelingt schon, nur beim Laden entsteht noch ein nerviger Fehler:
Delphi-Quellcode:
procedure Sortliste.laden(dtname:string);
var daten:lsatz; f:file of lsatz; lkontakt:kontakt;
begin
assignFile(f,dtname);
reset(f);
while (not eof) do
begin
read(f,daten);
lkontakt:=kontakt.init(daten.lname,daten.lemail);
self.sortiertEinfuegen(lkontakt);
end;
end;
Sobald ich das Laden ausführe und ich per Opendialog eine Datei ausgewählt habe und diese öffne, öffnet er diese Prozedur und zeigt mit dem grünen Pfeil auf die "while (not eof) do"-Zeile.
Wie man hier erkennt versuche ich den in die Datei geschriebenen Record wieder herauszulesen, in einen Kontakt zu schieben und dann wieder in meine Liste einzureihen.
Anschließend soll in der Textdatei zum nächsten Record gesprungen werden um den Vorgang solange zu wiederholen, bis ich am Ende der Datei angekommen bin (EndOfFile).
Die Fehlermeldung lautet:
Im Programm ... ist eine
Exception der Klasse EInOutError aufgetreten. Meldung: 'E/A-Fehler 6'. Prozess wurde angehalten. ....
Auch hier wäre ich für Tipps dankbar.
Wenn ich die gesamten Record und Laden / Speichern - Fehler überbrückt habe, dann werde ich sowieso für die anderen Schüler eine Dokumentation vielleicht in Form einer pps anlegen.
Die kann ich dann ins Netz stellen.
mfg