type überprüfung

[day]

hallo

ich übergebe einer Funktion eine TQuery. Wie kann ich überprüfen ob es sich beim übergebenen objekt wirklich um eine TQuery handelt?

[alcaeus]

Hi day!

Mit

Delphi-Quellcode:

if <Variable> is TQuery then
bla;

Greetz
alcaeus

[sakura]

Sagen wir mal das Objekt heisst: ShouldBeQuery dann:

Delphi-Quellcode:

if ShouldBeQuery is TQuery then
begin
  // yeah!
  [...]
end
else
begin
  ShowMessage(ShouldBeQuery.ClassType.ClassName);
end;

......

[day]

Ich mache diese Abfrage im Konsturktor. Folglich kann ich keinen rückgabewert zurückgeben falls es keine TQuery ist. Hat jemand eine Idee wie ich das lösen könnte. Dachte da an eine Exception. Wie kann ich die werfen?

[Chewie]

Zitat von day:

Dachte da an eine Exception. Wie kann ich die werfen?

Ja, Exception ist perfekt in diesem Fall, da für das Objekt reservierter Speicher dann freigegeben wird. Erzeugen der Exception mit
raise <Exceptiontyp>.Create(<optionale Parameter>);

[Stevie]

Zitat von Chewie:

Ja, Exception ist perfekt in diesem Fall, da für das Objekt reservierter Speicher dann freigegeben wird.

Noch besser ist Assert (Löst auch eine Exception aus, wenn der Ausdruck nicht true ist!), weil sich die Sache auf eine Zeile beschränkt:
Assert(MyQuery is TQuery, Format('TQuery-Objekt erwartet, %s-Objekt gefunden!', [MyQuery.ClassName]));