Hallo zusammen,
wie kann ich komplexe Objekte vergleichen?
Delphi-Quellcode:
type
TTest = class(TObject)
private
FList: TStringList;
FName: String;
FBoll: Boolean;
FButton: TButton;
public
constructor Create;
property List: TStringList read FList write FList;
property Name: String read FName write FName;
end;
var a, b: TTest;
a:=TTest.Create;
a.name:='Hallo Welt';
b:=TTest.Create;
b.name:='Hallo Welt';
if comparemem(a,b,a.InstanceSize) then
showmessage('identisch'); // geht nicht -> ich denke wegen unterschiedlicher Adressen von TStringList
if a=b then
showmessage('identisch'); // geht auch nicht
Muss ich dafür eine Prozedur schreiben? a.compareto(b)??
thx
baeuerle