Retourne les tokens se trouvant à la position At dans la chaîne S sans les caractères de contrôle et les espaces se trouvant au début et à la fin.
Source / Exemple :
function TokenAt(const S: string; Seperator: Char; At: Integer): string;
var
J, I: Integer;
begin
Result := '';
J := 1;
I := 0;
while (I <= At) and (J <= Length(S)) do
begin
if (S[J] = Seperator) then
Inc(I)
else if (I = At) then
Result := Result + S[J];
Inc(J);
end;
Result := Trim(Result);
end;
Conclusion :
Exemple:
s := "aaa;bb;ccc"
si on lance s1 := rgTokenAt(s, ';', 2)
alors s1 = bb
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.