Работа с SQL запросами Delphi. как выполнить сохранение запроса в csv файл - 25 Мая 2012

Главная » 2012 » Май » 25 » Работа с SQL запросами Delphi. как выполнить сохранение запроса в csv файл

09:17 Работа с SQL запросами Delphi. как выполнить сохранение запроса в csv файл
Как сохранить запрос в Csv файл как сохранить таблицу в Csv файл Function SaveDataSetToCSV(Table:TDataSet;Filename:string;ch:char=';'):integer; var x,y:integer; s:string; F:Textfile; function ecran(s:string):string; var s2:string;i:integer; begin s2:=''; for I:=1 to length(s) do if (s[i]<>ch) or (ord(s[i])<32) then s2:=s2+s[i] else s2:=s2+'#'+inttostr(ord(s[I])); result:=s2; end; begin Rewrite(f,Filename); Table.First; repeat s:=''; for X:=0 to Table.FieldCount-1 do s:=s+ecran(Table.Fields[x].AsString)+ch; writeln(f,s); Table.Next; until Table.Eof; closefile(F); end;
1 2 3 4 5 Просмотров: 2004 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки