changer d'une variable

Question

slt, g besoin d'aide :comment modifier la valeur d'une variable "var" de (procedure TForm1.Button1Click) a partir d'une autre procédure par exemple (procedure TForm1.Button2Click).  
et merci d'avance

cs_cantador · Answer

bonjour,

merci de mettre un bout de code..

cantador

JulioDelphi · Answer

Hello
Si c'est :

procedure TForm1.Button1Click(Sender: TObject)
var MaVariable: string;
begin
MaVariable:= 'Bonjour';
end;

Alors button2 ne pourra pas modifier la variable, tu dois la "sortir" (déplacer la déclaration) sur la fiche par exemple.

a+

bsamine · Answer

procedure TForm1.Button1Click(Sender: TObject);
 var pass : string;
begin
  //Bouton OK
pass:='delphi';
  if Edit1.Text=pass then
     ShowMessage('Mot de passe correct !');
end;
-----comment modifier "pass" de button1??-------- 
procedure TForm1.Button3Click(Sender: TObject);
  var pass:string;
begin
 if edit2.text=edit3.text then
 pass:=edit2.Text;
end;

end.

JulioDelphi · Answer

tu dois déplacer la déclaration sur la fiche et non pas dans une procedure :

Unit Machin;

interface

uses ...

type ...
end;

var pass: string;

implementation 

{$R *.dfm}

uses ...

procedure button1
... 

procedure button2
...

end.

Caribensila · Answer

slt,

Vouloir programmer sans connaître la différence entre variable locale et variable globale, est-ce possible ?

- REPONSE : ~ Y'en a qui pensent que oui. ~

JulioDelphi · Answer

Tu dis des gros mots là ! "variable globale"  et "variable locale" ! J'ai pas osé moi ^^

Changer d'une variable

6 réponses

Votre réponse

Discussions similaires