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

Вниз

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

 
Far   (2003-06-08 17:50) [0]

А можно ли в одной конструкции unit использовать одну процедуру внутри другой. Если можно, то как это сделать. Извините за вопрос, но я совсем новичок.


 
Fenik   (2003-06-08 18:00) [1]

procedure jhhkj;

procedure dfjjjfkh;
begin
end;

begin
...
dfjjjfkh
...
end;


 
Far   (2003-06-08 18:05) [2]

Я имел ввиду, что одна процедура уже описана выше. А во второй она является составной частью


 
DrPass   (2003-06-08 19:07) [3]

procedure dfjjjfkh;
begin
end;

procedure jhhkj;
begin
...
dfjjjfkh
...
end;

А самому попробовать, прежде чем ерунду спрашивать?


 
Far   (2003-06-08 19:29) [4]

А почему тогда это не работает?

type
procedure CalculatorEditSum(Sender: TObject);
procedure ButtonClear(Sender: TObject);

procedure TfrmMoney.CalculatorEditSum(Sender: TObject);
var
Sum: Extended;
begin
Sum := frmMoney.vg2CalculatorEdit1.Value +
frmMoney.vg2CalculatorEdit2.Value +
frmMoney.vg2CalculatorEdit3.Value;
frmMoney.lbSum.Caption := FloatToStrF(sum,ffFixed,18,2);
end;

procedure TfrmMoney.ButtonClear(Sender: TObject);
begin
frmMoney.vg2CalculatorEdit1.Value := 0;
frmMoney.vg2CalculatorEdit2.Value := 0;
frmMoney.vg2CalculatorEdit3.Value := 0;
CalculatorEditSum;
end;


 
Anatoly Podgoretsky   (2003-06-08 20:19) [5]

О, тут надо начинать со чтения каких нибудь книжек, все равно каких.


 
Palladin   (2003-06-08 21:04) [6]

да книжки...
type это конечно интересное твое предположение, но не учатся писать программы на предположениях...
советую написать forward и нажать на F1


 
DrPass   (2003-06-08 21:24) [7]

да forward тут в общем и не нужен.

procedure CalculatorEditSum;
var
Sum: Extended;
begin
Sum := frmMoney.vg2CalculatorEdit1.Value +
frmMoney.vg2CalculatorEdit2.Value +
frmMoney.vg2CalculatorEdit3.Value;
frmMoney.lbSum.Caption := FloatToStrF(sum,ffFixed,18,2);
end;

procedure TfrmMoney.ButtonClear(Sender: TObject);
begin
vg2CalculatorEdit1.Value := 0;
vg2CalculatorEdit2.Value := 0;
vg2CalculatorEdit3.Value := 0;
CalculatorEditSum;
end;

>Far
А вообще, парень, рано ты за Delphi сел. Turbo Pascal на ближайшие два года, не меньше!


 
Всеволод Соловьёв   (2003-06-08 21:54) [8]

>DrPass © (08.06.03 21:24)
>>Far
>А вообще, парень, рано ты за Delphi сел. Turbo Pascal на ближайшие два года, не меньше!

Почему на два года? Может для тебя на преодоление этого этапа уйдет и два года, у меня ушло два часа.


 
DrPass   (2003-06-08 22:03) [9]

О, Господи, спасибо, что ты дал мне возможность встретить Великого Гения Турбо-Паскаля на просторах Интернета!

>
> Всеволод Соловьёв ©

Смею ли я попросить у Вас автограф?

P.S. Зануд в мире даже больше, чем ламеров...


 
Palladin   (2003-06-08 22:05) [10]


> Всеволод Соловьёв © (08.06.03 21:54)

да что ты говоришь... и много ты добился за два часа?
что ты узнал в Turbo Pascale за 2 часа?
ради begin и end и tp не нужен...
можешь сразу садится за Delphi...
но многоли ты узнаешь о программировании после этого?


 
Всеволод Соловьёв   (2003-06-08 22:13) [11]

В младшем возрасте все намного быстрее и легче усваивается :) Особенно при наличии хорошей подготовки :)
Palladin © (08.06.03 22:05)
что ты узнал в Turbo Pascale за 2 часа?
О! Уверяю вас, очень много. Во время стрессовой ситуации (олимпиады) у меня резко повышается способность обучаться :)


 
Palladin   (2003-06-08 22:16) [12]

а зачем тебе нужен был tp? синтаксис можно и в книжке прочитать...


 
Всеволод Соловьёв   (2003-06-08 22:20) [13]

Это мне? У нас на олимпиадах выбор только между Си и Паскалем. Делфи не выберешь... Синтаксис к этому не относится, его я знаю давно. Относительно давно :)


 
Palladin   (2003-06-08 22:24) [14]

вот давай с этого и начнем...
за два часа в турбо паскале ты научился задачки решать...
состоящие из не более чем 10 процедур (да и то врядли) и не более чем одного модуля (головного program)... при этом не познав и десятой доли возможностей tp...


 
DrPass   (2003-06-08 23:06) [15]

>Palladin
Да не обращай внимания! Пацану 15 лет - юношеский максимализм, потребность в самовыражении и т.п. :)


 
Palladin   (2003-06-09 00:21) [16]


> DrPass © (08.06.03 23:06)

да просто :) злость берет, когда годами изучаешь, вникаешь в тонкости, познаешь всю фенечку творения, понимаешь многие вещи, вникаешь в различные аспекты BP, как это все строится, один только Turbo Vision чего стоит (а я считаю IDE от борланд лучшей системой разработки для dos, как BP так и BC++), а тут приходит какой то тип который, поверхностно глянув, кичится что ему хватило пяти минут на все это дело...


 
Юрий Зотов   (2003-06-09 01:36) [17]

> Всеволод Соловьёв

Хотите маленький тест на знание Паскаля? Чтобы самому для себя убедиться, знаете Вы его, или нет.

Не пользуясь компьютером, скажите,чему будет равно W после выполнения следующего кода 32-битным процессором x86:

type
PWord = ^word;
var
I: integer;
W: word;
begin
I := High(I) shr 8;
W := PWord(Integer(@I) + 2)^;
end;


 
Спрашивающий   (2003-06-09 04:22) [18]

И тишина.................................


 
Sandman25   (2003-06-09 10:48) [19]

> Юрий Зотов © (09.06.03 01:36)

127?


 
Отвечающий....   (2003-06-09 11:02) [20]

Юрий Зотов © (09.06.03 01:36)
так более посложнее :)

type
PWord = ^word;
var
I: int64;
W: longword;
begin
I := Low(I) shl 2;
W := PWord(Integer(@I) + 2)^;
end;




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

Форум: "Потрепаться";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.48 MB
Время: 0.029 c
1-84251
Step[B.M.]
2003-06-13 13:01
2003.06.26
---|Ветка была без названия|---


1-84387
Rel_
2003-06-09 13:09
2003.06.26
Excel


7-84787
Keksis
2003-04-18 01:58
2003.06.26
Мышка


1-84370
kasper
2003-06-16 14:41
2003.06.26
Как вставить строку в файл!!!!!!!!


14-84685
passlight
2003-05-23 09:56
2003.06.26
---|Ветка была без названия|---





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