Wie werden Objekte verglichen?

[RSE]

Hallo!

Wie vergleicht FreePascal eigentlich Objekte?

Code: Alles auswählen

var
  Obj1, Obj2: TObject;
...
 
if Obj1 = Obj2 then begin
   ...
end;

Wann genau wird dieser Ausdruck wahr? Wenn beide Variablen (Obj1 und Obj2) auf die gleiche Speicheradresse verweisen (Die Startadresse der Instanz)? Oder wenn alle Felder beider Objekte die gleichen Belegungen haben? Oder gar noch etwas anderes?

[theo]

Soviel ich weiss nur als Pointer (Adresse), d.h. ob es sich um das gleiche Objekt handelt.

[pluto]

TFont z.b. macht das so

Code: Alles auswählen

function TFont.IsEqual(AFont: TFont): boolean;
begin
  if (AFont = Self) then Exit(true);
  if (AFont=nil)
  or (CharSet<>AFont.CharSet)
  or (Color<>AFont.Color)
  or (PixelsPerInch<>AFont.PixelsPerInch)
  or (Size<>AFont.Size)
  or (Height<>AFont.Height)
  or (Name<>AFont.Name)
  or (Pitch<>AFont.Pitch)
  or (Style<>AFont.Style) then
    Result := False
  else
    Result := True;
end;

Wenn du dir noch mal hierzu die ObjectListe anschaust, wirst du sehen, die machen das genau so wie in deinen Beispiel.

[RSE]

Danke, dann ist es so, wie ich gedacht hatte

TFont.IsEqual ist ja dann eher ein spezieller Vergleich, ob die beiden Instanzen das gleiche repräsentieren (oder es sich gar um das selbe Objekt handelt = die selbe Instanz).

[EugenE]

man könnte auch = operator überladen und dann deine eigene Überprüfung durchführen

[Euklid]

man könnte auch = operator überladen und dann deine eigene Überprüfung durchführen

Cool - das Überladen geht sogar mit dem = Operator?

[pluto]

Ja ! müsste gehen, ich weiß nur nicht genau wie, in den Lazarus Soruce findest du aber reichlich beispiele dazu...

[alexander]

hmmm würde mich auch interessieren für records. Wenn jemand es weiß wie, bitte reinschreiben!

[EugenE]

Code: Alles auswählen

operator = (a,b : TRecordName) : Boolean;
begin
    Result := true;
end;

ich weiß nicht ob es funktioniert, kannst es ja mal ausprobieren ^^

[marcov]

[Language=Kohle-Deutsch]

Fuer overloading mit Records, sieh den Ucomplex unit (im rtl/inc Verzeichnis).

[/language]

[alexander]

WOW. Sehr cool. Danke.

[Hitman]

Für Objekte wird das allerdings nicht gehen. Operatoren können/dürfen nicht für Pointer überladen werden - und das schließt Objekte mit ein.

[alexander]

hmmm ah klar. logisch.

[marcov]

Für Objekte wird das allerdings nicht gehen. Operatoren können/dürfen nicht für Pointer überladen werden - und das schließt Objekte mit ein.

Teilweise Falsch. Es funktioniert fuer Objekte (TP), aber nicht fuer Classes (Delphi)