peremenniy

← →
roma © (2004-09-15 10:53) [0]

Zdravstvuyte.
Est dva formi (Form1, Form2) i est v form1 massivi(peremennie) s :String; d, e :Integer; Teper ya prisvaivayu na s, d, e nujnie znacenii a koqda perexaju na form2 oni teryaetsya.
Kak mojno ispolzovat s, d, e sznaceniyami kotorie polucili v form1 ctobi v perexode form2 ix mojno ispolzovat

pisu kot pojalyusta esli mojno pomoqite

unit f1;

interface

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

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

var
Form1: TForm1;

implementation

uses f2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
e, d : Integer;
s : String;
begin
d:=3;
e:= "Helloword";
Form1.Hide;
Form2.Show;
end;

end.

-----------

unit f2;

interface

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

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

var
Form2: TForm2;

implementation

uses f1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
Edit1.text:=s;
end;

end.

ZARANIE BLAQADARYU

← →
PVOzerski © (2004-09-15 11:01) [1]

Я не очень понял, что такое переход с Form1 на Form2. Но вижу очень грубую ошибку. У тебя все эти переменные (кстати, это не принято называть массивами, массив - это то, что по-английски называется array) объявлены как локальные в процедуре TForm1.Button1Click. При таком объявлении они: а) видны только в пределах этой процедуры); б) не сохраняют значений после выхода из нее. Здесь возможно как минимум 2 очевидных работоспособных решения. 1) объявить их как глобальные в разделе interface любого из модулей и сделать ссылку в разделе uses на этот модуль во 2-м модуле. 2) Объявить эти переменными полями или свойствами одной из форм в секции public. Опять же, сделать ссылку в разделе uses на этот модуль во 2-м модуле.

← →
roma © (2004-09-15 11:26) [2]

PVOzerski © (15.09.04 11:01) [1]

Vi vse pravilno obyasnili.
Ucitivayte cto ya novicok po etomu prosu esli mojno v moem primere eto ispravte budu bloqadaren.

Я не очень понял, что такое переход с Form1 на Form2. To est ya xotel virazit eto:

procedure TForm1.Button1Click(Sender: TObject);
var
e, d : Integer;
s : String;
begin
d:=3;
e:= "Helloword";
Form1.Hide;
Form2.Show;
end;

← →
PVOzerski © (2004-09-15 11:52) [3]

unit f1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
e, d : Integer;
s : String;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses f2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
d:=3;
s:= "Helloword";
Form1.Hide;
Form2.Show;
end;

end.

-----------

unit f2;

interface

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

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

var
Form2: TForm2;

implementation

uses f1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Hide;
Form1.Show;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
Edit1.text:=Form1.s;
end;

end.

PVOzerski ya ocen blaqodaren Vam. Vse policilos. I esli mojno
skajite pojalyusta kak mojno obnulit vse peremennie.(to est vozvratit k nacalnomu znaceniyu).

peremenniy Найти похожие ветки