TObject als Übergabeparameter

[Der_Unwissende]

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