Buscar

Função de Codificação

Código

Uma função de Codificação, onde o parâmetro string da função é codificada da seguinte forma: todos os caracteres 'A' ou 'a' são substituídos por '1', os caracteres 'B' e 'b' são substituídos por '2', e todos os caracteres 'C' e 'c', são substituídos por '3'.

function Codificacao(psTexto: String): String;
var
  I: Integer;
begin
  for I := 1 to Length(psTexto) do
  begin
    case psTexto[I] of
      'a', 'A' : psTexto[I] := '1';
      'b', 'B' : psTexto[I] := '2';
      'c', 'C' : psTexto[I] := '3';
    end;
  end;
  Result := psTexto;
  ShowMessage('Texto codificado :' + Result);
end;

>> Testando <<

-> Coloque um Edit e um Button no Form.
-> No evento OnClick do Button adicione o seguinte código:

var
  sTexto, sResultado : String;
begin
  sTexto := Edit1.Text;
  sResultado := Codificacao(sTexto);
end;

Abraços,
Vinícius Fernandes!
   

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 27/07/09
Por: Vinícius Fernandes Silva
Visualizada: 3235 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009