Pb avec la fonction COPY

ex: dans un composant TEdit je rentre ceci :2/3; ou bien 2*7

Je veux qu'il crée 2 sous chaînes dans lesquelles serait placé le chiffre placé avant et après l'opérateur (+, -, *, /), c'est là que je ne sais pas faire, snif :(

Et ensuite qu'il me ponde comme par magie le résultat. Pour cette dernière je n'ai pas de souci :)

Je remercie au passage AlexanderPopov, Stailer, DelphiProg ainsi que DelphiCoolcar ils m'ont bien aidé dans ma progression.

F@ust

L idee serait, je pense, de te faire un tableau de constantes chaines qui contient tes operateurs. Ensuite, tu fais une petite fonction qui te permet de determiner s'il y a un operateur de ton tableau dans la chaine (en utilisant la fonction Pos, regarde l aide a ce sujet), sa place et lequel.
a partir de la tu peux diviser ta chaine de base en 2 sous chaines : la premiere du debut de la chaine jusqu a la position de ton operateur, la seconde de la position de ton operateur jusqu a la fin...

ensuite, si tu veux gerer plusieur operateurs dans la meme chaine tu n as qu a appeler recursivement tes routines de traitement pour rediviser chaque sous chaine en 2 chaines, et ainsi de suite... je ne sais pas si je suis tres clair, mais j'espere que ca t aidera



-------------------------------
Réponse au message :
-------------------------------

> ex: dans un composant TEdit je rentre ceci :2/3; ou bien 2*7
>
> Je veux qu'il crée 2 sous chaînes dans lesquelles serait placé le chiffre placé avant et après l'opérateur (+, -, *, /), c'est là que je ne sais pas faire, snif :(
>
> Et ensuite qu'il me ponde comme par magie le résultat. Pour cette dernière je n'ai pas de souci :)
>
> Je remercie au passage AlexanderPopov, Stailer, DelphiProg ainsi que DelphiCoolcar ils m'ont bien aidé dans ma progression.
>
> F@ust

j'ai encore mieux:
tu utilises la fonction StrToken avec comme argument soit '+' , '-' , '*' , '/' .

$$$$$$$$----Padsou----$$$$$$$$


-------------------------------
Réponse au message :
-------------------------------

> L idee serait, je pense, de te faire un tableau de constantes chaines qui contient tes operateurs. Ensuite, tu fais une petite fonction qui te permet de determiner s'il y a un operateur de ton tableau dans la chaine (en utilisant la fonction Pos, regarde l aide a ce sujet), sa place et lequel.
> a partir de la tu peux diviser ta chaine de base en 2 sous chaines : la premiere du debut de la chaine jusqu a la position de ton operateur, la seconde de la position de ton operateur jusqu a la fin...
>
> ensuite, si tu veux gerer plusieur operateurs dans la meme chaine tu n as qu a appeler recursivement tes routines de traitement pour rediviser chaque sous chaine en 2 chaines, et ainsi de suite... je ne sais pas si je suis tres clair, mais j'espere que ca t aidera
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > ex: dans un composant TEdit je rentre ceci :2/3; ou bien 2*7
> >
> > Je veux qu'il crée 2 sous chaînes dans lesquelles serait placé le chiffre placé avant et après l'opérateur (+, -, *, /), c'est là que je ne sais pas faire, snif :(
> >
> > Et ensuite qu'il me ponde comme par magie le résultat. Pour cette dernière je n'ai pas de souci :)
> >
> > Je remercie au passage AlexanderPopov, Stailer, DelphiProg ainsi que DelphiCoolcar ils m'ont bien aidé dans ma progression.
> >
> > F@ust
>

merci pour vos réponse mais vous n'auriez pas des exemples????

C'est quoi StrToKen?
MagicVinni


-------------------------------
Réponse au message :
-------------------------------

> merci pour vos réponse mais vous n'auriez pas des exemples????

procedure TForm1.ALaCon;
var i, l : Integer;
S, S1, S2 : String;
begin
S := '2+4';
i := Pos( '+', S);
l := Length( S);
S1 := Copy( S, 1, i - 1);
S2 := Copy( S, i + 1, l - i);
end;

ca c un exemple a la con (c est le cas de le dire) pour le Pos et le Copy, apres c est a toi de l ameliorer...

je connait pas non plus StrToken, et j ai po trouve dans l aide....



-------------------------------
Réponse au message :
-------------------------------

> merci pour vos réponse mais vous n'auriez pas des exemples????

euh, tu aura compris, je pense que tu recupere '2' dans S1 et '4' dans S2



-------------------------------
Réponse au message :
-------------------------------

> procedure TForm1.ALaCon;
> var i, l : Integer;
> S, S1, S2 : String;
> begin
> S := '2+4';
> i := Pos( '+', S);
> l := Length( S);
> S1 := Copy( S, 1, i - 1);
> S2 := Copy( S, i + 1, l - i);
> end;
>
> ca c un exemple a la con (c est le cas de le dire) pour le Pos et le Copy, apres c est a toi de l ameliorer...
>
> je connait pas non plus StrToken, et j ai po trouve dans l aide....
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > merci pour vos réponse mais vous n'auriez pas des exemples????
>

Merci les gars, c'est cool, c'est pile poil ce qu'il me fallait.
PS: Magicvinni, je sais pas du tout ce que c'est StrToKen, arf c'est pas grave maintenant que j'ai ce qu'il me faut lol


Faust

StrToken c'est une méthode contenue dans M99_f02.pas, unite qui contient plein de routines utiles.

Exemple pour StrToken :

ligne = ceci;est;un;essai;
résultat := StrToken(Ligne, ';');
résultat = ceci;
résultat := StrToken(Ligne, ';');
résultat = est;

etc...

J'espere que vous avez compris...

$$$$$$$$----Padsou----$$$$$$$$


-------------------------------
Réponse au message :
-------------------------------

> Merci les gars, c'est cool, c'est pile poil ce qu'il me fallait.
> PS: Magicvinni, je sais pas du tout ce que c'est StrToKen, arf c'est pas grave maintenant que j'ai ce qu'il me faut lol
>
>
> Faust

Pourrais-tu mieux expliquer ton exemple stp je n'ai pas bien saisi, merci d'avance