Discussion :

[moutu91]

Bonjour,

Je suis à la recherche d’un moyen d’éditer une fonction qui pourrait interagir avec différent champs mémo. J’aimerai utiliser une variable qui contient le nom du champ mémo.

Ainsi, je pourrais utiliser une fonction pour plusieurs champs à la fois.



Pour les connaisseurs de windev. L’équivalence est :



[varibleNomChamps]+ ‘’.propriétéduchamps’’

[Just-Soft]

Salut;

si j'ai bien compris cela pourrait t'aider

Code :

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

1
2
3
4
5
6
7
8
9
function affichage_nom_memo : string;
begin
  Result := Form1.memo1.Name;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(affichage_nom_memo);
end;

Bon codage.

[sat83]

Si tu souhaite retrouver un TMemo selon son nom (Memo1, Memo2, Memo3, Memo4, etc...) , tu peux utiliser FindComponent:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
Var tmpMemo:TMemo;
begin
 //exemple pour retrouver Memo2
  tmpMemo := Form1.FindComponent('Memo' + IntToStr(2)) as TMemo;
  If tmpMemo <>Nil then
    tmpMemo.Add( 'blablabla' );
end;

[moutu91]

Si tu souhaite retrouver un TMemo selon son nom (Memo1, Memo2, Memo3, Memo4, etc...) , tu peux utiliser FindComponent:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
Var tmpMemo:TMemo;
begin
 //exemple pour retrouver Memo2
  tmpMemo := Form1.FindComponent('Memo' + IntToStr(2)) as TMemo;
  If tmpMemo <>Nil then
    tmpMemo.Add( 'blablabla' );
end;

J'ai essayé ta méthode.
Je pense qu'on c'est pas compris sur la fontionnalité

Je ne recherche pas un champ mais de pouvoir modifier les propriété d'un champs dont je connais le nom du champ.

exemple :

Code :

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

NomChamps.text := 'totot' ;   // version normale

Ce que j'aimerai faire

Code :

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

1
2
3
4
5
6
7
 
Public 
      VArNomChamps: String;
 
VarNomChamps := C1;  // Champs existant dans la form 
 
VarChamps.text = 'totot';

bon, j'ai comme même essaie t'adapter ton code a ce que je veux faire mais j'ai un message d'erreur "[DCC Erreur]Params.pas(312): E2096 Identificateur de méthode attendu.

Je crois que j'ai oublier quelque chose bon je te donne la parti de mon code que j'ai effectuer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public
   _NomMemo: string;
    _tmpMemo: Tmemo;
 
Procedure BTNAjoutVariable(NomBtn: String);
var IndiceSelStart: integer;
 
begin
   TFParamSMS._tmpMemo := TFParamSMS.findcomponent(TFParamSMS._NomMemo)as TMemo;
   IndiceSelStart := TFParamSMS._tmpMemo.selstart;
   TFParamSMS._tmpMemo.text:= copy(TFParamSMS._tmpMemo.Text,0,TFParamSMS._tmpMemo.SelStart)+' '+NomBtn+' '+ copy(TFParamSMS._tmpMemo.Text,(TFParamSMS._tmpMemo.SelStart+1),length(TFParamSMS._tmpMemo.Text)+2);
   TFParamSMS._tmpMemo.selstart := IndiceSelStart
end;

[ero-sennin]

Bonjour et bienvenue sur Developpez.com,

Résumons un peu ta demande

Tu as sur une form différents TMemo dont tu connais le Name, c'est bien ça ?
Tes TMemo sont créés de façon dynamique ?
Tu souhaites modifier le contenu de ces TMemo par le biais d'une fonction / procédure ?

Si tes Memo ne sont pas créé de façon dynamqiue, on peut faire une procédure de modification :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure ChangerContenuMemo(leMemo:TMemo;leTexte:string);
begin
  leMemo.Text:=leTexte
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangerContenuMemo(Memo1,'toto');
  ChangerContenuMemo(Memo2,'tata');
end;

Je ne sais pas si c'est ce que tu recherches

[Aka Guymelef]

Bonjour,

il n'existe pas de fonction pour évaluer du code Delphi contenu dans une chaine par exemple. Si tu veux vraiment faire ça tu dois stocker le nom dans une variable string puis récupérer l'objet via un FindComponent ou (mieux) stocker carrément l'objet dans une variable et l'utiliser directement si ça t'es possible.

[moutu91]

Bonjour et bienvenue sur Developpez.com,

Résumons un peu ta demande

Tu as sur une form différents TMemo dont tu connais le Name, c'est bien ça ?

