Hi,
@sniper_w
Sorry, aber hab zwei Anmerkungen, einerseits solltest du Code der Größe anhängen und nicht posten und das andere ist, nach
DP Bedingungen wird keine Schularbeit gelöst. Ausserdem glaube ich das hanselmansel sicher was lernen möchte (immerhin könnte das in einer Klausur vorkommen).
@hanselmansel
Du kannst Klassen casten. Das heißt du wandelst eine Klasse in eine andere um. Um etwas zu casten setzt du einfach den Typ vor deine Variable, diese wird eingeklammert oder du benutzt den as Operator
Delphi-Quellcode:
procedure doFoo(Sender : TObject);
var neuerTyp : TWasAuchImmer;
begin
// prüfen ob Sender vom richtigen Typ ist
if Sender is TWasAuchImmer then
begin
neuerTyp := TWasAuchImmer(Sender);
end;
end;
Gruß Der Unwissende