Buscar

Copiar String até a Posição X a Y

Código

function PegaToken(var S: String; TK: Char): String;
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',';');
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 15/06/09
Por: Fernando Machado Dos Santos
Visualizada: 13806 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009