Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

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.


 
roma ©   (2004-09-15 12:18) [4]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.03 c
14-1094718078
Knight
2004-09-09 12:21
2004.10.03
Вы когда-нибудь пытались...


1-1095652380
Артем К.
2004-09-20 07:53
2004.10.03
Здравствуйте. Как сделать анимированный курсор в программе?


3-1094047680
Новенький
2004-09-01 18:08
2004.10.03
засунуть картинку в базу данных Access


1-1095675594
bobr12
2004-09-20 14:19
2004.10.03
Создание шаблонов форм


8-1088850562
Dominus
2004-07-03 14:29
2004.10.03
Redo в Memo





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский