Delphi - Clave de Costo de Compra

Hola a todos,

Mi problema es el siguiente:
mi cliente quiere que al costo del producto se le genere un campo en letras o clave secreta, por ejemplo si el costo es 376.80 la clave sera DAW.LT

esto es tomando como patron lo siguiente:

0= T
1 = C
2 = X
3= D
4=E
5=M
6=W
7= A
8 = L
9 = O

Espero que lo haya explicado bien, MUCHAS GRACIAS DE ANTE MANO

Lo que quiere tu cliente está claro como el agua pura y cristalina, pero ¿que quieres tú?

Eva, lo que necesito es exactamente lo que quiere mi cliente: osea traducir la cantidad numerica a alfanumerica segun lo explicado en la primera nota.,

Delfino, realmente busque la ayuda pero no logro entender, si pudieras ser mas explicito de lo agradeciera..

Muchas gracias a los 2 por leer mi nota...

Utiliza un TStringList con entradas de tipo Name=Value, en la ayuda se explica muy bien, consultar la propiedad Names o Values..

También te puedes hacer una rutina ...

procedure TForm1.Edit1Exit(Sender: TObject);
var
sNumero, sDigito, sClave: string;
i: integer;
begin
sNumero := Trim(Edit1.Text);
sClave := '';
For i := 1 to length(sNumero) do
begin
sDigito := Copy(sNumero, i, 1);
if sDigito = '0' then sClave := sClave + 'T'
else if sDigito = '1' then sClave := sClave + 'C'
else if sDigito = '2' then sClave := sClave + 'X'
else if sDigito = '3' then sClave := sClave + 'D'
else if sDigito = '4' then sClave := sClave + 'E'
else if sDigito = '5' then sClave := sClave + 'M'
else if sDigito = '6' then sClave := sClave + 'W'
else if sDigito = '7' then sClave := sClave + 'A'
else if sDigito = '8' then sClave := sClave + 'L'
else if sDigito = '9' then sClave := sClave + 'O'
else if sDigito = '.' then sClave := sClave + '.';
end;
ShowMessage(sNumero + ' = ' + sClave)
end;

gracias Eva, exactamente lo que necesitaba...