Export Paradoxtabelle in eine Textdatei mit Trennzeichen

[DelphiDeveloper]

2.ter versuch wolfgang

Code:

procedure CSVExport;
var
  i: integer;
  F: TextFile;
  Fn: string;
  tmpstring: string;
begin
  Fn := 'c:\myCSVexport.csv';
  AssignFile(F, Fn);
  Rewrite(F);

  Table1.open;
  while not table1.eof do
  begin
    for i := 0 to table1.FieldCount - 1 do
    begin
      // ersetze quotes in doppelquotes
      tmpstring := stringreplace(table1.fields[i].Value, '"', '""', [rfReplaceAll]);
      // ; nicht vorhanden
      if pos(';', tmpstring) = 0 then
      begin
        write(F, tmpstring);
        write(F, ';');
      end
      else
      begin
        // ; vorhanden
        write(F, '"');
        write(F, tmpstring);
        write(F, '"');

        write(F, ';');
      end;
    end;
    write(F, #13#10);
    table1.next;
  end

end;