Hatte folgende Fehlermeldung vom
DEC 5.2 nach dem Umstieg auf Delphi 2010: "class xy not found"
die Lösung (hier fett) lautet:
class function TDECObject.Identity: LongWord;
var
Signature: {$IFDEF UNICODE}AnsiString{$ELSE}String{$ENDIF};
begin
Signature := StringOfChar(#$5A, 256 - Length(Classname)) + UpperCase(ClassName); //°
Result := CRC32(IdentityBase, Signature[1], Length(Signature) * SizeOf(Signature[1]));
end;
man korrigiere mich bitte falls ich falsch liege.