[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 не предлагать, нужен текстовый файл).

[poli-smen]

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

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

DBGrid не содержит никаких данных, он только отображает "чужой" набор данных

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

Вроде работает, но стоят задачи:
1. Выгрузка в Memo должна начинаться со строки № 4 и текст, который до выгрузки был в строках 4, 5,.... не должен затираться, а смещаться;

В таблицах баз данных не строки, а записи. Чтобы начать с 4-ой записи сделай перед циклом:

Код:

DBGrideh1.DataSource.DataSet.RecNo := 4;

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

2. Выгрузка происходит построчно, но сплошным текстом. Как сделать пробелы между полями и перед первым полем.

Пробелы вставляй самостоятельно:

Код:

f:=f + ' ' + DBGrideh1.DataSource.DataSet.Fields[i].AsString;

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

3. А может кто подскажет как содержимое dbgrid перекинуть в Memo в виде таблицы, что бы был читабельный вид (Excel не предлагать, нужен текстовый файл).

Во-первых установи в Memo моноширинный шрифт. Во-вторых дополняй нужным количеством пробелов строки в полях (столбцах) чтобы в сумме у них получалась одинаковая длина в символах.