Buscar por:

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!