Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: [done] DEC class xy not found

    Delphi
    by heri, 2. Nov 2009
  ja, so funktionierts:
  
  
  class function TDECObject.Identity: LongWord;
  var
  Signature: AnsiString;
  begin
  Signature := StringOfChar(#$5A, 256 - Length(Classname)) + UpperCase(ClassName); //°
  Result := CRC32(IdentityBase, Signature, Length(Signature) * SizeOf(Signature));
  end;
• Forum: Object-Pascal / Delphi-Language

  Re: [done] DEC class xy not found

    Delphi
    by heri, 2. Nov 2009
  ich habe diese Funktion jeweils unter D2006 und D2010 getestet und das Result waren jeweils unterschiedliche ID's - entsprechend konnte die Klasse natürlich nicht mehr gefunden werden
  
  
  
  habe ich auch gedacht - muss es doch geben - aber wo?
• Forum: Object-Pascal / Delphi-Language

  [done] DEC class xy not found

    Delphi
    by heri, 2. Nov 2009
  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,...