[done] DEC class xy not found

[heri]

ja, so funktionierts:

Delphi-Quellcode:

class function TDECObject.Identity: LongWord; 
var 
Signature: AnsiString; 
begin 
Signature := StringOfChar(#$5A, 256 - Length(Classname)) + UpperCase(ClassName); //° 
Result := CRC32(IdentityBase, Signature[1], Length(Signature) * SizeOf(Signature[1])); 
end;

thx