Из DBGrid в ListBox

[Darked]

Добрый день, столкнулся вот с такой проблемой, прошу вашей помощи.

Есть у меня DBGrid1, в который данные идут с Query1, черезе DataSource.
База состоит из 3 столбцов: ID, Слово1, Слово2.

Также есть у меня ListBox1, и ListBox2. Мне нужно, чтобы все содержимое 2 столбца (Слово1) пошло в ЛистБокс1, а содержимое столбца "Слово2" в ЛистБокс2.

Вот я сначала делал вот так:

var l1,l2 :string;

begin
 l1:= DBGrid1.Columns[1].Field.AsString;
 l2:= DBGrid1.Columns[2].Field.AsString;
ListBox1.Items.Add (l1);
ListBox2.Items.Add (l2);
end;

Но добавляется только первая строчка.

Вот такая ситуация, подскажите пожалуйста.

[mihali4]

Но добавляется только первая строчка.

Лучше не так.
Нужно перебрать все записи в квэрике и распихать их по листбоксам:

Query1.First;
while not Query1.Eof do
begin
ListBox1.Items.Add (Query1.FieldByName('Слово1').AsString);
ListBox2.Items.Add (Query1.FieldByName('Слово2').AsString);
Query1.Next;
end;

[Darked]

Сообщение от mihali4

Лучше не так.
Нужно перебрать все записи в квэрике и распихать их по листбоксам:

Query1.First;
while not Query1.Eof do
begin
ListBox1.Items.Add (Query1.FieldByName('Слово1').AsString);
ListBox2.Items.Add (Query1.FieldByName('Слово2').AsString);
Query1.Next;
end;

Действительно, все заработало, спасибо Вам!

Чтобы еще одну тему не создавать, напишу еще разок здесь.
Мне нужно импортировать определенные слова в ЛистБокс.
У меня есть текстовый файл, с такой структурой слово1::слово2.
Моя задача: испортировать все "слово1" с ЛистБокс1, и все "слово2" в ЛистБокс2. Увы, в данном случае, я пока не представляю особо, даже чтобы написать пример своего кода. Можете подсказать?

[mihali4]

Вам помогут функции PosEx и Length.

[Vavik]

Сообщение от mihali4

Лучше не так.
Нужно перебрать все записи в квэрике и распихать их по листбоксам:

Query1.First;
while not Query1.Eof do
begin
ListBox1.Items.Add (Query1.FieldByName('Слово1').AsString);
ListBox2.Items.Add (Query1.FieldByName('Слово2').AsString);
Query1.Next;
end;

А у меня почему-то виснет, если так делать(

[artemavd]

А как сделать, чтобы при выборе записи в главной таблице, те записи в дочерней таблице, которые соответствуют выбранной записи все скопировались отобразились в ListBox-e?

[Shingis]

Лучше не так.
Нужно перебрать все записи в квэрике и распихать их по листбоксам:
Код:

Query1.First;
while not Query1.Eof do
begin
ListBox1.Items.Add (Query1.FieldByName('Слово1').AsStr ing);
ListBox2.Items.Add (Query1.FieldByName('Слово2').AsStr ing);
Query1.Next;
end;

Darked а как слелать что имена поля были на русском хотя в базе таблице все с латинскими буквами

[Аватар]

Shingis

Один вопрос - одна тема, тем более, что Darked на форуме уже 6 с лишним лет не появлялся