numero encriptado o en clave

[escorpionrojo43]

Empezado por Casimiro Notevi

Te pongo un ejemplo para que lo adaptes, pero te servirá de referencia:

He creado un proyecto nuevo y en el formulario he añadido un par de etiquetas, un par de edits y un botón:

bt1: TButton;
ed1: TEdit;
ed2: TEdit;
lb1: TLabel;
lb2: TLabel;

Y este es el código completo del programita:


Código Delphi [-]unit Unit25; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) bt1: TButton; ed1: TEdit; ed2: TEdit; lb1: TLabel; lb2: TLabel; procedure bt1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.bt1Click(Sender: TObject); const _CLAVE_ = 'TERMINADOS'; // 1234567890 var cPrecio : string; fPrecio : double; iX, iNum : integer; cSalida : string; begin ed2.Text := ''; cSalida := ''; if ed1.Text='' then fPrecio := 1234567890 else fPrecio := StrToFloat(ed1.Text); cPrecio := FloatToStr(fPrecio); for iX:=1 to length(cPrecio) do begin if pos(cPrecio[iX],'1234567890')>0 then begin iNum := StrToInt(cPrecio[iX]); if iNum=0 then iNum := 10; cSalida := cSalida + _CLAVE_[ iNum ]; end else cSalida := cSalida + cPrecio[iX]; end; // ed2.Text := cSalida; end; end.



Es sólo un ejemplo, se puede hacer de otras formas, ahora sólo hace falta que lo adaptes.

Y aquí la pantallita:

Exelente gracias por tu respuesta, hace lo que necesito. ahora bien existe alguna manera de que no allan caractes dentro de corchetes "[ ]" ,
" cPrecio[iX] "
ya que reportbuilder me da un error de compilacion cuando encuentra estos simbolos? el punto es que quiero que se generen en tiempo de impresion.