Hi.
Die Methode
setZustand(...) hast du als Member der Klasse
TAmpel deklariert, aber ohne die Klassenzuordnung aufgerufen.
Aus
Delphi-Quellcode:
procedure setZustand(value:TZustand);
begin
FZustand:=value; // FZustand rot unterstrichen
end;
mache
Delphi-Quellcode:
procedure TAmpel.setZustand(value:TZustand);
begin
FZustand:=value; // jetzt nicht mehr :wink:
end;
Gruß
BlackDragon
PS: Deine Formatierung ist grauenhaft...
