Valores de produtos em código

Delphi

15/10/2003

Caros colegas,
Estou precisando de uma pequena ajuda. É que estou criando um sistema para uma loja móveis e o valor de cada um dos produtos da loja deve ser impresso em códigos (trocando números por letras).

Ex.: Loja de Móveis

X=0, A=1, B=2, C=3, D=4, E=5, F=6 ... I=9

Portanto se o valor do produto for R$ 253,00, na etiqueta de preço deve sair assim conforme tabela acima.

Valor = [b:ebaa7d9737]BECXX[/b:ebaa7d9737] (B VALE [b:ebaa7d9737]2[/b:ebaa7d9737] E VALE [b:ebaa7d9737]5[/b:ebaa7d9737] E ASSIM POR DIANTE...

Valeu!!!

WENDEL PIRES


Wendel Teixeira

Wendel Teixeira

Curtidas 0

Respostas

Adilsond

Adilsond

15/10/2003

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.



GOSTEI 0
POSTAR