|
Вопрос # 4 247/ вопрос открыт / |
|
Здравствуйте!
Интересует
как скопировать определенные строчки с одного листбокса в другой. по критериям от определенного начального слова и до определенного конечного?
не отказался бы от примера.
спасибо.
 |
Вопрос задал: delphin (статус: Посетитель)
Вопрос отправлен: 30 мая 2010, 19:32
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 30 мая 2010, 23:08; участников в обсуждении: 1.
|
ilnur (статус: Посетитель), 30 мая 2010, 20:49 [#1]:
Здравствуйте! Если поможет, можно, например, так: имеем ListBox1 и ListBox2. Обоим присваиваем MultiSelect:=true;
А вот так выбранные строки из ListBox1 перемещаем в ListBox2:
ListBox1.MoveSelection(ListBox2);
|
|
|
ilnur (статус: Посетитель), 30 мая 2010, 21:29 [#2]:
Не совсем понял, но, если нужен цикл, тут тоже все просто:
var
s: string;
for i:=ListBox1.Items.Count - 1 downto 0 do
begin
s:=ListBox1.Items.Strings[i];
if Pos('ехал',s)'<>0 then
begin
s:=Copy(s,Pos('ехал',s)+5, Pos('переехал',s)-Pos('ехал',s)+5);
ListBox2.Items.Append(s);
ListBox1.Items.Delete(i);
end;
end;
|
|
|
ilnur (статус: Посетитель), 30 мая 2010, 23:08 [#3]:
Вы пишете: как скопировать определенные строчки с одного листбокса в другой. по критериям от определенного начального слова и до определенного конечного?
Ну так функция
var
s: string;
for i:=ListBox1.Items.Count - 1 downto 0 do
begin
s:=ListBox1.Items.Strings[i];
if Pos('ехал',s)'<>0 then
begin
s:=Copy(s,Pos('ехал',s)+5, Pos('переехал',s)-Pos('ехал',s)+5);
ListBox2.Items.Append(s);
ListBox1.Items.Delete(i);
end;
end;
так и делает. Ну можно убрать ListBox1.Items.Delete(i);, если Вам нужно только скопировать. Если совсем уж разжевать, то:
var
s: string;
begin
ListBox2.Items.Clear;
for i:=ListBox1.Items.Count - 1 downto 0 do
begin
s:=ListBox1.Items.Strings[i];
if Pos('ехал',s)'<>0 then
begin
s:=Copy(s,Pos('ехал',s)+5, Pos('переехал',s)-Pos('ехал',s)+5);
ListBox2.Items.Append(s);
end;
end;
end;
|
1 июня 2010, 09:27: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
