Не видит глобальную переменную / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не видит глобальную переменную

25 сообщений из 27, страница 1 из 2

все

Не видит глобальную переменную

#39583492

terlalex

Участник

Откуда: Харьков

Сообщения: 263

Рейтинг: 0 / 0

описал переменную id_user как глобальную. Но почему-то в других модулях её не видит!!
Не пойму почему!
Вот кусок главного модуля :

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.

unit polyclinic;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.DBCtrls,
  Vcl.ComCtrls, System.ImageList, Vcl.ImgList, Vcl.ToolWin, Vcl.StdCtrls,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Button1: TButton;
    Image1: TImage;
    ToolButton3: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Enter(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  id_user :integer ;

implementation

{$R *.dfm}

uses Unit2, Unit3, Unit4, Unit5;

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.

...

Рейтинг:

0 / 0

12.01.2018, 19:13

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583496

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

terlalex,

модули видят только то, что хотят. Т.обр., добавь "polyclinic" в список uses секции interface каждого модуля.

Код: pascal

1.
2.

interface
uses polyclinic, ...;

...

Рейтинг:

0 / 0

12.01.2018, 19:20

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583497

rgreat

Участник

Сообщения: 7 255

Рейтинг: 0 / 0

В каком месте не видит?

Код покажи.

...

Рейтинг:

0 / 0

12.01.2018, 19:20

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583498

rgreat

Участник

Сообщения: 7 255

Рейтинг: 0 / 0

А если ты даже в uses polyclinic не прописал то код можешь не показывать.

...

Рейтинг:

0 / 0

12.01.2018, 19:22

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583500

terlalex

Участник

Откуда: Харьков

Сообщения: 263

Рейтинг: 0 / 0

СПАСИБО!!
Забыл, что юнит назвал нестандартно. )

...

Рейтинг:

0 / 0

12.01.2018, 19:25

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583506

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

terlalexСПАСИБО!!
Забыл, что юнит назвал нестандартно. )

"Стандартно" - это "Unit1"?

...

Рейтинг:

0 / 0

12.01.2018, 19:28

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583570

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

terlalex

Код: pascal

1.
2.
3.
4.
5.

var
  Form1: TForm1;
  id_user :integer ;

implementation

а за глобальные переменные еще не расстреливают?

...

Рейтинг:

0 / 0

12.01.2018, 22:46

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583605

DimaBr

Участник

Сообщения: 12 435

Рейтинг: 0 / 0

за Application, Screen тоже расстреливать ?

...

Рейтинг:

0 / 0

13.01.2018, 02:36

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583606

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

DimaBr,

за отрицание священности кода VCL.

...

Рейтинг:

0 / 0

13.01.2018, 02:38

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583660

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

DimaBrза Application, Screen тоже расстреливать ?
сначала пишут говнокод

а потом возникают советы вида
чччДterlalex,

модули видят только то, что хотят. Т.обр., добавь "polyclinic" в список uses секции interface каждого модуля.

Код: pascal

1.
2.

interface
uses polyclinic, ...;

...

Рейтинг:

0 / 0

13.01.2018, 13:00

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583661

под ван

Гость

andreymxDimaBrза Application, Screen тоже расстреливать ?
сначала пишут говнокод

а потом возникают советы вида
чччДterlalex,

модули видят только то, что хотят. Т.обр., добавь "polyclinic" в список uses секции interface каждого модуля.

Код: pascal

1.
2.

interface
uses polyclinic, ...;

Так ты на личном примере покажи, как надо. Что толку от твоих недовольства и порицания. Борись с говнокодом своим кодом! Всегда. Везде. Даже в Запорожье!

...

Рейтинг:

0 / 0

13.01.2018, 13:03

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583673

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

под глобальные константы и переменные (если они нужны) выделяю один или два модуля
1. DataModule
2. юнит с константами и глобальными функциями-процедурами текущего проекта

ни в одном проекте нет глобальных перемнных типа форма
Ни в одном подчиненном модуле никогда нет ссылок на главную форму или юнит с главной формой
все подчиненные формы вызываются через функции/интерфейсы вида

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.

function Create_New_zayavka(
      p_pred, p_cex, p_kodgr_b, p_id_3123, p_NKS_job_id_nsi3119 : variant
      ) : boolean;


implementation

{$R *.dfm}
function Create_New_zayavka(
      p_pred, p_cex, p_kodgr_b, p_id_3123, p_NKS_job_id_nsi3119 : variant
      ) : boolean;
var
  Zayavka_row_form : TZayavka_row_form;
  msg : string;
begin
  msg := '';
  result := false;

  Zayavka_row_form := TZayavka_row_form.Create(Application);
  try
    Zayavka_row_form.ZayavState := TZS_before_new_doc;
    Zayavka_row_form.p_pred     := p_pred;
    Zayavka_row_form.p_cex      := p_cex;
    Zayavka_row_form.p_kodgr_b  := p_kodgr_b;
    Zayavka_row_form.p_id_3123  := p_id_3123;
    Zayavka_row_form.p_NKS_job_id_nsi3119 := p_NKS_job_id_nsi3119;
    Zayavka_row_form.InitData;
    if Zayavka_row_form.p_error_in_created then exit;
    result := Zayavka_row_form.ShowModal = Mr_ok;
  finally
    Zayavka_row_form.Free;
  end;
end;

...

Рейтинг:

0 / 0

13.01.2018, 13:42

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583678

alekcvp

Участник

Сообщения: 2 924

Рейтинг: 0 / 0

andreymxни в одном проекте нет глобальных перемнных типа форма
Ни в одном подчиненном модуле никогда нет ссылок на главную форму или юнит с главной формой
все подчиненные формы вызываются через функции/интерфейсы вида

Исходный .dpr сразу под нож или основная форма создаётся где?..

...

Рейтинг:

0 / 0

13.01.2018, 14:04

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583680

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

alekcvpandreymxни в одном проекте нет глобальных перемнных типа форма
Ни в одном подчиненном модуле никогда нет ссылок на главную форму или юнит с главной формой
все подчиненные формы вызываются через функции/интерфейсы вида

Исходный .dpr сразу под нож или основная форма создаётся где?..сразу правится как надо

...

Рейтинг:

0 / 0

13.01.2018, 14:26

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583681

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

ессно, из методов формы нет ссылок на саму форму вроде MainForm.Caption := 'Моя Фигня'

...

Рейтинг:

0 / 0

13.01.2018, 14:29

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583690

Сюзанна

Гость

andreymx,

Взирая на солнце, прищурь глаза свои, и ты смело разглядишь в нём пятна.

...

Рейтинг:

0 / 0

13.01.2018, 14:56

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583694

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

andreymx,

чудеса в решете.

...

Рейтинг:

0 / 0

13.01.2018, 15:10

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583697

rgreat

Участник

Сообщения: 7 255

Рейтинг: 0 / 0

andreymxессно, из методов формы нет ссылок на саму форму вроде MainForm.Caption := 'Моя Фигня'Это повод для гордости? ;)

...

Рейтинг:

0 / 0

13.01.2018, 15:26

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583701

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

rgreatandreymxессно, из методов формы нет ссылок на саму форму вроде MainForm.Caption := 'Моя Фигня'Это повод для гордости? ;)нет

...

Рейтинг:

0 / 0

13.01.2018, 15:36

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583703

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

чччДandreymx,

чудеса в решете.приветствую критические замечания

с уважением, Андрей

...

Рейтинг:

0 / 0

13.01.2018, 15:41

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583711

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

andreymx,

нет замечаний.
Если код компилируется без ошибок - он прекрасен.

...

Рейтинг:

0 / 0

13.01.2018, 15:57

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583725

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

чччДandreymx,

нет замечаний.
Если код компилируется без ошибок - он прекрасен.позвольте с вами не согласится

...

Рейтинг:

0 / 0

13.01.2018, 16:15

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583726

чччД

Участник

Сообщения: 8 171

Рейтинг: 0 / 0

andreymx,

на вас не угодишь.

...

Рейтинг:

0 / 0

13.01.2018, 16:20

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583730

andreymx

Участник

Откуда: Запорожье

Сообщения: 56 486

Рейтинг: 0 / 0

чччДandreymx,

на вас не угодишь.и не надо :)

...

Рейтинг:

0 / 0

13.01.2018, 16:23

| Ответить | Цитировать | Написать

Не видит глобальную переменную

#39583738

Ваш Кэп

Гость

Делай, делай. Главное, когда бани полезут со всех щелей, опять 'кривая' Delhi виновата не была.

...

Рейтинг:

0 / 0

13.01.2018, 16:51

| Ответить | Цитировать | Написать

25 сообщений из 27, страница 1 из 2

все

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Не видит глобальную переменную

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39583681&tid=2041344]:	0ms
get settings:	10ms
get forum list:	20ms
check forum access:	4ms
check topic access:	4ms
track hit:	42ms
get topic data:	13ms
get forum data:	4ms
get page messages:	82ms
get tp. blocked users:	2ms
others:	206ms

total:	387ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы