Olá pessoal sou Rafael Pedrosa e esse é meu primeiro artigo e nele espero ajudar com uma importante função do dia a dia.

 

Mão na massa.

 

Declare a função:

   function StrTrans(const cString, cFind, cSubst: string ): string;

em seguida de um CTRL+SHIFT+C para o editor do delphi completar o seu código .

 

em seguida adicione ao código:

 

function StrTrans(const cString, cFind, cSubst: string): string;

{Substitui uma substring cFind dentro da string cString

 pela string cSubst}

var nPos: Integer;

    cResult: string;

    nLen: Integer;

begin

   cResult := cString;

   Repeat

     nPos := Pos(cFind, cResult);

     nLen := Length(cFind);

     if nPos > 0 then begin

        Delete(cResult, nPos, nLen);

        Insert(cSubst, cResult, nPos);

     end;

   Until nPos = 0;

   Result := cResult;

end;

 

no exemplo abaixo veremos o uso da função onde faço a troca da vogal A pela vogal O.

 

procedure TForm2.Button1Click(Sender: TObject);

 

var  a : string;

begin

    a := 'RAFAEL';

    a := StrTrans(a,'A', 'O');

    ShowMessage(a);

end;

 

end.