Oui

Tes TMemo sont créés de façon dynamique ?

Non

Tu souhaites modifier le contenu de ces TMemo par le biais d'une fonction / procédure ?

oui car les modifications de chaque mémo est dynamique et dépendant d'un ensemble de condition qui sont identique a tous les champs mémo.

Je ne sais pas si c'est ce que tu recherches

Non

[moutu91]

Bonjour,

il n'existe pas de fonction pour évaluer du code Delphi contenu dans une chaine par exemple. Si tu veux vraiment faire ça tu dois stocker le nom dans une variable string puis récupérer l'objet via un FindComponent ou (mieux) stocker carrément l'objet dans une variable et l'utiliser directement si ça t'es possible.

Delphi est un langage qui fait de l'objet si je ne me trompe pas.
Si cela ne fonctionne pas comment importer une classe d'un projet à l'autre, Si on peux pas modifier les propriété d'un champ de façon dynamique.

[Aka Guymelef]

Je ne comprend pas ta comparaison. Ce que tu m'énonce c'est de l'ordre de la compilation quand tu écris :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TForm1 = class(TForm)
  public
   property Memo1: TMemo read FMemo1 write FMemo1;
end;
 
[...]
 
procedure TForm1.Click(Sender: TObject)
begin
  Memo1.Text := 'toto';
end;

Par contre il n'y a pas moyen d'écrire un truc du style :

Code :

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

1
2
3
4
5
 
procedure TForm1.Click(Sender: TObject)
begin
  'Memo1' + '.Text' := 'toto';
end;

Ou encore :

Code :

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

1
2
3
4
5
 
procedure TForm1.Click(Sender: TObject)
begin
  Eval('Memo1.Text := ''toto''');
end;

Tu n'as pas de fonction permettant d'évaluer du code Delphi à l'exécution. La seule possibilité d'évaluer du code est à la compilation.

[moutu91]

