Zitat von
himitsu:
Warum eigentlich #$5A und nicht einfach 'Z' ?
Frag Hagen, möglich das früher Delphi das nicht geschluckt hat...
In der nächsten
DEC wird es so gelöst:
Delphi-Quellcode:
class function TDECObject.Identity: LongWord;
var
Signature: AnsiString;
// using ANSI to keep backward compatibility
begin
// create signature ('Z' * n + 'TDECCLASSNAME')
Signature := StringOfChar(AnsiChar(#$5A), 256 - Length(Classname)) +
AnsiString(UpperCase(ClassName));
// calc crc for signature
Result := CRC32(IdentityBase, Signature[1], Length(Signature));
end;
Gruß,
Assertor