Как из dbf перенести все записи в определенную позицию?

[Askat]

Как из dbf перенести все записи в определенную позицию? я вот написал, но он здесь все записи загружает по столбцам, а как сделать так чтобы он загружал по сторокам, скажем первую строку он загружал на первую, вторую во вторую и т.д.
Пример таблицы:

nomer FIO account RNN summa
1 Иванов 123456 123456 100000
2 Петров 987654 321456 200000

Var
SL: TStringList;
i:integer;
begin
SL:= TStringList.Create;
form1.table1.First;
While not table1.Eof do
begin
SL.Add(''+ table1.FieldByName('nomer').AsStrin g);
SL.Add(''+ table1.FieldByName('fio').AsString) ;
SL.Add(''+ table1.FieldByName('account').AsStr ing);
SL.Add(''+ table1.FieldByName('RNN').AsString) ;
SL.Add(''+ table1.FieldByName('summa').AsStrin g);
form1.table1.Next;
end;

SL.SaveToFile('c:\1.txt');

end;

Заранее спосибо!

[Andrei]

Чтобы сильно не переделывать твой код, например так:

 
Var
SL: TStringList;
i:integer;
begin
SL:= TStringList.Create;
form1.table1.First;
While not table1.Eof do
begin
SL.Add(''+ table1.FieldByName('nomer').AsString+
' '+ table1.FieldByName('fio').AsString+
' '+ table1.FieldByName('account').AsString+
' '+ table1.FieldByName('RNN').AsString+
' '+ table1.FieldByName('summa').AsString);
form1.table1.Next;
end;
 
SL.SaveToFile('c:\1.txt');
 
end;

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

Сам я для формирования строки обычно пользуюсь функцией Format:

function Format(const Format: string; const Args: array of const): string; overload;

Она позволяет создать форматированную строку. В ней на каждый столбец можно задать определенное количество символов и определить форматы вывода числовых и временных данных.

[Askat]

ой а ты можешь мне скинуть полный исходник на askarovaskat@mail.ru?

[Andrei]

Лови исходники проекта.