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

Вниз

Перенос переменной из одного Unit в другой   Найти похожие ветки 

 
greengeneral ©   (2006-09-16 22:05) [0]

Можно ли из
procedure TForm17.Button1Click(Sender: TObject);
var
a:integer
begin
a:=a+1;
end;

которая находится в Unit17 перенести переменную а в

procedure TForm4.Button2Click(Sender: TObject);
var
b:integer;
begin
b:=a;
end;

которая находится в Unit4


 
Джо ©   (2006-09-16 22:07) [1]

Что значит "перенести переменную"?


 
greengeneral ©   (2006-09-16 22:18) [2]

переменная а при изменении в unit4 изменя ло бы переменную а в unit17


 
Джо ©   (2006-09-16 22:25) [3]

Один из вариантов, сделаю переменную A в общий юнит, который должен быть указан в uses модулей Unit1 и Unit17. Т.е, объявить переменную глобально, а не локально.


 
Джо ©   (2006-09-16 22:26) [4]

Блин, совсем падежи и спряжения стал забывать, ужас, что со мной? 8-|


 
greengeneral ©   (2006-09-16 22:53) [5]

Спасибо


 
Джо ©   (2006-09-16 22:55) [6]

Переменную, естественно, нужно объявлять в секции interface.



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

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

Наверх





Память: 0.45 MB
Время: 0.037 c
15-1158247965
SamProf
2006-09-14 19:32
2006.10.08
Подскажите пожайлеста компонент


1-1156603638
angelika
2006-08-26 18:47
2006.10.08
анимированный gif в delphi


1-1156424740
Orxan
2006-08-24 17:05
2006.10.08
Unicod ы не идут в Word


2-1158847463
milko
2006-09-21 18:04
2006.10.08
IntToHex


15-1158402494
Чапаев
2006-09-16 14:28
2006.10.08
bash.org.ru ;-)





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