Class

[jakuna]

Tienes razon xEsk creo q mejor implemento la clase y la adjunto para q me puedan ayudar...

Gracias por lo del format y lo de los '-', no quiero sonar espeso pero lo q no queria usar era un numero al azar como el 10 y estoy pensando en algo con el ancho del listbox una function q me devuelva el ancho del listbox y luego aplicar lo q me sugieres

[[xEsk]]

Quizás te parecerá chorra mi solución, pero visualmente es efectiva! xDD Y es poner casi tantos '-' según el width del ListBox...

Con un ejemplo se entiende mejor:

Código Delphi [-]
// función para crear la línea de texto
function StringLine(const LineChar: Char; const Len: Integer): String;
var
  n: Integer;

begin
  Result:='';
  for n:=1 to Len do Result:=Result + LineChar;
end;

Usando la función y el "truco":

Código Delphi [-]
// usando la función para crear una línea de '-'
ListBox1.Items.Add(StringLine('-', ListBox1.Width div 4));

Por qué divido por 4? La respuesta es porqué los guiones (-) tienen una anchura superior a 1 píxel, así pues no necesito tantos guiones para cubrir la anchura del ListBox. Eso sí, si cambias el ancho del ListBox en tiempo de ejecución, se jodió el invento!! xD.

Sé que quizás la solución que te he propuesto, es realmente estúpida y quizás mala, pero es la primera que se me ha ocurrido en 1 minuto xD Si se me ocurre algo mas profesional, te lo comento...!!

Saludos.

[jakuna]

xEsk me parece muy buena solucion yo la estaba viendo con el ancho tb pero no sabia cuantos guiones entraban en ese espacio y bien con el dato no sabia q los guiones tenian mas de un pixel.
Gracias