Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Los mejores trucos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-12-2007
Pedro-Juan Pedro-Juan is offline
Miembro
 
Registrado: ago 2006
Ubicación: Barcelona - España
Posts: 315
Poder: 18
Pedro-Juan Va por buen camino
Poner puntos a los números mayores de 999 y hasta 1M

//Formatea cadenas de números hasta 1 millón
//Seguro que podeís mejorarla, eso si no existe en delphi...

//LO SIENTO, NO ACIERTO A MOSTRARLA CON LAS ETIQUETAS

Llamada:

Delphi [-]
Form1.label1.Caption := FormatIntMax_1M(nCantidad);

Delphi [-]
function FormatIntMax_1M(Cad: Integer): String; Formatea hasta 1 millón
var CadFormat, CadResul: String;
i: Integer;
begin
CadFormat := Trim(IntToStr(Cad));
CadResul := '';
i := 1;
//Cantidades Entre 0 y 999
if (Length(CadFormat) < 4) then Result := CadFormat; //La deja como está
//Cantidades Entre 1.000 y 9.999
if (Length(CadFormat) = 4) then begin
while (i < 5) do begin
if (i = 1) then begin
CadResul := CadResul + Copy(CadFormat,i,1);
CadResul := (CadResul + '.');
end
else begin
CadResul := (CadResul + Copy(CadFormat,i,1));
end;
i := (i + 1)
end;
Result := CadResul;
end;
//Cantidades Entre 10.000 y 99.999
if (Length(CadFormat) = 5) then begin
while (i < 6) do begin
if (i = 2) then begin
CadResul := CadResul + Copy(CadFormat,i,1);
CadResul := (CadResul + '.');
end
else begin
CadResul := (CadResul + Copy(CadFormat,i,1));
end;
i := (i + 1)
end;
Result := CadResul;
end;
//Cantidades Entre 100.000 y 999.999
if (Length(CadFormat) = 6) then begin
while (i < 7) do begin
if (i = 3) then begin
CadResul := CadResul + Copy(CadFormat,i,1);
CadResul := (CadResul + '.');
end
else begin
CadResul := (CadResul + Copy(CadFormat,i,1));
end;
i := (i + 1)
end;
Result := CadResul;
end;
end;
Responder Con Cita
  #2  
Antiguo 08-12-2007
Khronos Khronos is offline
Miembro
 
Registrado: abr 2007
Posts: 298
Poder: 17
Khronos Va por buen camino
No hace falta todo eso para poner el punto de los miles. Con esto te llega:

Código Delphi [-]
 edit1.text:=FormatFloat('#,', strtoint(edit1.text));

//En el edit pones un numero mayor de 999

Salu2
Responder Con Cita
  #3  
Antiguo 26-12-2007
Avatar de javier7ar
javier7ar javier7ar is offline
Miembro
 
Registrado: abr 2006
Ubicación: Argentina
Posts: 124
Poder: 18
javier7ar Va por buen camino
es verdad, yo uso FormatFloat('#,##0.00',Valor_Decimal) que te pone los dos decimales tambien aparte del separador de miles
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 17:52:51.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi