Pregunta sobrelistbox

[ecfisa]

Empezado por moise094

El caso es el siguiente, voy a abrir un documento .txt en un listbox y este tiene:
JUAN 45
JOSE 56

y quiero que al abrir el archivo, me aparezca en un edit cualquiera el numero 45
es decir el listbox va siempre a tener varios items...

Entonces sería:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with TListBox(Sender) do
    Edit1.Text := ExtraerNum(Items[ItemIndex]);
end;

O dependiendo de lo que desees, también podrías hacer:

Código Delphi [-]
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  with ListBox1 do
    Edit1.Text := ExtraerNum(Items[ItemIndex]);
end;

Siendo el código de la función ExtraerNum el que elijas.

Saludos.