Récupération d'une valeur

Question

Bonjour, voici mon code : 

unit Unit2;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Numtools;


type
  TForm1 = class(TForm)
    Label1: TLabel;
    charges: TNumEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;


implementation


uses Unit1;


{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
var
        a:extended;
begin
        a := charges.Value;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
        a:extended;
begin
        a := charges.Value;
end;


end.

J'aimerai récupérer la valeur de a pour l'utiliser dans une autre unité... pourriez vous m'aider??? Merci. 
Salutations.

DRJEROME · Answer

Salut, tu déclares "a" ainsi :

var Form1: TForm1; a:extended; implementation {$R *.DFM}

après, pour le récupérer sur une autre unit, tu fais : "unit1.a" par exemple :

MaVariable:=unit1.a;

DrJerome

ouaich85 · Answer

marche pas... 
J'ai mis çà pour l'appeler, çà veut pas... ;'(

procedure TC.RadioButton1Click(Sender: TObject);
var
b:extended;
begin
        Form1.Show;
        b:=unit2.a;
        ZC.Value := Z.Value + b;

f0xi · Answer

uses Unit2;



procedure TC.RadioButton1Click(Sender: TObject);
var
b:extended;
begin
        Form1.Show;
        b:=unit2.a;
        ZC.Value := Z.Value + b;

<hr size="2" width="100%" />Croc (click me)

ouaich85 · Answer

Bein ce que j'ai fait, mais çà marche paS..

Francky23012301 · Answer

Pour tu clique sur ACCEPTER si ca fonctionne pas

Dans ta première Form

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:integer  ;

implementation

Dans ta form 2

var
  Form2: TForm2;

implementation

uses Unit1;

Récupération d'une valeur

5 réponses

Votre réponse

Discussions similaires