Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Debes pasar el archivo de texto línea a línea a otro archivo agregando en cada una la cantidad de espacios que necesites, por ejemplo:
var Entrada, Salida: Text; Linea: String; begin Assign(Entrada,'TextIn.txt'); Assign(Salida,'TextOut.txt'); reset(Entrada); rewrite(Salida); while not eof(Entrada) do begin ReadLn(Entrada, Linea); Linea:=' '+Linea; WriteLn(Salida, Linea); end; { while } Close(Entrada); Close(Salida); end;
Esta es una función donde le pasas la cadena que deseas formatear y el tamaño máximo de la columna en caracteres.
function Tabular(Columna: string; Tamano:integer): string; var Col: string; Hasta: integer; begin Col:=''; Hasta:=Length(Columna); if Hasta > Tamano then Hasta:=Tamano; for i:=1 to Hasta do Col:=Col + Columna[i]; if Hasta < Tamano then for i:=(Hasta + 1) to Tamano do Col:=Col+#32; Tabular:=Col; end;
Luego en tu programa puedes usarla así WriteLn(ArchDeTexto, Tabular(Columan1, 30)+Tabular(Columna2, 30));