Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Вниз
Получить выделнную строку в 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
