Скачать: CL | DM;

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

← →
Bratva   (2002-11-12 20:08) [0]

Как получить выделнную строку в ListBox и занести её в Edit? Если в ListBox строки вида "1. ФФФФФ", "2. РРРРР". Нужно занести только то, что стоит после "1. " т.е. без номера.

---

← →
Anatoly Podgoretsky ©   (2002-11-12 20:22) [1]

Copy конечно

---

← →
Новенький в Делфи   (2002-11-12 20:52) [2]

Что-то вроде
Edit1.Text:=Copy(ListBox1.items[ListBox1.ItemIndex],2 Length(ListBox1.items[ListBox1.ItemIndex])-2);
на вскидку вроде так =)
ListBox1.ItemIndex- индекс выделенной строки, счёт идёт от 0-я,
-1 строка не выделена.

---

← →
Bratva   (2002-11-14 21:38) [3]

Пробовал, что то чуть не то.
Я так понял, событие должно идти на OnMouseDown, так ведь?
А чуть не то, потому что у меня содержание такое примерно:
1. AAA
2. VVV
3. FFF
4. GGG

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

---

← →
Guellirro   (2002-11-14 23:41) [4]

пиши в 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c