Cómo agregar números encolumnados

[[oscarac]]

pues no entendi...
podrias colocar un ejemplo de lo que necesitas?
o sera algo asi

unidades Decenas centenas
....1...........2...........1
....0...........1...........0
....0...........2...........1
....3...........3...........0

[[newtron]]

Hola.

No lo he probado pero si usas una fuente que no sea truetype y le rellenas con los espacios que se necesiten a la izquierda imagino que te dará el resultado que buscas.

Saludos

[ecfisa]

Hola.

Lo más importante para que se pueda alinear es, como bién dice newtron, el tipo de fuente utilizado.
Una forma alternativa al llenado de espacios a la izquierda es usando la función Format.

Por ejemplo:

Código Delphi [-]
  with ListBox1 do
  begin
    Font.Name:= 'Courrier';
    Clear;
    Items.Add(Format('%4d',[1]));
    Items.Add(Format('%4d',[10]));
    Items.Add(Format('%4d',[10]));
    Items.Add(Format('%4d',[100]));
  end;

Un ejemplo para el caso de que fueran valores punto flotante :

Código Delphi [-]
  Format('%4.2f',[3.14]);

Mas datos en la ayuda de Delphi (Format Strings).

Saludos.

[CarlosAlberto]

Estimado amigo del club: probé y no me quedaron los puntos decimales encolumnados. Habrá otra forma de lograrlo?
Gracias.
Carlos Alberto

[ecfisa]

Hola Carlos.

De este modo a mi me los encolumna correctamente de acuerdo al separador decimal:

Código Delphi [-]
  with ListBox1 do
  begin
    Font.Name:= 'fixedsys';
    Items.Add(Format('%12.3f',[3.120]));
    Items.Add(Format('%12.3f',[-3.120]));
    Items.Add(Format('%12.3f',[12.345]));
    Items.Add(Format('%12.3f',[-12.345]));
    Items.Add(Format('%12.3f',[123.214]));
    Items.Add(Format('%12.3f',[-123.214]));
  end;

Un saludo.

[[duilioisola]]

Lo que tienes que lograr es que todos los números tengan la misma cantidad de decimales y luego utilizar este truco.

Código Delphi [-]
// Extraido de http://delphi.about.com

procedure TForm1.FormCreate(Sender: TObject) ;
begin
   ComboBox1.Style := csOwnerDrawFixed;
   //for a ListBox use "lbOwnerDrawFixed"
end;

//The OnDrawItem event handler
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
   Rect: TRect; State: TOwnerDrawState) ;
var
   x: Integer;
   txt: String;
begin
   with ComboBox1 do
   begin
     Canvas.FillRect(Rect) ;
     txt := Items[Index];
     x := Rect.Right - Canvas.TextWidth(txt) - 4;
     Canvas.TextOut(x, Rect.Top, txt) ;
   end;
end;

Para lo de los decimales mira la función Format().
Ejemplo de Delhi 6:

Código Delphi [-]
Format('%8.2f', [123.456]). 
// Esto da formato al número en el array con 8 dígitos y 2 decimales..

También se pueden agregar más elementos...

Código Delphi [-]
Format('Cantidad %d * € %8.2f = %8.2f', [12, 123.456, (12 * 123.456)])
// Esto devuelve 'Cantidad 12 * 12.45 = 1481.47'

[CarlosAlberto]

Estimado amigo del club: lo que quiero es que el punto decimal de los distintos números que introduzca quede siempre en la misma posición dentro del listbox1
Ejemplo:
12.345
-3.120
0.237