Cita:
Empezado por cadetill
Tony, a ver que te parece esto en lugar de esos case
Código Delphi [-]
Cuatroprimeros := FormatFloat('0000', StrToInt(Cuatroprimeros));
OchoSegundos:= FormatFloat('00000000', StrToInt(OchoSegundos));
|
Curioso lo del FormatFloat, no se me hubiera ocurrido nunca
Si teneis las rxlibs, viene una unidad llamada nkstrs.pas, con funciones como PadLeft y padRight, que añade cualquier caracter por la derecha o por la izquierda.
Y ya que usas paradox, echale una visual a la unidad bdeutils que trae las rxlibs, para hacer un pack de las tablas y muchas otras cositas interesantes
Saludos