Paradox Daten in CSV Datei schreiben?

[eddy]

Hallo Computersklave,

ich hab' mir mal Dein Quelltext angesehen und funktionsfähig umgestaltet (als Kommentar gekennzeichnete Zeilen mit Deinem ursprünglichen Quelltext).

Code:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  f: Textfile;
  Ziel, Datensatz : String;
  Anzahl:integer;
  zahler:integer;
begin
//  Anzahl:=TableExport.recordcount;
//  showmessage(inttostr(Anzahl));
//  TableExport.FindFirst;
  TableExport.First;
  FlatGauge1.MaxValue:=anzahl;
  FlatGauge1.MaxValue:= TableExport.recordcount;
  if SaveDialog1.Execute then begin
    Ziel := SaveDialog1.FileName;

    AssignFile(f, Ziel);
    try
      if FileExists(Ziel) = False then begin
        Rewrite(f);
        Writeln(f,'"TITEL1","TITEL1"');
      end
      else begin
        Reset(f);
        Append(f);
      end;

  //    for zahler:= 0 to Anzahl-1 do begin
      while not TableExport.Eof do begin
        Datensatz := DBEdit1.text + ';' + DBEdit2.text;
        Writeln(f, Datensatz);
  //      FlatGauge1.Progress:=zahler;
  //      TableExport.FindNext;
        TableExport.Next;
        FlatGauge1.Progress:= TableExport.RecNo;
      end;
    finally
      CloseFile(f);
    end;
  end;
end;

Allerdings ist die vorgeschlagene Variante nicht besonders universal. Schau Dir mal diese Seite an:
Datenbank in Excel schreiben und paradox-daten als csv speichern an.

mfg
eddy