Escribir en un texto desde cierta posición

[kirios]

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!