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

Вниз

Процедуры   Найти похожие ветки 

 
Elec3C ©   (2008-03-23 02:01) [0]


...
var
  p : procedure;
...
procedure Test;
var i : Byte;
begin
  i := 1; Inc(i);
end;
...

Как лучше делать: так p := Test; или так p := @Test;


 
Германн ©   (2008-03-23 02:09) [1]


> Процедуры
>
> Elec3C ©   (23.03.08 02:01)
>
>
> ...
> var
>   p : procedure;
> ...
> procedure Test;
> var i : Byte;
> begin
>   i := 1; Inc(i);
> end;
> ...
>
> Как лучше делать: так p := Test; или так p := @Test;
>

Лучше никак не делать. Эту процедуру лучше сразу забыть как кошмарный сон приснившийся в пьяном угаре с большого бодуна!


 
{RASkov} ©   (2008-03-23 02:46) [2]


> [0] Elec3C ©   (23.03.08 02:01)
> Как лучше делать: так p := Test; или так p := @Test;

Да помоему без разницы.... Лучше без "собаки", хоть выглядит естественнее...

> [1] Германн ©   (23.03.08 02:09)
> Эту процедуру лучше сразу забыть как кошмарный сон

Да это, по всей видимости, неудачный пример :) Т.е. дело не в Test"е, а в присвоении...


 
{RASkov} ©   (2008-03-23 02:47) [3]

> дело не в Test"е

О как.... не в тесте дело, а в пекаре :)


 
Германн ©   (2008-03-23 02:50) [4]


> > [1] Германн ©   (23.03.08 02:09)
> > Эту процедуру лучше сразу забыть как кошмарный сон
>
> Да это, по всей видимости, неудачный пример :) Т.е. дело
> не в Test"е, а в присвоении...
>

А я и забыл, что мы тут соревнуемся в телепатии. :(((


 
{RASkov} ©   (2008-03-23 03:00) [5]

> [4] Германн ©   (23.03.08 02:50)
> А я и забыл, что мы тут соревнуемся в телепатии.

Да какие соревнования? Впрочем вопрос довольно НЕ четко поставлен..
Да собственно и самого вопроса-то нет оказывается....:( а так это, пояснение как лучше вам сделать...
т.е. делайте так или так, на ваше усмотрение...)
Вот ведь.... и в правду - докопаться можно и до столба :)
:о)


 
{RASkov} ©   (2008-03-23 03:04) [6]

Ну а сама процедура Test, из [0], согласен, не то что "кошмарный сон приснившийся в пьяном угаре с большого бодуна", а вапще ужос полнейший, да и бестолковый :)


 
{RASkov} ©   (2008-03-23 03:09) [7]

> [6] {RASkov} ©   (23.03.08 03:04)

Кстати, если бы она(Test) не была такой бредовой, то может быть и стоило бы задуматься в чем же прикол(вопрос) поста [0] :)


 
Elec3C ©   (2008-03-23 03:17) [8]

Я блин спросил как лучше присваивать, а тут как обычно понесли чёрти знает что! Толкового ответа не получил! Ветка закрыта!


 
{RASkov} ©   (2008-03-23 03:20) [9]

> [8] Elec3C ©   (23.03.08 03:17)

var p: procedure;

procedure Test;
begin
 ShowMessage(IntToStr(Integer(@p)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(IntToStr(Integer(@Test)));
 Test;
 p:=Test;
 p;
 p:=@Test;
 p;
end;


 
Германн ©   (2008-03-23 03:20) [10]


> RASkov} ©   (23.03.08 03:04) [6]
>
> Ну а сама процедура Test, из [0], согласен, не то что "кошмарный
> сон приснившийся в пьяном угаре с большого бодуна", а вапще
> ужос полнейший, да и бестолковый :)
>

Ну это твой перевод с моего языка на твой (ну или не на твой, но твоих современников :)
А уж сам вопрос в сабже???
Он об чём?


 
Германн ©   (2008-03-23 03:27) [11]


> Elec3C ©   (23.03.08 03:17) [8]
>
> Я блин спросил как лучше присваивать, а тут как обычно понесли
> чёрти знает что! Толкового ответа не получил! Ветка закрыта!
>
>

Ты вот спросил именно "как блин".
А ветку так просто не закрыть. Тут такие ветки, как правило, оставляют на всеобщее обозрение. Чтобы учились.


 
{RASkov} ©   (2008-03-23 03:28) [12]

> [10] Германн ©   (23.03.08 03:20)
> А уж сам вопрос в сабже???
> Он об чём?

В сабже его(вопроса) вообще нет, но в [8] он вроде как уточнил в чем соль... Ну и как обычно мы все виноваты оказались...
:о)


 
Германн ©   (2008-03-23 03:43) [13]


> {RASkov} ©   (23.03.08 03:28) [12]
>
> > [10] Германн ©   (23.03.08 03:20)
> > А уж сам вопрос в сабже???
> > Он об чём?
>
> В сабже его(вопроса) вообще нет, но в [8] он вроде как уточнил
> в чем соль... Ну и как обычно мы все виноваты оказались.
> ..
> :о)
>

Нуу...
Соль нужна человеческому организму. Но "во благовремении и плепорции". :)


 
Elec3C ©   (2008-03-23 04:13) [14]

Удалено модератором


 
Плохиш ©   (2008-03-23 12:05) [15]

Мы знаем, что не царское это дело книжки читать. Только не понятно, на кой царю программирование, у него же бабла не мерянно, может программистов нанять, ан нет лезут цари-сантехники в программисты...


 
Anatoly Podgoretsky ©   (2008-03-23 16:12) [16]


> Я блин спросил как лучше присваивать, а тут как обычно понесли
> чёрти знает что! Толкового ответа не получил! Ветка закрыта!
>

Ну это как обычно с твоими вопросами, пора бы и задуматься, лучше всего сменить профессию. И стране польза и тебе.


 
Anatoly Podgoretsky ©   (2008-03-23 16:14) [17]


> По [9] я так понял, без разницы, как присваивать.

Ты чего это пишешь, ты же закрыл для себя ветку, теперь только мы имеем право в нее писать. Непорядочно это, по свински.



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

Текущий архив: 2008.04.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.031 c
2-1206527869
Gavrila
2008-03-26 13:37
2008.04.20
PopupMenu - определить какой Item вызвал событие OnClik


2-1206519877
Andrewtitoff
2008-03-26 11:24
2008.04.20
Как удалить файл из проекта Delphi 2007


2-1206598545
Миша
2008-03-27 09:15
2008.04.20
Отправить файл на E-Mail


11-1184206425
danger
2007-07-12 06:13
2008.04.20
Компонент TKOLQProgressBar


15-1204701267
sds
2008-03-05 10:14
2008.04.20
Вопрос по MS SQL 2000





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