Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.037 c
4-84855
dodo
2003-04-22 00:41
2003.06.26
Как определить развернуто окно или свернуто


1-84207
Tolyan
2003-06-12 18:19
2003.06.26
Сортировка в TOpenDialog


3-84029
Step[B.M.]
2003-05-31 14:30
2003.06.26
Поиск ближайшего соответствия в IBTable


1-84232
Кен
2003-06-10 03:48
2003.06.26
Focus . Как узнать где он в данный момент находится ?


14-84668
_Igorek
2003-06-09 10:29
2003.06.26
Вопросик знатокам HTML a