type
someclass = class
procedure genproc<T>(var x, y: T);
begin
end;
procedure Test(A, b: integer);
begin
genproc(a, b);
end;
end;
begin
end.
Первая компиляция - внутренняя ошибка
Вторая компиляция - внутренняя ошибка
Третья компиляция - внутренняя ошибка
Многократное нажатия клавиши F9- вообще зацикливание основного потока. Пора бы внедрить в среду АвтоДамп.
Но это лечится с помощью self…
Потому, что PNG-файлы не компилируются.А как насчет, например, выложить текст программы вместо скрина? ^^ И как насчет выложить текст ошибки вместо, гхм, того, что там есть?
Вы же нарушаете синтаксис языка. После имени переменной name и двоеточия должен идти тип переменной, а у Вас указан литерал. Компилятор как бы хочет сказать, что используется переменная с неописанным типом, но точно не знает, где происходит это “неописание”.
Uses GraphAbC; Var p:picture;
Begin p:=picture.Create(100,100);
p.FloodFill(50,50,clred); p.Draw(50,50); end.
Казалось бы, результат данной программы это вывод красного квадрата в область окна, однако при запуске данной программы ожидаемого результата не последовало. Я считаю, что это ошибка модуля GraphABC, если это не так, пожалуйста, запишите правильный рабочий код.
С уважением пользователь