Substituir String por Integer

Delphi

25/06/2004

Olá gostaria de saber como faço para substituir letras por números. Ex.: ´ABCDEFGHIJ´ por ´1234567890´, se eu escrever ´CFA´ retornar ´361´, ou seja, cada letra vai sempre valer um número.

[b:afcc9a874f]procedure [/b:afcc9a874f]TForm1.Button1Click(Sender: TObject);
[b:afcc9a874f]begin[/b:afcc9a874f]
.
.
.
Converter letras em números;
.
.
.
[b:afcc9a874f]end;[/b:afcc9a874f]


Dgsfilho

Dgsfilho

Curtidas 0

Respostas

Bon Jovi

Bon Jovi

25/06/2004

Se forem só essas poucas letras mesmo, fica mais fácil assim:

function ConverteLetrasParaNumeros(Letras: string): string;
var
  i: Integer;
begin
  for i := 1 to Length(Letras) do
  begin
    case Letras[i] of
      ´A´: Letras[i] := ´1´;
      ´B´: Letras[i] := ´2´;
      ´C´: Letras[i] := ´3´;
      //restante...
    end;
  end;
  Result := Letras;
end;



GOSTEI 0
Emerson Nascimento

Emerson Nascimento

25/06/2004

se forem muitas letras, tente assim:

function ConverteLetrasParaNumeros(Letras: string): string;
var
    i: Integer;
begin
    Result := ´´;
    for i := 1 to Length(Letras) do
        Result := Result + FormatFloat(´00´,Ord(AnsiUpperCase(Letras[i])[1])-64)[2];
end;


GOSTEI 0
POSTAR