como exportar una tabla paradox a un archivo plano

[[duilioisola]]

Básicamente debes conectarte a la tabla y recorrerla hasta que no haya mas elementos.
Para cada elemento escribes los datos en un fichero.

Código Delphi [-]
AssignFile(F, 'TextoPlano.txt');
Rewrite(F);
tabla.Open;
while (not tabla.EOF) do
begin
   WriteLn(F, tabla.FieldByName('CAMPO1').AsString + ', '+ tabla.FieldByName('CAMPO2').AsString + ...);
end;
CloseFile(F);

[hamer]

yo estoy manejando delphi 4 ya que es el único que tengo y al compilar este código en la primer linea me sale el siguiente error unknown identifier le cambie la F a C que creo que es donde se ubicaría el archivo, no se si deba de usar otro delphi donde estén estas funciones o si es que estoy colocando el código donde no es, yo lo que hice fue utilizar en data access puse una tabla y lo conecte seleccionando los nombres de la tabla y puse un data source que leí que así se conectaba entonces nada mas ingreso el código en un archivo que se genera llamado unit.pas, pero estoy como perdido muy perdido

Código Delphi [-]
AssignFile(F, 'TextoPlano.txt'); ////aquí me sale un error
Rewrite(F);
tabla.Open;
while (not tabla.EOF) do
begin
   WriteLn(F, tabla.FieldByName('CAMPO1').AsString + ', '+ tabla.FieldByName('CAMPO2').AsString + ...);
end;
CloseFile(F);

[ecfisa]

Hola hamer.

Proba de este modo:

Código Delphi [-]
...
var
  F: TextFile;
begin
  AssignFile(F, 'TextoPlano.txt');
  Rewrite(F);
  tabla.Open;
  while (not tabla.EOF) do
  begin
    WriteLn(F, tabla.FieldByName('CAMPO1').AsString + ', '+ tabla.FieldByName('CAMPO2').AsString) + ...);
    tabla.Next;  // registro siguiente
  end;
  tabla.Close;
  CloseFile(F);
end;

Saludos.

[hamer]

ahora si reconoce el código pero al correrlo sale esto este error Runtime error 202 at 0001:28CA y se cierra

[ecfisa]

Empezado por hamer

ahora si reconoce el código pero al correrlo sale esto este error Runtime error 202 at 0001:28CA y se cierra

Hola hamer.

El error 202 (Fatal errors), con seguridad no lo está provocando el código anterior.
Es muy probable que en algún punto de tu programa estés realizando alguna llamada que provoca un ciclo infinito.

Saludos.

[hamer]

tenias razón con lo del ciclo infinito cuando lo pongo a correr ya no salen errores pero sale el form en blanco y no se si esta realizando la acción y si es así donde se pondría el archivo ya en .txt gracias por la ayuda

[ecfisa]

Empezado por hamer

tenias razón con lo del ciclo infinito cuando lo pongo a correr ya no salen errores pero sale el form en blanco y no se si esta realizando la acción y si es así donde se pondría el archivo ya en .txt gracias por la ayuda

Hola hamer.

Para mostrarlo en el form, podrías hacer:

Código Delphi [-]
  Memo1.Lines.LoadFromFile('TextoPlano.txt');

Saludos.