Alineacion de valores numericos en Printer

[eber]

Hola, me hice esta funcion para poder alinear a la derecha, fijate si te sirve:

function ubica(s: string):integer;
var aux: byte;
begin
aux:= 8 - length(s);
ubica:= 25 * aux;
end;


Nota: cadena de hasta 8 caracteres.

Ejemplo de llamada:
TextOut ( (2090+ubica(label1.caption)), 1675, label1.caption);

Salutes!

[jachguate]

Que significa el factor 25 que utilizas?

Has considerado que pasa con cadenas largas y tipos de fuente no monospace?

[eber]

Bueno , esa funcion me sirvio a mi para alinear precios de unos productos que no superaban a 99.999,99. Por eso el 8 y no probe con strings con espacios.
El factor 25 es el ancho aproximado de un caracter. (Usando printer.canvas)

[jachguate]

Empezado por eber

que no superaban a 99.999,99. Por eso el 8

length('99.999,99') = 9, no 8

Empezado por eber

El factor 25 es el ancho aproximado de un caracter. (Usando printer.canvas)

En todo caso, eso dependerá del tipo de letra y el tamaño elegido. Por ello he usado la función TextWidth, del canvas, que te devuelve el ancho exacto de cualquier cadena tomando en cuenta estas variables.

Hasta luego.

[eber]

No uso separadores de miles, perdon: 99999,99 = 8
Gracias por el dato TextWidth

Salutes