DBGrid speichert nicht die Daten ab

[shmia]

Was klappt denn nicht?
Beachte, dass folgender Sourcecode gegenüber Beitrag oben leicht verbessert wurde.

Delphi-Quellcode:

procedure SaveDatasetAsCSV(ds:TDataset; const filename:string);
var
  list : TStringList;
  s : string; 
  i : integer; 
  f : TField;
begin 
   list := TStringList.Create; 
   ds.First; 
   while not ds.Eof do   // über alle Datensätze 
   begin 
     // erstelle kommagetrennten String über alle Felder
     s := ''; 
     for i := 0 to ds.Fields.Count-1 do   // über alle Datenfelder 
     begin
       f := ds.Fields[i];
       if f.DataType in ftNonTextTypes then
          // diese Datentypen können nicht exportiert werden
       else
          s := s + f.AsString+ ',';
     end;
     list.Add(s);

     ds.Next;
   end;
   list.SaveToFile(filename);
   list.Free;
end;