Скачать: 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 вся ветка

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



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