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

Вниз

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

 
Merry   (2006-09-29 20:59) [0]

В одном модуле  unit main объявляю:
Public
Var1:extended;
….
Далее присваиваю:
Var1:=StrToFloat(Edit1.Text);

В другом модуле unit otchet использую:
Uses main;
Но почему-то переменная var1, когда её вызываю в этом модуле otchet,
не известна и не считывается из unit main.
Как сделать, чтобы объявленное значение переменной в первом модуле, было известно второму модулю?


 
Palladin ©   (2006-09-29 21:01) [1]


>  когда её вызываю в этом модуле otchet,

переменные (а в данном случае аттрибут класса) не вызываются, бо не исполняемый код... и не призываются, бо не святой дух и не призывники...


> не известна и не считывается из unit main.

и как это выражается?


 
Джо ©   (2006-09-29 21:05) [2]

Если "public", то это уже не "переменная", а поле или свойство какого-то класса.


 
Merry   (2006-09-29 21:05) [3]

Тогда вообще: Как сделать, чтобы объявленное значение переменной в первом модуле, было известно второму модулю?


 
Zeqfreed ©   (2006-09-29 21:06) [4]

> [0] Merry   (29.09.06 20:59)

Экземпляр класса писать не забываешь?


 
Zeqfreed ©   (2006-09-29 21:08) [5]

> [3] Merry   (29.09.06 21:05)

Это не переменная, а поле конкретного объекта или класса (если объявлено как классовое). Доступ к нему, соответствунно, осуществляется с указанием имени экземпляра (или самого класса) и последующим разыменовыванием оного.


 
DrPass ©   (2006-09-29 23:10) [6]


> Как сделать, чтобы объявленное значение переменной в первом
> модуле, было известно второму модулю?

Медленно поднимаешь свой пытливый взор вверх по тексту, пока не встретишь строки вида
type
 TForm1 = class(TForm)

Сделай так:

var
 var1: Extended
type
 TForm1 = class(TForm)


 
DrPass ©   (2006-09-29 23:11) [7]

//только про точку с запятой после extended не забудь


 
RASkov   (2006-09-30 00:02) [8]

> Merry


unit unit1;
....
type
 TForm1 = class(TForm)
....
public
  Int: Integer;
  Bt: Boolean;
  S: String;
  Var1:extended;
end;
....
Var1:=StrToFloat(Edit1.Text);
.....

unit unit2;
....
implimintation
uses unit1;

procedure xxx;
begin
with unit1 do begin //указываем из кокого модуля брать "переменную"
 Int:=5;
 B:=True;
 S:="stroka";
 ShowMessage(FloatToStr(Var1));
end;
end;


А вооще "глобальную" переменную то так [6]
и [7]:)


 
Desdechado ©   (2006-09-30 15:04) [9]

RASkov   (30.09.06 00:02) [8]
> with unit1 do begin //указываем из кокого модуля брать "переменную"
Глупости. Без создания экземпляра TForm1 и обращения к нему никакие unit1 не помогут.


 
Kolan ©   (2006-09-30 17:39) [10]

Тут переводчик еще работал:

> В одном модуле  unit main объявляю:


А тут поломался?

> В другом модуле unit otchet использую:


otchet = Report


 
RASkov   (2006-09-30 22:56) [11]

> [9] Desdechado ©   (30.09.06 15:04)

Согласен, только я не говорил, что так нужно делать, я имелл ввиду как можно.
> Как сделать, чтобы объявленное значение переменной в первом
> модуле, было известно второму модулю?

Или мой ответ протеворечит? А уж создано или нет, в момент обращения, на совести программера.


 
Loginov Dmitry ©   (2006-09-30 23:03) [12]

RASkov   (30.09.06 22:56) [11]
Или мой ответ протеворечит?

[8] - это полнейший бред


 
Kolan ©   (2006-10-01 00:34) [13]


> RASkov   (30.09.06 00:02) [8]

И что скомпилилось?


 
RASkov   (2006-10-01 01:17) [14]

> [13] Kolan ©   (01.10.06 00:34)

Нет:) Вместо Unit1 надо Form1.... А вот для глобальных unit1.


 
Kolan ©   (2006-10-01 01:19) [15]


> Нет:)

А я уж дамал я сума сошел :)


 
RASkov   (2006-10-01 01:19) [16]

> [12] Loginov Dmitry ©   (30.09.06 23:03)

Ладно.... уговорили:)


 
RASkov   (2006-10-01 01:21) [17]

> [15] Kolan ©   (01.10.06 01:19)

Называется "Семь раз прочти один запость" © NewПословица



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

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

Наверх





Память: 0.48 MB
Время: 0.064 c
15-1158848336
GeLLeR
2006-09-21 18:18
2006.10.15
Ассемблер


2-1159302430
aleko
2006-09-27 00:27
2006.10.15
прокрутка DBGrid колесом мыши


15-1159283155
Cyrax
2006-09-26 19:05
2006.10.15
Вызов метода класса (с параметрами) через типизированный казатель


1-1156866524
Jink
2006-08-29 19:48
2006.10.15
Несколько окон одного приложения fsStayOnTop


3-1155197685
rsa_
2006-08-10 12:14
2006.10.15
TntUnicodeControls... не получается то, что необходимо





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский