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.


