Discussion :

[shell13010]

Bonjour a tous

J'aimerais savoir comment je pourrais faire pour generé un nombre avec un StringReplace car en effet je suis obliger d'executer avec une sale performance si je dois en faire 20 voici l'exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Edit1.Text:= StringReplace(edit1.Text,'fin',ici genere 0',1',[]);

donc j'aimerais generer 1,2,3... dans un StringReplace

es possible? car sinon je suis obliger d'utiliser StringReplace 20 fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Edit1.Text:= StringReplace(edit1.Text,'0,1','1,1',[]);

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Edit1.Text:= StringReplace(edit1.Text,'1,1','2,1',[]);

bref vous avez compris que sa fait pas très propre

Auriez vous une idées sur ma question?

merci d'avance pour votre aide..

[khaled-benloucif]

bref vous avez compris que sa fait pas très propre

Je vois pas du tout qu'est ce que tu veux au juste!
si j'ai bien compris, tu veux ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
procedure TForm1.Button1Click(Sender: TObject);
var I: Integer;
    OldStr, NewStr: String;
begin
 OldStr:= '0.1';
 Edit1.Text:= 'patati patata ...'+OldStr;
 for I:= 1 to 19 do
  begin
   NewStr:= IntToStr(I)+',1';
   Edit1.Text:= StringReplace(edit1.Text, OldStr, NewStr,[]);
   OldStr:= NewStr;
   Sleep(200);
   Application.ProcessMessages
  end
end;

pour visualiser l'effet désiré, j'ai mis ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   Sleep(200);
   Application.ProcessMessages

[shell13010]

Salut

en faite oui c'est a peu pres sa mais j'ai regler mon probleme en le modifiant merci