[ezequiel913]

hola Newtron!!!

bueno te comento lo que me pasaste me anduvo, pero ahora no me exporta lo que quiero. asi me quedo el codigo final.

Código Delphi [-]
procedure TForm1.ExportarClick(Sender: TObject);
var
  i: Integer;
  s, TS: string;
  T: TextFile;
  FullPath: String;
begin

   Dialogo.Initialdir := ExtractFilePath(application.ExeName) ;
   Dialogo.Title  := 'Indicar localización y nombre del archivo a grabar';
   Dialogo.Filter := 'Archivos txt|*.txt';
   if Dialogo.Execute then begin
     If FileExists(Dialogo.Filename) then begin
       if Application.MessageBox('El fichero ya existe, ¿desea reemplazarlo?','ATENCION',mb_YesNo+mb_iconwarning) <> mrYes then exit;
         DeleteFile(Dialogo.Filename);
       end;
     FullPath:=Dialogo.Filename;
     end
   else begin
     exit;
   end;
    AssignFile(T,FullPath);

  TS:= '';
  for i:= 0 to DBGRid1.Columns.Count -1 do
   TS:= TS + DBGrid1.Columns[i].Title.Caption + TAB;
   Writeln(T, TS);       // aca esta el problema recorre todo el FOR pero    cuando tiene que escribir no lo hace me tira un error.
   Writeln(T);

   CP:= trim(DBGrid1.Columns[0].Field.AsString);
   LOCALIDAD:= trim(DBGrid1.Columns[1].Field.AsString);
   PROVINCIA:= trim(DBGrid1.Columns[2].Field.AsString);


   s:= '';
   s:= s + CP + TAB + LOCALIDAD + TAB + PROVINCIA;

   Writeln(T, s); // guardar campos formateados del registro

  CloseFile(T);

end;

bueno el problema esta en la parte de escribir, nose por que no lo hace, sera por que no asigna bien la ubicacion ala variable TextFile??

este es el error que me devuelve:



esto me lo muestra despues de salir del primer FOR y al pasar por la linea de WRITELN (T, TS).

bueno saludos, gracias!!!