GETTOK STYLE
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
-
19 mai 2004 à 17:20
cs_OmbreNoir Messages postés 67 Date d'inscription samedi 1 février 2003 Statut Membre Dernière intervention 10 juin 2011 - 19 mai 2004 à 21:27
cs_OmbreNoir Messages postés 67 Date d'inscription samedi 1 février 2003 Statut Membre Dernière intervention 10 juin 2011 - 19 mai 2004 à 21:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/22934-gettok-style
https://codes-sources.commentcamarche.net/source/22934-gettok-style
19 mai 2004 à 21:27
19 mai 2004 à 17:20
Mais on n'obtient pas le dernier mot du String non plus...
Donc, si l'on veut garder la fonction telle quelle, tout en désirant que le premier mot ET le dernier soient retournés :
function GetTok(Phrase: string; Num: Integer; Char: string): string;
var
g1 : string;
g2 : string;
g4 : Integer;
g7 : integer;
i : integer;
begin
//if (Num > 1) then
if (Num > 0) then // pour retour premier mot
begin
i := 1;
//g2 := Phrase;
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(g1,1,Pos(Char,g1)-1);
Result := Copy(g2, 1, Pos(Char, g2)-1); // pour retour 1er mot
end;