Recuperation variable et generation de code

Version imprimable

22/12/2006, 12h48
newixz

Recuperation variable et generation de code

Bonjour a tous

Voila je souhaite creer un programme qui me genere un code (2codes mais 2boutons) la procedure etant la meme.
pour cela j'ai creer 2boutons, et 2champs tmemo
dans le premier champs j'inscris le nom de ma variable et une fois cliqué sur le bouton je souhaiterais que le code apparaisse dans le 2eme Tmemo
J'ai deja mis mon code dans le string, mais cela ne va pas

En gros est'il possible que le click sur le bouton recupere un bout de code (stocker dans un fichier par-ex) et remplace la variable par celle du premier champs

http://www.hiboox.com/image.php?img=3f5a8604.jpg

j'espere avoir ete clair
je vous remercie pour votre aide

Cdt, julien
22/12/2006, 13h08
gudul

As tu essayé avec un StringReplace ?

non je vais me documenté sur cette fonction merci pour votre reponse
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 function Tform1.ReplaceSub(str, variable1, variable2: String): String; var aPos: Integer; rslt: String; begin aPos := Pos(sub1, str); rslt := ''; while (aPos <> 0) do begin rslt := rslt + Copy(str, 1, aPos - 1) + sub2; Delete(str, 1, aPos + Length(sub1)-1); aPos := Pos(sub1, str); end; Result := rslt + str; end;
je ne comprend pas et en plus je ne vois pas comment la remplace dans le text qui doit etre generer avec la variable

salut

bon j'ai pas tout compris :aie:
si tes deux bouton font la meme chose tu peut n'utiliser
qu'une seule methode et l'affecter au deux evenement

explication de texte :)
Code:

1 2 3 4 5 6 7 8 9 10 11 Procedure MAFORM.Formcreate(...); begin Button1.OnClick := MonClickDeBoutonPerso; Button2.OnClick := MonClickDeBoutonPerso; end; Procedure MAFORM.MonClickDeBoutonPerso(Sender : Tobject); Begin If = 'button1' Then St :=format(' le click du bouton ( %s) a été efectué',[(sender as TButton).name]); Memo.line.add(st); end;
@+ Phil

n'etant pas trés doué en delphi uje vais m'expliquer differement
on va partir seulement sur un bouton

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
champ1                       bouton
___________              _________
[_____var__]             [________]
 
Tmemo2 ==>>
_________________________________________________________________
case "$var"                                                           |
Mail.addAdresse "$var"                                                  |
UrlPresse = "<a href='http://www.site.fr/download/file.asp?fc="&   |
fichier&"&cl=$var'>http://www.site.fr/download/file.asp?fc="&       |
fichier&"&cl=$var</a>"                                                 |
________________________________________________________________|

je met ma var dans le champs 1 (Tmemo1) je clique sur le bouton et
le code present apparait dans Tmemo2 et $var est remplacé

merci anapurna mais je n'arrive pas a mettre en place ton code
est ce que vous me comprennez mieux comme ca ???
et merci gudul

22/12/2006, 14h15
Lung

gudul a raison. Regarde StringReplace.

;)

salut

utilise la fonction format

le %s sert a etre remplace par une chaine de caractere

pour toi se sera donc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
     procedure OnMyButton1Click(Sender: TObject);
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := OnMyButton1Click;
  Button2.OnClick := OnMyButton1Click;
end;
 
procedure TForm1.OnMyButton1Click(Sender: TObject);
var
  st : string;
begin
st := format('case "%0:s" '+chr(13)+chr(10)
+' Mail.addAdresse "%0:s" '+chr(13)+chr(10)
+' UrlPresse = "<a href=''http://www.site.fr/download/file.asp?fc="&  '
+' fichier&"&cl=%0:s''>http://www.site.fr/download/file.asp?fc="& '
+' fichier&"&cl=%0:s</a>" ',[(sender as TButton).Name]);
memo1.Lines.add(st);
end;
 
end.

voila un exemple d'utilisation
@+ Phil

PS le format est une fonction super puissante quand on sait s'en servir

22/12/2006, 16h04
newixz

ca gere trop

merci beaucoup anapurna
cela dit il reste un petit soucis
ma variable est pas remplacé par le nom du button (button1) et nom par le mot ecrit dans TMemo1

de quoi cela peut venir, ??

je cherche

Encore Merci

edit :
je pense que ca vient de la :

Code:

[(sender as TButton).Name]);

il recupere le nom du button qui est button 1
dans la logique je declare donc Memo1 a la place mais non
il ne veu pas ....lol
merci pour votre aide

je m'egard :?

je ne trouve rien sur TButton).Name

comment avoir la variable a la place du nom du bouton ??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.OnMyButton1Click(Sender: TObject);
var
  st : string;
begin
st := format('case "%0:s" '+chr(13)+chr(10)
+' Mail.addAdresse "%0:s" '+chr(13)+chr(10)
+' UrlPresse = "<a href=''http://www.site.fr/download/file.asp?fc="&  '
+' fichier&"&cl=%0:s''>http://www.site.fr/download/file.asp?fc="& '
+' fichier&"&cl=%0:s</a>" ',[(sender as Memo1.Text)])
Memo1.Lines.add(st);
end;

merci

Comme ceci, c'est mieux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.OnMyButton1Click(Sender: TObject);
var
  st : string;
