Liste mit ADTL, Liste lässt sich nicht erstellen

[shmia]

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