Como descobrir a posição de um carácter dentro de uma string a partir de uma posição inicial?
Esta função é uma extensão da função Pos, que permite
procurar ocorrências de texto dentro de uma string,
depois de determinada posição.
É necessário estar declarado StrUtils na seção uses,
em versões unicode declare System.StrUtils;
Função do Delphi: PosEx(SubString, String, posição inicial)
Retorno: Integer;
Exemplos de uso
1
2
3
4
5
6
7
8
9
10
| procedure TForm1.Button1Click(Sender: TObject);
begin
{ Neste exemplo a função vai procurar a primeira
ocorrência de "t" a partir da terceira letra. }
ShowMessage(IntToStr(PosEx('t', 'texto', 3)));
{ Neste caso retorna 0 porque não há ocorrência de
"w" após o sexto caractere }
ShowMessage(IntToStr(PosEx('w', 'Show Delphi', 6)));
end; |
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Neste exemplo a função vai procurar a primeira
ocorrência de "t" a partir da terceira letra. }
ShowMessage(IntToStr(PosEx('t', 'texto', 3)));
{ Neste caso retorna 0 porque não há ocorrência de
"w" após o sexto caractere }
ShowMessage(IntToStr(PosEx('w', 'Show Delphi', 6)));
end;
-
InfusTec
-
13.219 views
- 0 comentários
- 27 de março de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo