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

Delphi-Quellcode:

frxVarMemo.Font

und

Delphi-Quellcode:

Memo.Font

ist vom Typ schon

Delphi-Quellcode:

TFont

und das braucht man eigentlich nicht mehr zu prüfen. Auch die Prüfung auf assigned ist hier obsolet, denn diese Objekte

Delphi-Quellcode:

frxVarMemo

und

Delphi-Quellcode:

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

Delphi-Quellcode:

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 :warn:

[ATS3788]

Danke
dachte ich mir schon.