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

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.036 c
3-1195535563
Skyle
2007-11-20 08:12
2008.04.20
Midas(D5)->DataSnap(BDS 2006/2007)


2-1206652100
helpmepls
2008-03-28 00:08
2008.04.20
Unassigned


11-1187883874
Vladimir Kladov
2007-08-23 19:44
2008.04.20
Объявление: новый модуль DecimalCalculations


15-1204716527
афоня
2008-03-05 14:28
2008.04.20
рисование графиков в Perl


2-1206621875
БарЛог
2008-03-27 15:44
2008.04.20
Сохранение части скриншота





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