begin
st := format('case "%0:s" '+chr(13)+chr(10)
+' Mail.addAdresse "%0:s" '+chr(13)+chr(10)
+' UrlPresse = "<a href=''http://www.site.fr/download/file.asp?fc="&  '
+' fichier&"&cl=%0:s''>http://www.site.fr/download/file.asp?fc="& '
+' fichier&"&cl=%0:s</a>" ',[(sender as TMemo).Text])
Memo1.Lines.add(st);
end;

;)

merci de votre reponse mais delphi plante a chaque fois

Code:

1
2
 
le projet p.exe a declenché la classe d'exception EInvalideCast avec le message Transtypage de classe incorrect

j'ai refais le soft mais toujours la meme erreur ,
je dois definir quelques choses ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ImgList, ActnList, StdActns, Menus, ToolWin,
  jpeg, ExtCtrls, Apropos;
 
type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ActionList1: TActionList;
    FichierNouveau: TAction;
    FichierEnregistrer: TAction;
    AideApropos: TAction;
    FichierQuittez: TAction;
    EditionCopier: TAction;
    EditionCouper: TAction;
    EditionColler: TAction;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    FileExit1: TFileExit;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    HelpContents1: THelpContents;
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Nouveau1: TMenuItem;
    Enregistrer1: TMenuItem;
    Quittez1: TMenuItem;
    Enregistrersous1: TMenuItem;
    N1: TMenuItem;
    Quitter1: TMenuItem;
    Edition1: TMenuItem;
    Copier1: TMenuItem;
    Copier2: TMenuItem;
    Coller1: TMenuItem;
    N2: TMenuItem;
    Index1: TMenuItem;
    N3: TMenuItem;
    Apropos2: TMenuItem;
    ToolBar1: TToolBar;
    Button1: TButton;
    Button2: TButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    Label1: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure OnMyButton2Click(Sender: TObject);
    procedure OnMyButton1Click(Sender: TObject);
    procedure HelpContents1Execute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure AideAproposExecute(Sender: TObject);
    procedure FileSaveAs1Accept(Sender: TObject);
    procedure FileSaveAs1BeforeExecute(Sender: TObject);
    procedure FichierEnregistrerExecute(Sender: TObject);
    procedure FileOpen1Accept(Sender: TObject);
    procedure FichierNouveauExecute(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    NomFichier: String;
      end;
 
var
  Form1: TForm1;
  variable1: String;
  variable2: String;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FichierNouveauExecute(Sender: TObject);
begin
 StdCtrls.TMemo;
NomFichier := 'nouveau.txt';
StatusBar1.Panels[0].Text := NomFichier;
end;
 
procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
NomFichier := FileOpen1.Dialog.FileName;
StatusBar1.Panels[0].Text := NomFichier;
end;
 
procedure TForm1.FichierEnregistrerExecute(Sender: TObject);
begin
    if (NomFichier = 'nouveau.txt') then
FileSaveAs1.Execute
else
Memo1.Lines.SaveToFile(NomFichier);
end;
 
procedure TForm1.FileSaveAs1BeforeExecute(Sender: TObject);
begin
FileSaveAs1.Dialog.InitialDir := ExtractFilePath(NomFichier);
end;
 
procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
 NomFichier := FileSaveAs1.Dialog.FileName;
Memo1.Lines.SaveToFile(NomFichier);
StatusBar1.Panels[0].Text := NomFichier;
end;
 
 
procedure TForm1.AideAproposExecute(Sender: TObject);
begin
 AboutBox.ShowModal;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Application.HelpFile := ExtractFilePath(Application.ExeName) + 'd7xmlmap.hlp';
  FichierNouveau.Execute ;
  Button1.OnClick := OnMyButton1Click;
  Button2.OnClick := OnMyButton2Click;
end;
 
procedure TForm1.HelpContents1Execute(Sender: TObject);
const
ONGLET_AIDE = 15;
SOMMAIRE_ACTIF = -3;
begin
  Application.HelpCommand(ONGLET_AIDE, SOMMAIRE_ACTIF);
end;
 
procedure TForm1.OnMyButton1Click(Sender: TObject);
var
  st : string;
begin
st := format('case "%0:s" '+chr(13)+chr(10)
+' Mail.addAdresse "%0:s" '+chr(13)+chr(10)
+' UrlPresse = "<a href=''http://www.site.fr/download/file.asp?fc="&  '
+' fichier&"&cl=%0:s''>http://www.site.fr/download/file.asp?fc="& '
+' fichier&"&cl=%0:s</a>" ',[(sender as TMemo).Text]) ;
Memo2.Lines.add(st);  
end;
 
procedure TForm1.OnMyButton2Click(Sender: TObject);
var
  st : string;
begin
st := format('case "%0:s" '+chr(13)+chr(10)
+'response.redirect "%0:s" " ',[(sender as TMemo).Text]);
Memo2.Lines.add(st);
end;
 
 
end.

27/12/2006, 11h53
Linkin

Si tu affecte la procédure à un bouton, le Sender ne sera jamais un TMemo.
27/12/2006, 12h47
anapurna

salut

argh les mec ils ont tous compris au evenement ;)

le sender et l'objet generant l'evenement dans notre cas c'est bien le bouton et pas le memo

il te faut donc remplacer

Code:

(sender as tbutton).name

par

Code:

memo1.text

@+ Phil
27/12/2006, 13h31
newixz

supert ca marche
j'ai juste un retour de ligne a la fin de chaque remplacment.

merci beaucoup a ceux qui on pris le temps de m'aider et a anapurna