Função StrTrans : Substitui uma string por outra dentro de uma variável string.
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.
Sign up to our newsletter
Receive our latest updates about programming languages, software, database, books, ebooks, classes, jobs and more.
Related articles
Retornando um Dataset ou um Datareader em uma função
Descrição do artigo publicado no aspneti.com, cada artigo com seu resumo
Função QtdDiasUteis : Faz o calculo de dias úteis.
Descrição do artigo publicado no aspneti.com, cada artigo com seu resumo