Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.08.2009, 14:54   #1
S_Yevgeniy
Форумчанин
 
Аватар для S_Yevgeniy
 
Регистрация: 08.07.2009
Сообщений: 246
Вопрос delphi Переменные доступные во всех формах

Доброе время суток.
Где объявить переменные чтобы они были доступны в и в других формах.
В какой мести нужно их указывать и что еще нужно сделать.
Переменная Reestr.
Заранее спасибо!!!
Код:
unit Password;

interface

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

  var
      Reestr          : String ;  							                    (1)

type
  TForm1 = class(TForm)
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit2Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);

    //ServerSaveFile



  private   { Private declarations }


  public    { Public declarations }   //
  var
      Reestr          : String ;  								                (2)


//ServerSaveFile     запись в файл на сервере
  procedure ServerSaveFile(....);


  end;

    var
  Form1: TForm1;
      Reestr          : String ;  								   	(3)

  const
      Srv      : String ='SRV.IN';//входной файл сервера
 

implementation

uses ABOUT, Main, Ish_Data_1, KR_01, EVGEN, TimeThread, Reestr;

{$R *.dfm}


  var
      Reestr          : String ;  								   	(4)
Да прибудет с Вами свет и радость!!!

Последний раз редактировалось S_Yevgeniy; 25.08.2009 в 14:56.
S_Yevgeniy вне форума Ответить с цитированием
Старый 25.08.2009, 15:21   #2
spamer
Software Developer
Старожил
 
Аватар для spamer
 
Регистрация: 19.12.2008
Сообщений: 2,070
По умолчанию

В модуле первой формы.
Код:
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    Reestr : String ;
  end;
Знакомишь модули по Alt+F11

В модуле второй формы
Код:
Form1.Reestr;
Будь проще и люди к тебе потянутся
spamer вне форума Ответить с цитированием
Старый 25.08.2009, 15:58   #3
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

переменная итак на месте...просто этот модуль прописать в uses других
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 25.08.2009, 19:10   #4
S_Yevgeniy
Форумчанин
 
Аватар для S_Yevgeniy
 
Регистрация: 08.07.2009
Сообщений: 246
Вопрос

Спасибо!!! все заработало!!! Оказывается это я тормознул назвал переменную и форму одинаково. Сори.
Огромное всем спасибо.
Да прибудет с Вами свет и радость!!!

Последний раз редактировалось S_Yevgeniy; 25.08.2009 в 19:15.
S_Yevgeniy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Статические переменные в Delphi megachuhancer Общие вопросы Delphi 2 29.07.2009 14:16
Динамические переменные. Delphi svobodys Помощь студентам 0 10.05.2009 16:06
Картинки на формах в Дельфи Барби Помощь студентам 3 23.12.2007 19:19
Statusbar на двух формах Albenous Общие вопросы Delphi 1 06.04.2007 08:18
Вычисления в формах. Beatl Microsoft Office Word 1 03.04.2007 19:35