Fórum Substituir String por Integer #239606
25/06/2004
0
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]
[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
Curtir tópico
+ 0
Responder
Posts
25/06/2004
Bon Jovi
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;
Responder
Gostei + 0
25/06/2004
Emerson Nascimento
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)