Ver Mensaje Individual
  #2  
Antiguo 27-01-2011
llSnakell llSnakell is offline
Miembro
NULL
 
Registrado: ene 2011
Posts: 73
Reputación: 16
llSnakell Va por buen camino
Hola

Esto es lo que realmente no entiendo ....

Código Delphi [-]
procedure tform2.mostrarclick(sender: tobject);
var
num,cuadrado,cubo,i:integer;
linea,i2,cuadrado2,cubo2:string; //i2=convierte las variables en caracteres
begin
num:=strtoint(numero.text);
//ponemos los títulos con formatos contando espacios
linea:=format('%5s%6s%5s%8s%6s%4s',[' ','numero',' ','cuadrado',' ','cubo']);
salida.items.add(linea); //añade la "linea" al "listbox"
linea:=format('%5s%6s%5s%8s%6s%4s',[' ','________',' ','__________',
' ','_____']); //pone subrayados los títulos de la línea anterior
salida.items.add(linea);

Podrian ayudarme

Gracias.

Saludos.

Última edición por Casimiro Noteví fecha: 27-01-2011 a las 01:32:06.
Responder Con Cita