Export Paradoxtabelle in eine Textdatei mit Trennzeichen

[DelphiDeveloper]

kannste doch einfach so machen
vorausgesetzt deine paradox tabelle enthaelt keine bildchen, memos etc.

Delphi-Quellcode:

procedure CSVExport;
var
  i: integer;
  F: TextFile;
  Fn: string;

begin
  Fn := 'c:\myCSVexport.txt';
  AssignFile(F, Fn);
  Rewrite(F);

  Table1.open;
  while not table1.eof do
  begin
    for i := 0 to table1.FieldCount - 1 do
    begin

      write(F, table1.fields[i].Value);
      write(F, ';');
    end;
    write(F,#13#10);
    table1.next;
  end

end;

[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]