Cita:
Empezado por ecfisa
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. |
Hola! Para verlo mas claro, estoy buscando la manera de escribir en un texto pero no alineado a la izquierda, sino en el centro, o en este caso, tantos caracteres mas a la derecha como yo quiera. Ej
Tengo el archivo siguiente:
ProductoA
ProductoB
ProductoC
Mi idea es hacer lo siguiente
ProductoA 4
ProductoB 2
productoC 5
ect. Los productos tienen diferentes longitudes y espacios. La idea es que los numeros que re-escribo queden alineados.
Gracias!