Código Delphi
[-]
function GetToken(Cadena,Separador:string;Token:integer):string;
begin
while Token > 1 do
begin
Delete(Cadena,1,Pos(Separador,Cadena));
Dec(Token);
end;
if Pos(Separador,Cadena)>0 then Result:=Copy(Cadena,1,Pos(Separador,Cadena)-Length(Separador))
else
Result:=Cadena;
end;
Código Delphi
[-]var st1, st:string;
begin
st1:= 'hola#pepe# luis';
st:=GetToken(st1,'#',2);