Zitat von
Radon:
Mit der
Unit "UnitADTL" habe ich schon simple lauffähige Programme erstellt im Unterricht (die
Unit ist sogar vom Lehrer) daher denke ich nicht dass der Fehler dort liegt.
Auwa; schönen Gruß an deinen Lehrer aber die
Unit ist doch sehr unsauber!
Hier ein Ausschnitt:
Delphi-Quellcode:
var Liste: TListe; // Globale Variable ohne Sinn
...
procedure TListe.Naechstes;
begin
if not Liste.AmEnde then FAktuell:= FAktuell.GetNext;
// ^^^^^ GANZ schlecht, LÖSCHEN
end;
Die Klasse TListe funktioniert nur dann, wenn mit der globalen Variablen
Liste gearbeitet wird.
Wenn du dir dein eigenes Objekt von TListe anlegst, dann -> Cash.
Abhilfe: globale Variable "Liste" löschen
Auch sonst ist das ganze Design eher schlecht...
PS: bitte nur den Sourcecode als Download anbieten, die vielen DCUs und *.~ kosten nur unnötig Bandbreite.
PPS:
Delphi-Quellcode:
procedure TIniHandler.IniEinlesen;
var
ini: TIniFile;
sTempDat, sTempSectName: string;
n: integer;
begin
// lDatensaetze.Create; // FALSCH !
lDatensaetze:= TListe.Create; // Richtig