Fórum Valores de produtos em código #188746

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function ConverteValor(Value: String): String;
  public
    { Public declarations }
  end;

const
  ValDig: array[0..9] of Char = (´X´,´A´,´B´,´C´,´D´,´E´,´F´,´G´,´H´,´I´);
var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.ConverteValor(Value: String): String;
var
  I: Word;
begin
  Result := ´´;
  for I := 1 to Length(Value) do
    if Value[I] in [´0´..´9´] then
       Result := Result + ValDig[StrToInt(Value[I])];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit2.Text := ConverteValor(Edit1.Text);
end;

end.