este es el codigo:
Código:
Lo que hace este codigo es que al seleccionar un item me muestra un mensaje con el texto del item y su id.procedure TfrmPrincipal.ListBox1Click(Sender: TObject); var id_list:integer; begin if(index_list=Integer(ListBox1.ItemIndex)) then begin end else begin id_list:=Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]); ShowMessage('Texto List: '+ListBox1.Items.ValueFromIndex[ListBox1.ItemIndex]+' , Id: '+IntToStr(id_list)); index_list:=Integer(ListBox1.ItemIndex); end; end;
La linea del "error" es esta:
Código:
con este mensaje:id_list:=Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);
Note: DWARF debug information cannot be used with smart linking on this target, switching to static linking
frm01_principal.pas(94,15) Error: Illegal type conversion: "TObject" to "LongInt"
No se bien que será porque como repito solo llevo dos dias en esto, en Win funciona bien, en Debian no se que pasa.
Cualquier ayuda es bienvenida.