Discussion :

[newixz]

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



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

Cdt, julien

[gudul]

As tu essayé avec un StringReplace ?

[newixz]

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

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
 
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

[anapurna]

salut


bon j'ai pas tout compris
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 :

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

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

[newixz]

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

Code :

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

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

[Lung]

gudul a raison. Regarde StringReplace.

[anapurna]

salut


utilise la fonction format

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

pour toi se sera donc

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
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

[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 :

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

[(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

[newixz]

je ne trouve rien sur TButton).Name

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

Code :

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

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

[Pedro]

Comme ceci, c'est mieux:

Code :

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

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;

[newixz]

merci de votre reponse mais delphi plante a chaque fois

Code :

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

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 :

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
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.

[Linkin]

Si tu affecte la procédure à un bouton, le Sender ne sera jamais un TMemo.

[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 :

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

(sender as tbutton).name

par

Code :

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

memo1.text

@+ Phil

[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