Object auf Güligkeit überprüfen

[ATS3788]

Delphi-Quellcode:

if (assigned( frxVarMemo.Font )) and (assigned( Memo.Font )) then begin
if ((frxVarMemo.Font is TFont) and (frxVarMemo.Font is TFont)) then
Memo.Font.Assign(frxVarMemo.Font);
end;

Wahrscheinlich ist die Frage schon nicht stimmig

Ein Object auf Gültigkeit überprüfen ?

Geht so was, wie kann ich wie in diesem Fall (FastReport)
überprüfen ob ein gültiges TFont Object vorliegt.

Frohe Ostern

[Sir Rufo]

So wie du es geschrieben hast.

Erst mal sehen, ob die Objektreferenz auf etwas zeigt (assigned) und dann prüfen ob diese Referenz vom Typ xxx ist.

Allerdings ist es in diesem Fall obsolet, denn frxVarMemo.Font und Memo.Font ist vom Typ schon TFont und das braucht man eigentlich nicht mehr zu prüfen. Auch die Prüfung auf assigned ist hier obsolet, denn diese Objekte frxVarMemo und Memo haben (wenn sie existieren) eine Font-Eigenschaft und die lebt auch.

Somit macht es erheblich mehr Sinn folgendes zu prüfen:

Delphi-Quellcode:

if Assigned( frxVarMemo ) and Assigned( Memo ) then
  Memo.Font := frxVarMemo.Font;

Das Memo.Font.Assign( frxVarMemo.Font ); ist nicht falsch, wird aber auch durch den Setter von Font erledigt

[Bummi]

Zitat:

Das Memo.Font.Assign( frxVarMemo ); ist nicht falsch

Typo

[ATS3788]

Danke
dachte ich mir schon.