[done] DEC class xy not found

[Assertor]

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