Listbox

[Rem1x]

как из его строки вытащить текст????
И засунуть в Edit????

[Proof]

Если нужна выделенная строка, то можно так

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ListBox1.Count - 1 do
  begin
    if ListBox1.Selected[i] then
    begin
      edit1.Text := ListBox1.Items[i];
      break;
    end;
  end;
end;

[Rem1x]

мне надо чтобы из не выделеной
Надо чтобы в edit Вписался текст с последней строки в lisbox'e!

[yasic]

var
i : Byte;
begin
i := ListBox1.Items.Count - 1;
Edit1.Text := ListBox1.Items[i];
end;

[mihali4]

Скачиваем отсюда
http://www.programmersclub.ru/
книгу "100 компонентов Дельфи" и прекращаем засорять форум.

Закрываю.