Author: Tomas Rutkauskas 

How to convert a Paradox table to a fixed length ASCII table

Answer:
1   
2   procedure TForm1.Button1Click(Sender: TObject);
3   var
4     t1, t2: TTable; {t1 = PW table; t2 = ASCII version}
5   begin
6     t1 := TTable.create(self);
7     with t1 do
8     begin
9       DataBaseName := 'pw'; { Personal Alias for Paradox Directory }
10      tableName := 'customer.db'; { Source Table }
11      open;
12    end;
13    t2 := TTable.create(self);
14    with t2 do
15    begin
16      DataBaseName := 'pw'; { Personal Alias for Paradox Directory }
17      tableName := 'asdf.txt';
18      TableType := ttASCII;
19      createTable;
20      open;
21      edit;
22      BatchMove(t1, batCopy);
23      close;
24    end;
25    t1.close;
26  end;