Delphi заготовки

Как сохранить запрос в 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;
 closef ... Читать дальше »