Siguiendo con el ejemplo de dec, solo tenemos que darle formato a la cadena:
Código Delphi
[-]
var
ts: TStrings;
Str1, Str2, Str3: string;
begin
ts := TStringList.Create;
try
Str1:= 'X';
Str2:= '2';
Str3:= 'ESTA ES UNA';
ts.Add(Format('%-5.5s%-5.5s%s',[Str1,Str2,Str3]));
ts.SaveToFile('d:\coordenadas.txt');
finally
ts.Free;
end;
end;
La parte interesante del código anterior es la cadena '%-5.5s%-5.5s%s' que le indica a la función format como debe realizar el formato. Esta dividida en 3 partes cada parte empieza por '%' y termina por 's' indicando que la variable es una string. Entre ambos se indica como se debe formatear esa cadena, el símbolo '-' indica que el texto se debe justificar a la izquierda, el primer '5' indica el tamaño mínimo de la cadena (rellenando con espacios en blanco si es necesario) y el segundo el tamaño máximo (recortando si es necesario). Puedes modificar estos valores para obtener el resultado deseado. Y ya me dejo de tanto rollo que en la ayuda explican mejor que yo como va esta función
Espero que te sirva.