из Dbgrid в Memo

[govorun1]

Данные показаны в dbgrid
Как ВСЕ данные из Dbgrid (dataset) выгрузить в Memo при условии, что в Memo:
1. первые три строки будут заполнены текстом, т.е. данные должны идти после текста
2. после последней записи данных должны идти четыре строки текста.

Иными словами данные в MEMO должны вставлятся между текстом, а поскольку количество строк в dataset не известно, то и раздвигаться текст в мемо должем както автоматом

[Stilet]

Просто Memo.Lines.Insert используй для вставки текста. Он сам пораздвигает.
А в цикле по датасету пройдись, чтоб получить то что раздвигать будет.

[govorun1]

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

Просто Memo.Lines.Insert используй для вставки текста. Он сам пораздвигает.
А в цикле по датасету пройдись, чтоб получить то что раздвигать будет.

А можно наглядно написать, особенно про цикл...., я еще только учусь...
Спасибо

[Konstantin_ua]

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

А можно наглядно написать, особенно про цикл...., я еще только учусь...
Спасибо

procedure TF_Main.btn5Click(Sender: TObject);
var nach,j:Integer;
begin
  nach:=3; // ну тут можешь поменять на какое тебе угодно 
  for j:=0 to dbgrdh1.DataSource.DataSet.RecordCount-1 do
  begin
    mmo1.Lines.Insert(nach+j, dbgrdh1.Fields[j].Value);
  end;
end;

nach - ето переменная в которой храниться номер строчки в мемо с которой ты хочешь начать вставлять текст

ну наверное что то типа так, если что не так поправте код не проверял