[escorpionrojo43]

Hola Amigos del Club
mi codigo es el siguiente:

procedure DBText33OnPrint;
begin
case floattostr (DBPipeline1['DTI_PRECIO']) of
1 : Label29.caption := 'T';
2 : Label29.caption := 'E';
3 : Label29.caption := 'R';
4 : Label29.caption := 'M';
5 : Label29.caption := 'I';
6 : Label29.caption := 'N';
7 : Label29.caption := 'A';
8 : Label29.caption := 'D';
9 : Label29.caption := 'O';
0 : Label29.caption := 'S';
else Label29.caption := '.';
end;

end;


mi problema es que DTI_PRECIO es un valor double como lo indica su nombre aqui se guarda el precio de un producto, el cual deseo encriptarlo a la hora de imprimir necesito que cada numero aquiera su valor especificado mas arriba. si DTI_PRECIO = 100.00 que a la hora de imprimir se muestre TSS.SS. espero que alguien me pueda ayudar. gracias