[govorun]

Всех с наступившим....

Нужно содержимое dbgrid перенести в Memo. Сделал так:

Код:

procedure TForm2.Button9Click(Sender: TObject);
var
//nach:integer;
i:integer;
f:string;
begin
    while not DBGrideh1.DataSource.DataSet.Eof do
    begin
    f:='';
    //nach:=4;
    for i:=0 to DBGrideh1.DataSource.DataSet.FieldCount-1 do
    f:=f + DBGrideh1.DataSource.DataSet.Fields[i].AsString;
    memo1.Lines.add(f);
    //memo1.Lines.Insert(nach+i, f);
    DBGrideh1.DataSource.DataSet.Next;
    end;
end;

Вроде работает, но стоят задачи:
1. Выгрузка в Memo должна начинаться со строки № 4 и текст, который до выгрузки был в строках 4, 5,.... не должен затираться, а смещаться;
2. Выгрузка происходит построчно, но сплошным текстом. Как сделать пробелы между полями и перед первым полем.
3. А может кто подскажет как содержимое dbgrid перекинуть в Memo в виде таблицы, что бы был читабельный вид (Excel не предлагать, нужен текстовый файл).