Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.25;
Скачать: 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 вся ветка

Текущий архив: 2002.11.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-82828
Odd_1
2002-11-13 21:59
2002.11.25
TCommPort


4-83042
kofman
2002-10-11 09:57
2002.11.25
Как сделать, что бы PopUpMenu не закрывалось сразу после выбора?


4-83074
arcad
2002-10-15 17:25
2002.11.25
Посылаю контролу up-down сообщения UDM_SETRANGE и UDM_SETPOS


1-82841
Skywalker
2002-11-14 11:43
2002.11.25
Специальные символы


14-82973
Drova
2002-11-06 23:11
2002.11.25
Что такое WINS ?