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]

← →
Отвечающий.... (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;

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