| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка при компиляции [D7, WinME, WinXP]

maker ©   (2003-05-27 08:04:00) 

Люди, Помогите! Почему не выполняется следующая процедура(аналог 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;

---

maker   (2003-05-27 20:22:00) [1]

Всё равно не получается... И зменять некуда(пробовал выносить в отдельные функции отдельные части, - всё одно). А как узнать что это за ошибка(чё то я не догоняю)?

---

DarkGreen   (2003-05-27 09:36:00) [2]

1. Посмотри описание Internal Error в Хелпе.
2. Перепиши данную функцию (обычно достаточно пару строк изменить, для того, что бы скомпилироваться).

---

Poirot (Work)   (2003-05-27 09:14:00) [3]

А ты смотрел, что значит ошибка?
Да и это не в функции! Вот только сделай её членом класса TForm1

---

Наверх