Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получить выделнную строку в ListBox

Bratva © (2002-11-12 20:08:00)
Как получить выделнную строку в ListBox и занести её в Edit? Если в ListBox строки вида "1. ФФФФФ", "2. РРРРР". Нужно занести только то, что стоит после "1. " т.е. без номера.

Guellirro (2002-11-14 23:41:00) [1]
пиши в OnClick
procedure TForm1.ListBox1Click(Sender: TObject);
var
S : String;
I : Integer;
begin
if ListBox1.ItemIndex > -1 then
begin
S := ListBox1.Items[ListBox1.ItemIndex];
S := Copy(S,4,Length (S) - 3);
EDit1.text := S;
end;
end;

Bratva (2002-11-14 21:38:00) [2]
Пробовал, что то чуть не то.
Я так понял, событие должно идти на OnMouseDown, так ведь?
А чуть не то, потому что у меня содержание такое примерно:
1. AAA
2. VVV
3. FFF
4. GGG

Получается, надо удалить 3 первых символа.

Новенький в Делфи (2002-11-12 20:52:00) [3]
Что-то вроде
Edit1.Text:=Copy(ListBox1.items[ListBox1.ItemIndex],2 Length(ListBox1.items[ListBox1.ItemIndex])-2);
на вскидку вроде так =)
ListBox1.ItemIndex- индекс выделенной строки, счёт идёт от 0-я,
-1 строка не выделена.

Anatoly Podgoretsky (2002-11-12 20:22:00) [4]
Copy конечно

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »