Cita:
Empezado por kirios
Hola, una duda rápida.
Tengo un archivo de texto, el cual abro para reescribir (Assignfile,rewrite,etc)
Necesitaria escribir un dato en cada linea, pero no desde el principio, sino desde mas adelante, por ejemplo, escribir un 4 en la posicion 20 de la primera linea; un 7 en la posicion 20 de la segunda linea, y asi.
|
No sé si entiendo bién lo que buscas, pero ajustandome lo que comentas arriba tendrías que poner tantos caracteres delante del dato como posicion desees que este.
A modo de ejemplo, para poner un asterisco en 40 líneas en las posiciónes 1 / 40 sucesivamente sería:
Código Delphi
[-]
var
Arch: TextFile;
i: Integer;
Dato: string;
begin
AssignFile(Arch,'C:\ARCHIVO.TXT');
Rewrite(Arch);
Dato:= '*';
for i:= 1 to 40 do
Writeln(Arch, StringOfChar(' ', i) + Dato);
CloseFile(Arch);
end;
Saludos.