Buscar por:

Tokens - pega a palavra de posição n separado pelo simbolo especificado

Código

Function token(tmp:string;p:integer;c:string):string;

var

  cp,i,j,u:integer;

  temp:string;

begin

  temp:='';

  cp:=0;

  i:=1;

  u:=1;

  tmp:=tmp+c;

  while (i <= length(tmp)) do

  begin

    if tmp[i] = c then

    begin

      inc(cp);

      if cp = p then

        for j:=i downto u do

          temp:=temp+tmp[j]

      else u:=i;

    end;

    inc(i);

  end;

  tmp:='';

  for i:=length(temp) downto 1 do

    if (temp[i] <> c) then

      tmp:=tmp+temp[i];

  result:=tmp;

end;

{fui eu msmo quem fez, o codigo é meio porco pois ñ conheço ainda todas as funcoes que trabalham com string do pascal.. mas ta ai.. é muito util

Uso: 

Token('frase',POSICAO A SER PEGA,'caracter de separacao')

Exemplos: 

}

EDIT1.TEXT:= token('txt1.txt2.txt3',2,'.')

//o retorno será: txt2 

EDIT1.TEXT:= token('robson vargas delphi',3,' ')

//o retorno será: delphi