Obtendo a Posição Inicial da Próxima palavra após o caracter indicado por ‘InitPos’

Function NextPosWord (S :  ShortString; InitPos, Mode : Byte) : Byte;
Var
  I : Integer;
Begin
  InitPos := Min (Max (InitPos, 1), Length(S));
  if Mode = mdDescend Then
    I := -1
  else
    I := 1;
  while ((InitPos <= Length(S)) And (InitPos > 0) And (S[InitPos] <> ' ')) Do
    Inc (InitPos, I);
  while ((InitPos <= Length(S)) And (InitPos > 0) And (S[InitPos] = ' ')) Do
    Inc (InitPos, I);
  if InitPos > Length (S) Then
    InitPos := 0;
  NextPosWord := InitPos;
End;

Fonte: Dicas e Truques Delphi v 2.6

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s