[done] DEC class xy not found

[Assertor]

Hallo heri,

Zitat von heri:

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;

SizeOf(Signature[1]) wird bei festem AnsiString nicht benötigt.

Ich arbeite gerade an der DEC 5.3, die Änderungen werde ich für Abwärtskompatibilität gerne übernehmen.

Gruß,
Assertor