type
TListenStruktur = class (TObject)
private
hListe: TList;
AktuellePosition: Integer;
...
and a function
function TListenStruktur.GetElement: TObject;
begin
if not IsEmpty then
GetElement := hListe.Items[AktuellePosition]
end;
hListe.Items^[AktuellePosition]
ist richtiger, Delphi findet selbst heraus ob n Zeiger oder Objekt benötigt
wird.
FPC ist da etwas genauer :)
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
