Hallo zusammen,
ich spiele gerade mit Generics rum und wundere mich, daß so etwas nicht funktioniert.
Delphi-Quellcode:
procedure GenericSetter<T> (var APropValue : T; const AValue : T);
begin
if APropValue<>AValue then // nicht möglich
begin
APropValue:=AValue;
FChanged:=True; // Datenbankrecord geändert ?
end;
end;
Für komplexe Typen verstehe ich das ja noch. Hier muss ich einen TComparer definieren, aber für Basistypen?
//Edit : Fehler in Deklaration beseitigt