Данные из DBGrid1 перенести в Memo1. Turbo Delphi!

[KYLOMASSA]

Здравствуйте, как из таблицы(DBGrid1) при нажатии на кнопку(Button1) данные из этой таблицы(DBGrid1) переносились в Memo1?

Turbo Delphi!

[TaLadno]

function TYourForm.DBGridAsText(ABdGrid: TDBGrid): TStringList;
var
  Line: string;
  i: integer;
Begin
  result := TStringList.Create;

  ABdGrid.DataSource.DataSet.First;
  while not ABdGrid.DataSource.DataSet.Eof do
  Begin
    Line := '';

    for i := 0 to ABdGrid.Columns.Count - 1 do
      Line := Line + ABdGrid.Columns[i].Field.AsString + ';';

    result.Append(Line);
    ABdGrid.DataSource.DataSet.Next;
  End;
End;

procedure TYourForm.ButtonClick(Sender: TObject);
var StrList: TStringList;
begin
  StrList := DBGridAsText(DBGrid1);
  if StrList.Count > 0 then
    Memo.Lines.text := StrList.Text;

  StrList.Clear;
  FreeAndNil(StrList);
end;

Ну как-то так



псс... "турбо делфи" у меня нету

[evg_m]

в DBGrid нет данных, данные есть в присоединенном DataSet(наборе данных) (T...Query|T...DataSet)
ds:=DbGrid1.DataSource.DataSet;

0. обработчик события(OnClick) нажатия на кнопку Button1
1. очистка Memo.Clear;
2. определение НУЖНЫХ (для переноса) полей НД f:=ds.FindField('....');
3. переход к началу НД ds.First;
4. цикл до окончания записей НД while not ds.EOF
5. добавление данных из поля в Memo memo1.Lines.Add(f.AsString);
6. переход следующей записи НД ds.Next;
7. конец цикла (п.4)