Comme je l'explique c'est une commande comme mIRC, un while qui recherche le mot voulu.
Je suis nouveau en delphi mais cette commande mes telement pratique, je l'ai cherché mais sa exploit.
Se qui faut pas oublier c'est que dans ma commande j'ai mis un if que le N dois être supérieur 1. Car avec un Copy normal tu peux très bien retrouvé le premier mot ou string voulus.
Pour avoir la commande:
var := Gettok('Ta Phrase',N,#32);
(Le N = au Nième mots recherché
Et le #32 et biensûr le char numéro 32 .
Source / Exemple :
function GetTok(Phrase: string; Num: Integer; Char: string): string;
var
g1, g2 : string;
g4, g7, i : Integer;
begin
if (Num > 0) then // pour retour premier mot
begin
i := 1;
g2 := Phrase + Char; // pour retour dernier mot
while (i < Num) do
begin
g4 := Length(g2); { Nombre de caractère de la phrase }
g7 := Length(Copy(g2,1,Pos(Char,g2)-1)); { Nombre de caractère du Premier Mot }
g1 := Copy(g2,g7+2,Pos(#32,g2)+g4); { Phrase - le mot donnée }
g2 := g1;
i := i+1
end;
Result := Copy(g2, 1, Pos(Char, g2)-1); // pour retour 1er mot
end;
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.