DBGrid speichert nicht die Daten ab

[kumar89]

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;

Delphi-Quellcode:

procedure Tpmform.BitBtn1Click(Sender: TObject);
begin
SaveDatasetAsCSV(DBGridPW.DataSource.Dataset, 'passwörter');
end;