Как перенести значение переменой из одной формы в другую?

@Vladon771 · Регистрация: 23.02.2014

Author24 — интернет-сервис помощи студентам

@Puporev · 09.03.2014, 14:39

Можно так
Форма 1

Delphi

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
   a,b:integer; //переменные
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
Form2.Show
end;

Форма 2.

Delphi

implementation
 
uses Unit1;
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
var c:integer;
begin
 c:=Form1.a+Form1.b; //вызов переменных
 edit1.Text:=inttostr(c)
end;

@Vladon771 0 / 0 / 0 Регистрация: 23.02.2014 Сообщений: 68
		1
	Как перенести значение переменой из одной формы в другую? 09.03.2014, 13:35. Показов 2600. Ответов 1 Метки нет (Все метки) Как перенести значение переменой из одной формы в другую? 0

	09.03.2014, 14:39

Как перенести значение переменой из одной формы в другую?

Решение