Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из фомы 1 передать занчение параметры в форму 2? [D6, XP]

Страницы: < 1 2
vegarulez © (2006-04-18 09:05:00)
привет мастерам!
Есть 2 формы, и 2 юнита, которые их описывают.
В 1-ом юните описал переменную n в public и в var как стринг...
Внимание вопрос ) : как в юните 2 обратится к переменной n из юнита 1...Где её надо описать, чтоб она доступна была.

vegarulez (2006-04-18 09:51:00) [21]
да прописал

Вот листинг:

=================

unit Unit1;

interface

uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
QStdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
n: string;
{ Public declarations }
end;

var
Form1: TForm1;
n: string;
implementation

uses Unit2;

{$R *.xfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
n:= edit1.Text;
form2.show;
end;

end.

________________________

unit Unit2;

interface

uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
QStdCtrls, unit1;

type
TForm2 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private

{ Private declarations }
public

{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.xfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
if n='a' then
label1.Caption:='OK'
else
label1.Caption:='NO';
end;

end.

=======================

balepa (2006-04-18 09:38:00) [22]
А переменную прописал в секции public класса TForm1 ?

vegarulez (2006-04-18 09:33:00) [23]
в интерфейсе прописал

interface

uses
SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,
QDialogs, QStdCtrls, QComCtrls, QExtCtrls, Unit1;

но всёравно не берёт оттуда значение переменной...
Может её ещё где-то надо прописать?

balepa (2006-04-18 09:20:00) [24]
В секции interfaceк списку модулей допиши через запятую UNIT1
Книжки читай.

vegarulez (2006-04-18 09:12:00) [25]
2 balepa © Типа в uses? подключил.

uses Unit2;

2 Anatoly Podgoretsky © :
т.е. в интерфейсе прописать
n: string; или как??? как он будет знать что с первого Unita значение брать?
Как будет знать что это глобальная переменная, которая во всех юнитах одна будет.

Anatoly Podgoretsky (2006-04-18 09:09:00) [26]
В interface

balepa (2006-04-18 09:06:00) [27]
В Unite2 подключи Unit1
И код приведи где ты их там понаобъявлял

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »