Отобразить все поля DBGrid в Memo

[Krechet]

У меня неожиданно возникла проблема, как аккуратно отобразить все поля(ну естестесственно кроме ключевого) в Memo из DBGrid, или на панели, чтоб красиво было, а не таблицей выскакивало... DBMemo не подходит, я так думаю

[maladoy]

можно чуть поподробнее и попонятнее!

[Krechet]

При SQL-запросе отфильтрованные данные отображаются в таблице DBGrid. Но для рядового юзверя это дико смотрится, так вот я хочу, чтоб отфильтрованные данные отображались не в DBGrid'e, а как-то по-изящнее чтоли, хотябы в поле Memo, вот.

[maladoy]

Memo.Lines.Add(query.FieldByName('имя поля').asString);

только не понимаю зачем такие извращения!

[Krechet]

У меня идет запрос по нескольким таблицам, а нужно отображать данные в одном месте... Несколько таблиц отображать не вариант

[Gulik]

Сделай одну таблицу (основную) со ссылками (LookUp) на остальные так ты объединишь все таблицы воедино

[maLoy*508]

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

У меня идет запрос по нескольким таблицам, а нужно отображать данные в одном месте... Несколько таблиц отображать не вариант

зачем несколько таблиц? Вы же говорите что у вас идет запрос... так и отображайте полученные данные в таблице(одной)

[artemavd]

Я гружу данные из поля в Мемо. Но почему-то получается записи повторяются раза три по кругу, а количество записей вроде получается правильным. При этом форма, на которой находится Мемо по цвету становится такой как на скрине. Получается 2 вопроса:
1. Почему записи идут по 3 круга, а количество показывается верным?
2. Как сделать, чтобы форма, на которой компонент Мемо, где отображаются загружаемые записи, была нормальной?
Вот код, которым я гружу записи:

procedure TForm1.Button7Click(Sender: TObject);
begin
 Form2.Show;
 Form1.pFIBDataSet2.Close;
 Form1.pFIBDataSet2.SQLs.SelectSQL.Clear;
 Form1.pFIBDataSet2.SQLs.SelectSQL.Text:='SELECT DISTINCT NUMBER_PACKAGE,PATH FROM ARCHIVE WHERE NUMBER_PACKAGE='+Form1.ComboBox4.Text;
 Form1.pFIBDataSet2.Open;
 Form1.pFIBDataSet2.First;
 while not Form1.pFIBDataSet2.Eof do
 begin
  Form2.Memo1.Lines.Add(Form1.pFIBDataSet2.FieldByName('PATH').AsString);
  Form1.pFIBDataSet2.Next;
  Form2.StatusBar1.Panels[1].Text:=IntToStr(Form2.Memo1.Lines.Count);
 end;
end;

в ComboBox4 указываю 317