Discussion :

[BECHE]

Dans une procédure, j'ai besoin de récupérer des données vennant de divers objets et des renvoyer d'autres valeurs après excécution des instructions dans d'autres objets
Par conséquent dans la déclaration , j'ai besoin de paramètrer soit la propriétes d'un objet
ex : Edit1.text ou Edit2. text
soit une partie de la proprietée de l'objet (1) ou (2) de l'ex précedent

Je pensais faire par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure machin(lieu1,lieu2:string);
Var
a,b:integer;
begin 
a:=StrToInt(lieu1);
// ensuite diverses instructions qui aboutissent à une valeur de b
lieu2:=IntToStr(b);
end;
 
// dans un appel de pprocédure
machin(Edit1.text,Edit2.text);

Ca ne marche pas avec toutes les variantes que j'ai 'essayées.
Je suppose qu'il y a une solution (certainement très simple) et qu'il s'agit d'un probléme de type, mais je n'ai rien vu sur la FAQ et ni avec F1


Comment ?

Merci d'avance

[the big ben 5]

Bon, si j ai bien compris ce que tu veux dire, tu peux utiliser soit un type Record qui peux contenir plusieurs champs, sinon simplement faire des passage de pramètres par adresse (et non par valeur). Pour ce il suffit de mettre le mot clé var devant tes paramètres

[tipiweb]

Bonjour,

Pourrais tu indiquer le message d'erreur que delphi t'affiche? Car ça nous ne dit pas où est ton problème.
Max

[Guile]

Comme les autres, je n'ai pas bien compris ce que tu cherches à faire mais en tout cas, dans ton code, ça ne sert à rien d'affecter une valeur à lieu2 si tu ne le déclares pas en VAR :

Code :

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

procedure machin(lieu1 : string; var lieu2:string);

ça ne serait pas ça ton problème par hasard ?

[Graffito]

Bonjour,

Il est impossible de passer la property d'un objet (exemple : edit2.text) en tant que paramètre var (par exemple, lieu2 : string).

Une solution consiste donc à créér une variable danbs le progamme appelant :

Code :

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

1
2
3
4
5
6
7
 
var s2 : string;
 
...
s2:=edit2.text ;
machin(...,s2) ;
edit2.text:=s2 ;

[bjl]

on peut faire aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure machin(lieu1,lieu2:TEdit); 
Var 
a,b:integer; 
begin 
a:=StrToInt(lieu1.text); 
// ensuite diverses instructions qui aboutissent à une valeur de b 
lieu2.Text:=IntToStr(b); 
end; 
 
// dans un appel de pprocédure 
machin(Edit1,Edit2);

[BECHE]

Pour répondre aux questions relatives à mon post initial:
je veux tout simplement utiliser une procédure commune à plusieurs BTclick pour éviter d'écrire plusieurs fois des procédures quasi identiques et ainsi raccourcir le code et limiter les variantes globales , mais les paramètres qui me bloquent sont des TEdit, Tstatic; et autres.

La solution de bjl est exactement celle qui me convient pour mon application
En plus, cela m'a permis d'étendre ce prinipe pour tous les objets


Merci , merci à tous,