Как получить значение выделенной строки в ListBox?

← →
Artemij (2003-06-11 13:04) [0]

Помогите, пожалуйста, начинающему програмисту! Никак не могу добиться, чтобы выделенная строка в ListBox отображалась, скажем в Edit1. Из базы данных (Paradox) я переношу инфо определённого столбца в ListBox, а потом, при выделении какой-либо строки, хочу использовать её значение в другом месте. Может ListBox и не подходит для такой манинуляции? Заранее спасибо.

← →
clickmaker (2003-06-11 13:09) [1]

ListBox.Text
ListBox.Items[ListBox.ItemIndex]

← →
andrey_pst (2003-06-11 13:24) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add("Иван Петров");
ListBox1.Items.Add("Вася Пупкин");
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;

end.

← →
Artemij (2003-06-11 13:35) [3]

Оболденное спасибо! С этой минуты я обожаю сайт www.delphimaster.ru!

← →
Palladin (2003-06-11 13:41) [4]

Я бы на твоем месте справку бы обожал побольше, не надейся что сможешь получить тут ответ на все вопросы...

← →
Ig (2003-06-12 20:32) [5]

Palladin
Подскажи какую имеменно "справку" Ты имеешь ввиду, если справку в Delphi, то допустим если это Delphi 6,7 ? , там справочная система на английском языке!?!
:(

← →
Palladin (2003-06-12 20:59) [6]

> <Ig> (12.06.03 20:32)

извини парень. в таком случае программирование не для тебя...

← →
Ghost (2003-06-13 08:42) [7]

> Palladin

:)

Как получить значение выделенной строки в ListBox? Найти похожие ветки