Illegal Type conversion "TObject to LongInt"

[harrybonn]

Wollte gerade mal mit Lazarus 1.26 mein Programm neu kompilieren, erhalte aber den im Betreff genannten Fehler gemeldet und die Kompilierung bricht ab.

Mit vorherigen Versionen wurde hier nichts angemeckert.

Kann man das diese Prüfung irgendwie abschalten, denn ich habe wenig Lust, jetzt an tausenden von Stellen irgendwelche Änderungen vorzunehmen?

Oder eine Möglichkeit das zu umgehen?

[Mathias]

Zeig mal einen Programm-Ausschnitt, wo der Fehler ensteht ?

Hast du zufällig eine Mix aus 32Bit und 64Bit Linux ?

[harrybonn]

z.B.: (lbNames ist eine TListbox):

Code: Alles auswählen

Var
  ix: LongInt;
begin
  ix := LongInt (lbNames.objects[L]);  // <-- Hier wird gemeckert (weiß ja, das ist keine gute Idee, aber weitverbreitet :? )

[theo]

http://www.freepascal.org/docs-html/rtl ... ruint.html

[harrybonn]

OK, danke Theo, zur Not kann ich die Variablen durch ein DWord ersetzen...

[Christian]

DWord macht doch keinen Sinn, wenn dann doch PtrInt wie von theo vorgeschlagen

[harrybonn]

Ja, muss ich wohl, denn DWord geht nicht.

Ich benötige die Variable, um damit als Index in einer Liste zugreifen zu können.

Somit wäre

Code: Alles auswählen

 
var
  IX: PtrUint;
begin
  IX := PtrUint (lbNames.objects[L]);
 

und

Code: Alles auswählen

  if Tadresse (AdressList.items[IX]).markiert ...
 

OK, ja?