como exportar una tabla paradox a un archivo plano

[hamer]

si alguien me puede colaborar necesito exportar una tabla en paradox por medio de dephi a un archivo plano he mirado por muchos lados y no he podido realizar esta operación la verdad no conozco delphi y por eso es tan complicado

[ecfisa]

Hola hamer, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

No entiendo a que te refieres con "archivo plano" ¿ A un archivo de texto ?

Saludos.

[[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