Código
begin
Result := Copy(S, 1, Pos(TK, S) - 1);
S := Copy(S, Pos(TK, S) + 1, Length(S) - Pos(TK, S));
end;
Exempo:
Se a String for : NOME;FERNANDO;IDADE;18
Use assim:
NOME := PegaToken('NOME;FERNANDO;IDADE;18',';');
IDADE := PegaToken('IDADE;18',';');
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009