Скачать: CL | DM;

Ещё один баг в D6   Найти похожие ветки 

← →
Lamer@fools.ua ©   (2005-08-27 12:42) [0]

Код неправильный, конечно, но сообщение об ошибке впечатляет :o)

program Project1;

{$APPTYPE CONSOLE}

type
 P1 = ^T1;
 T1 = packed array [0 .. MaxInt div SizeOf(PAnsiChar)] of PAnsiChar;

begin
end.

P.S. D6.240 (update pack 2)

P.P.S. Правильно так:
program Project1;

{$APPTYPE CONSOLE}

type
 P1 = ^T1;
 T1 = packed array [0 .. MaxInt div SizeOf(PAnsiChar) - 1] of PAnsiChar;

begin
end.

---

← →
begin...end ©   (2005-08-27 12:48) [1]

> Lamer@fools.ua ©   (27.08.05 12:42)

В D7 -- "T1 is not a type identifier".

> сообщение об ошибке впечатляет

Ну, в каком-то смысле они правы... :-)

---

← →
Lamer@fools.ua ©   (2005-08-27 12:55) [2]

>>begin...end ©   (27.08.05 12:48) [1]

>D7 -- "T1 is not a type identifier".

Значит, так и не исправили.

>Ну, в каком-то смысле они правы... :-)

Забавно то, что если T1 не использовать, а только объявить, то всё ОК:

program Project1;

{$APPTYPE CONSOLE}

type
 T1 = packed array [0 .. MaxInt div SizeOf(PAnsiChar)] of PAnsiChar;

begin
end.

---

← →
Anatoly Podgoretsky ©   (2005-08-27 13:15) [3]

Есои не использовать то и проблемы нет, а если использовать то проблема налицо. Это уже не может быть идентификатором типа.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.972 c