Problem with working code on windows and not on linux
lazarus / 32-Linux

----------------------------------------------------------------------
calebs · 2020-11-02 20:44

Hello all. I have this code that works fine on windows (win 10x64,
lazarus 2.0.10 x86)
but when i try to compile on linux it gives me an error: illegal type
conversion:"longint" to "tobject".
I don't fully understand that piece of code, i searched on the web and
adapted to my program and worked as expected on windows but doesn't
work neither compile on linux (using ubuntu mate 20.04 with lazarus
2.0.10 x64)

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Procedure
tform1.cargarrubros;var  cad: String;  lista: tstringlist;Begin 
cad:='SELECT * FROM articulosrubros ORDER BY descripcion'; 
dbi.bpqsl.SQL.Text:=cad;  dbi.bpqsl.Open;  combobox1.Clear;  while not
dbi.bpqsl.EOF do begin   
cad:=dbi.bpqsl.FieldByName('descripcion').AsString+'
('+dbi.bpqsl.FieldByName('codigo').AsString+')';    ComboBox1.Items.Ad
dObject(cad,TObject(dbi.bpqsl.FieldByName('idr').AsInteger));        
     << ERROR HERE    dbi.bpqsl.Next;  end;  dbi.bpqsl.Close; 
cad:='SELECT * FROM articulossubrubros ORDER BY descripcion'; 
dbi.bpqsl.SQL.Text:=cad;  dbi.bpqsl.Open;  combobox2.Clear;  while not
dbi.bpqsl.EOF do begin   
cad:=dbi.bpqsl.FieldByName('descripcion').AsString+'
('+dbi.bpqsl.FieldByName('codigo').AsString+')';    ComboBox2.Items.Ad
dObject(cad,TObject(dbi.bpqsl.FieldByName('idsr').AsInteger));       
             << AND ERROR HERE    dbi.bpqsl.Next;  end; 
dbi.bpqsl.Close;  dbi.devolveralicuotas(lista); 
combobox3.Items:=lista;  dbi.devolverumedidas(lista); 
combobox5.Items:=lista;  dbi.devolvermonedas(lista); 
combobox4.Items:=lista;end; 
and on every single line that i try to recover the stored value in the
tstringlist.

Thanks!

----------------------------------------------------------------------
marcov · 2020-11-02 20:57

An integer is not compatible with a pointer on 64-bit systems. Use
ptrint instead