Текущий архив: 2003.07.31;
Скачать: CL | DM;
Вниз
Ошибка при компиляции Найти похожие ветки
← →
maker © (2003-05-27 08:04) [0]Люди, Помогите! Почему не выполняется следующая процедура(аналог LineTo)?
При компиляции компилятор пишет Internal Error: C3950 ???
Хотя без это процедурки прога нормально компилируется!?..
procedure ltoex(x1,y1,x2,y2:integer);
var
e:integer;
begin
if abs(x2-x1)>=abs(y2-y1) then
begin
if x2-x1>=0 then
begin
for e:=x1 to x2 do
form1.Canvas.Pixels[e,y1+((y2-y1)*(e-x1)) div (x2-x1)]:=clRed;
end
else
begin
for e:=x2 to x1 do
form1.Canvas.Pixels[e,y1+((y2-y1)*(e-x1)) div (x2-x1)]:=clRed;
end;
end
else
begin
if y2-y1 >= 0 then
for e:=y1 to y2 do
form1.Canvas.Pixels[y1+((x2-x1)*(e-x1)) div (y2-y1),e]:=clRed
else
for e:=y2 to y1 do
form1.Canvas.Pixels[y1+((x2-x1)*(e-x1)) div (y2-y1),e]:=clRed;
end;
end;
← →
Poirot (Work) (2003-05-27 09:14) [1]А ты смотрел, что значит ошибка?
Да и это не в функции! Вот только сделай её членом класса TForm1
← →
DarkGreen © (2003-05-27 09:36) [2]1. Посмотри описание Internal Error в Хелпе.
2. Перепиши данную функцию (обычно достаточно пару строк изменить, для того, что бы скомпилироваться).
← →
maker © (2003-05-27 20:22) [3]Всё равно не получается... И зменять некуда(пробовал выносить в отдельные функции отдельные части, - всё одно). А как узнать что это за ошибка(чё то я не догоняю)?
Страницы: 1 вся ветка
Текущий архив: 2003.07.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
