Форум: "Потрепаться";
Текущий архив: 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