![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Как и где прописать глобальные переменные????
|
#2
|
||||
|
||||
![]() Глобальные в контексте чего?
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
![]() На первой форме есть несколько значений
имя фам отч и несколько числовых имя отч и фам нужна в лейбах вывести на второй форме в мемо на второй форме вывести текс в зависимости от числового значения!!! |
#4
|
||||
|
||||
![]() ну видимо глобальные, которые будут использоваться как в самой программе, так и в процедурах.
Himera_3 может вы лучше точную постановку задачи напишите...а то что вывести от чего непонятно! Последний раз редактировалось yohan, 17.10.2009 в 18:02. |
#5
|
|||
|
|||
![]() ![]() я в дельфи сижу неделю я забыло все на свете! ![]() Конкретьней можно ![]() |
#6
|
|||
|
|||
![]() первая форма
Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Button1: TButton; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; naim, otch, fam, naimz, otchz, famz: string; Data, dataz, mes, mesz, god, godz, DMG: integer; // Эти переменные мне нужно сделать глобальными чтобы из любого куска программы они имели именно эти значения!!!! implementation uses Unit2; {$R *.dfm} вторая unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses Unit1; {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin label1.Caption:=naim; label2.Caption:=otch; label3.Caption:=fam; end; end. не присвиваются лейбам текстики!!!! Последний раз редактировалось Admin, 17.10.2009 в 18:06. |
#7
|
|||
|
|||
![]() правда в первой форме есть такая штука
Код:
procedure TForm1.Button1Click(Sender: TObject); var begin naim:=Edit1.text; otch:=Edit2.text; fam:=Edit3.text; end; а они во второй фрорме в лабел не пишуться ![]() Последний раз редактировалось Admin, 17.10.2009 в 19:22. |
#8
|
|||
|
|||
![]() для того чтобы имя отч и фам вывести в лейбах на второй форме нужно присвоить:
label1.Caption:=naim; label2.Caption:=otch; label3.Caption:=fam; но не в procedure TForm2.FormCreate(Sender: TObject); а перед "показом" формы2 |