markieren

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

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:

markieren

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

Zitat:

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

Typo

Danke
dachte ich mir schon.