Использовать процедурный тип при объявлении процедуры\функци

[vitaly_l]

Директива стоит абсолютно правильная

У меня с {$MODE objfpc} - всё чудесно работает, а при неправильной постановке задачи не даёт компилировать пишет варнинг.
В то время как, допотопный {$MODE DELPHI} - ошибку не видит и запускает программу с априори сбоем.

[zub]

Представь что по неким причинам в этом месте мне нужна именно {$MODE DELPHI}
это не решение проблемы, как и не
>>допотопный
режим компиляции

[Лекс Айрин]

Кстати да... режим режимом, но пропускать ошибку...

[vitaly_l]

Представь что по неким причинам в этом месте мне нужна именно {$MODE DELPHI}

В баг-трекер. Они просто забыли, там что-то прописать, наверное.

[zub]

vitaly_l
Это не баг, это делфисовместимость

[vitaly_l]

делфисовместимость

А что в Дэльфи такой код писать нельзя? Свалится?

[zub]

Свалится абсолютно также как и fpc. Я думал {$T+} должно помогать, но нет

[pupsik]

даже варнингов нету

project1.lpr(15,7) Error: Incompatible types: got "<address of function(ShortString):ShortString;Register>" expected "<procedure variable type of procedure(LongInt);Register>"

как бы так.

vitaly_l что то у вас всё компилится и работает

п.с.
zub в режиме "дельфина" ведь собака не используется. Зачем намудрили то?

[vitaly_l]

в режиме "дельфина" ведь собака не используется. Зачем намудрили то?

Я же говорю - допотопный устаревший язык. Лазарус, скоро перемелет их в труху. Так что дельфи доживают свои последние годы.

[olegy123]

Учите C# все.. наступила новая эра..

[vitaly_l]

Учите C# все.. наступила новая эра..

C#? <== Отстой!
Паскаль и Паскале подобные языки - удобнее для написания серьёзных программ.

[Лекс Айрин]

в режиме "дельфина" ведь собака не используется. Зачем намудрили то?

И кто тебе это сказал? Ее можно опускать и за это трупаскалисты, дельфи недолюбливают... имхо, совершенно правильно.

[pupsik]

И кто тебе это сказал?

иногда "дядько" в лазаре ругается. А, по памяти, кажись в вики. Или вам ещё найти "кто сказал"???

Добавлено спустя 2 минуты 1 секунду:
Re: Использовать процедурный тип при объявлении процедуры\функци
п.с.
"дядько" - когда пытаешся "сплюснуть" эти режимы и забываешся что в одном модуле дельфин сидит, в ином обж.

[zub]

Код: Выделить всё

program Project1;
{$MODE DELPHI}
type
  TmySuperproc=function:pointer;

function mySuperproc2:TmySuperproc;
begin
  result:=nil;
  WriteLn('mySuperproc2');
end;

function mySuperproc:TmySuperproc;
begin
  result:=@mySuperproc2;
  WriteLn('mySuperproc');
end;

var
  pp:TmySuperproc;
begin
  pp:=@mySuperproc;
  pp;
end. 

Давайте опустим этих 2х собачек. ктонить скажет что будет с ними и без них не компилируя-запуская?

[pupsik]

опустим этих 2х собачек

тогда режим правильный выставьте. Или собак уберите, коли режим дельфина нравится....

п.с.
Кстати: 7-й дельфин (варнингом) аккуратно интересуется: что это за собачка у тебя затиснута.? В ХЕ не смотрел.