Je ne comprend pas ta comparaison. Ce que tu m'énonce c'est de l'ordre de la compilation quand tu écris :
[

Voila a peut près ce que j'aimerai faire.
Ce code produit aucune erreur de compilation mais d'exécution.
J'aimerai pouvoir affecter n'importe quel nom de memo existant dans Form et de pouvoir modifier leur propriété.

Code :

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

1
2
3
4
5
6
7
8
9
10
Procedure BTNAjoutVariable(NomMemo, NomBtn: String);
 
var IndiceSelStart: integer;
begin
   IndiceSelStart := tmemo(NomMemo).selstart;
   tmemo(NomMemo).text:= copy(tmemo(NomMemo).Text,0,tmemo(NomMemo).SelStart)+' '+NomBtn+' '+ copy(tmemo(NomMemo).Text,(tmemo(NomMemo).SelStart+1),length(tmemo(NomMemo).Text)+2);
 
   tmemo(NomMemo).selstart := IndiceSelStart;
 
end

[Aka Guymelef]

On en revient toujours au même, non tu ne peux pas évaluer du code dans une chaîne au moment de l'exécution. Si tu veux vraiment faire ça tu dois procéder ainsi :

Si c'est une procédure à l'intérieur de la form alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure TForm1.BTNAjoutVariable(NomMemo, NomBtn: String); 
var 
  AMemo: TMemo;
  IndiceSelStart: integer;
begin
  AMemo := TMemo( FindComponent( NomMemo ) );
  if Assigned( AMemo ) then
  begin
   IndiceSelStart := AMemo.selstart;
   AMemo.text:= copy(AMemo.Text,0,AMemo.SelStart)+' '+NomBtn+' '+ copy(AMemo.Text,(AMemo.SelStart+1),length(AMemo.Text)+2);
 
   AMemo.selstart := IndiceSelStart;
  end;
end

Ou bien pour une procédure seule :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure BTNAjoutVariable(AForm: TForm; NomMemo, NomBtn: String); 
var 
  AMemo: TMemo;
  IndiceSelStart: integer;
begin
  AMemo := TMemo( AForm.FindComponent( NomMemo ) ); // tester aussi que AForm est assigné au cas où
  if Assigned( AMemo ) then
  begin
   IndiceSelStart := AMemo.selstart;
   AMemo.text:= copy(AMemo.Text,0,AMemo.SelStart)+' '+NomBtn+' '+ copy(AMemo.Text,(AMemo.SelStart+1),length(AMemo.Text)+2);
 
   AMemo.selstart := IndiceSelStart;
  end;
end

[moutu91]

On en revient toujours au même, non tu ne peux pas évaluer du code dans une chaîne au moment de l'exécution. Si tu veux vraiment faire ça tu dois procéder ainsi :

j'utilise des chaine car dans un autre langage(windev) cela fonction de cette maniéré. Mais ce que j'aimerai c'est utiliser les champs mémo comme des objets.

Si c'est une procédure à l'intérieur de la form alors :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure TForm1.BTNAjoutVariable(NomMemo, NomBtn: String); 
var 
  AMemo: TMemo;
  IndiceSelStart: integer;
begin
  AMemo := TMemo( FindComponent( NomMemo ) );
  if Assigned( AMemo ) then
  begin
   IndiceSelStart := AMemo.selstart;
   AMemo.text:= copy(AMemo.Text,0,AMemo.SelStart)+' '+NomBtn+' '+ copy(AMemo.Text,(AMemo.SelStart+1),length(AMemo.Text)+2);
 
   AMemo.selstart := IndiceSelStart;
  end;
end

Lors de la compilation, j'ai des message d'erreur :
[DCC Erreur] ParamSMS.pas(314): E2076 Forme d'appel de méthode autorisée seulement pour les méthodes de classes
[DCC Erreur] Param_SMS.dpr(9): F2063 Impossible de compiler l'unité utilisée 'ParamSMS.pas'

[Aka Guymelef]

Pour mieux répondre au problème de compilation il vaudrait mieux que tu nous montre le code que tu as écrit pour intégrer ma précédente fonction.

[moutu91]

Pour mieux répondre au problème de compilation il vaudrait mieux que tu nous montre le code que tu as écrit pour intégrer ma précédente fonction.

Voici le code

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
 
Procedure TFParamSMS.BTNAjoutVariable(NomMemo , NomBtn: String);
var 
  AMemo: TMemo;
  IndiceSelStart: integer;
 
begin
    AMemo := tmemo(tfparamSMS.FindComponent(NomMemo));
//   tmemo(NomMemo).selstart  := TFParamSMS.findcomponent(TFParamSMS._NomMemo)as TMemo;
//   IndiceSelStart := tmemo(NomMemo).selstart;
//   tmemo(NomMemo).text:= copy(tmemo(NomMemo).Text,0,tmemo(NomMemo).SelStart)+' '+NomBtn+' '+ copy(tmemo(NomMemo).Text,(tmemo(NomMemo).SelStart+1),length(tmemo(NomMemo).Text)+2);
//   tmemo(NomMemo).selstart := IndiceSelStart;
    if Assigned(AMemo) then
    begin
      IndiceSelStart := AMemo.selstart;
      AMemo.text:= copy(AMemo.Text,0,AMemo.SelStart)+' '+NomBtn+' '+ copy(AMemo.Text,(AMemo.SelStart+1),length(AMemo.Text)+2);
      AMemo.selstart := IndiceSelStart;
    end;
 
end;

[Andnotor]

FindComponent ne peut pas être appelé sur tfparamSMS qui est la classe de la fiche. D'où l'erreur. (FindComponent n'est pas une méthode de classe)

Voici aussi une autre façon plus compact d'insérer ton texte dans le mémo:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  AMemo: TMemo;
  IndiceSelStart: integer;
begin
  AMemo := tmemo(FindComponent(NomMemo));
  if Assigned(AMemo) then
  begin
    IndiceSelStart  := AMemo.selstart;
    AMemo.SelLength := 0;  //Si la longeur du texte sélectionné n'est pas
                           //mise à zéro, le texte sélectionné sera remplacé!
    AMemo.Seltext   := ' ' +NomBtn +' ';
    AMemo.selstart  := IndiceSelStart;
  end;
end;

[moutu91]

FindComponent ne peut pas être appelé sur tfparamSMS qui est la classe de la fiche. D'où l'erreur. (FindComponent n'est pas une méthode de classe)

SA FONCTIONNE

Merci beaucoup

Je Vous remercie tous pour votre aide un bout de chacun à réussi à faire fonctionner ma procédure. Merci beaucoup .

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
 
var 
  AMemo: TMemo;
  IndiceSelStart: integer;
 
begin
    AMemo := tmemo(FindComponent(NomMemo));
    if Assigned(AMemo) then
    begin
      IndiceSelStart := AMemo.selstart;
      AMemo.text:= copy(AMemo.Text,0,AMemo.SelStart){ L'Ini a zero s'effectue la}+' '+NomBtn+' '+ copy(AMemo.Text,(AMemo.SelStart+1),length(AMemo.Text)+2);
      AMemo.selstart := IndiceSelStart;
    end;
 
end;