Função do Delphi
Pos(Caracter a ser localizado, texto);
Retorno: Integer
Para o exemplo, declare Dialogs e SysUtils,
Em versões unicode declare Vcl.Dialogs e System.SysUtils.
Exemplos de uso:
1 2 3 4 5 6 7 8 9 10 11 | procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('O "x" esta na posição ' + IntToStr(Pos('x', 'texto'))); ShowMessage('O "i" esta na posição ' + IntToStr(Pos('i', 'Delphi XE 7'))); ShowMessage('O "D" esta na posição ' + IntToStr(Pos('D', 'Show Delphi'))); // Caso o caracter não exista, a função retorna 0 ShowMessage('O "W" esta na posição ' + IntToStr(Pos('W', 'Comunidade'))); end; |
