|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Выгрузка данные из DBGrid-а в txt
Ребята поскажите как можно выгрузить данные из DBGrid-а в текстовый файл *txt.???
|
#2
|
|||
|
|||
попробуй так
Код:
uses DB, Classes; var i : integer; row : string; ..... with DataSet, tstringlist.create() do begin first; while not eof do begin row := ''; for i :=0 to fields.count do row := row + ';' + fields[i].asstring; add(row); next; end; savetofile(filename); free; end; dataset- набор данных к которому подключен Грид(ttable, tquery...), filename - название файла куда сохранять с полным путем к ниму |
#3
|
|||
|
|||
Вот пример, как сделал я ...
Код:
var Form1: TForm1; f:text; f_c,r_c,i,n:integer; str:string; dump:string; a:array[1..100] of string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin if not FileExists('DB_Dump.txt') then begin Rewrite (f,'DB_Dump.txt'); CloseFile(f); end; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text:='select * from t'; ADOQuery1.Open; f_c:=ADOQuery1.FieldCount; r_c:=ADOQuery1.RecordCount; for n:=0 to r_c-1 do begin for i:=0 to f_c-1 do begin dump:=''; a[i]:=DBGrid1.Fields[i].AsString+'#'; AssignFile(f,'DB_Dump.txt'); Append(f); Write (f,a[i]); CloseFile(f); end; Append(f); Writeln (f,''); CloseFile(f); ADOQuery1.Next; end; end; end. исходник |