PDA

Просмотр полной версии : [Помогите!] Переменные и формы


Deagro
20.12.2013, 16:18
Доброго времени суток,дорогие форумчани, недавно начал изучать делфи,вот у меня появились кое-какие вопросы. Итак начнём:
1)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

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

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
a:='Deagro';
If Edit1.Text=a then
Form2.Show;
end;

end.


И второй
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

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

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.a:=Form2.Edit1.Text;
end;
end.



Изначально вообще не мог менять переменную а,нашёл выход благодаря J-Fobos а сейчас переменная меняется,НО форм2 всеравно открывается когда на Form1.Edit1.Text=Deagro.
2) как сделать чтобы когда форма 2 открывается Форма 1 закрылась(при этом не закрывая форму2)
3) Как сделать чтобы пароль(в моем случае переменная "а") всегда сохранялось(после того как её изменят с формы 2)

Deagro
21.12.2013, 17:37
Вопрос 1 решил (Благодаря J-Fobos) с процедурой OnCreate (для Form1).

Sinyss
21.12.2013, 17:49
Изначально вообще не мог менять переменную а,нашёл выход благодаря J-Fobos а сейчас переменная меняется,НО форм2 всеравно открывается когда на Form1.Edit1.Text=Deagro.
Убрать "a:='Deagro';" из метода....
2) как сделать чтобы когда форма 2 открывается Форма 1 закрылась(при этом не закрывая форму2)
Сделать нормальный выход их формы 1 и в методе где создается форма 1 дописать проверку и вызов формы 2...
3) Как сделать чтобы пароль(в моем случае переменная "а") всегда сохранялось(после того как её изменят с формы 2)
Сделать переменную А глобальной/записывать в файл/реестр.

Deagro
21.12.2013, 18:44
Спасибо))) а как можно переменную записать в реестр?