Author: Tomas Rutkauskas 

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

Answer:

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