Построение прямых - Общие вопросы Delphi - Страница 3

Трофимов Александр · 19.06.2007, 15:35

If BegX<0 then
begin
MoveTo(300+x,y-a);
LineTo(x,y);
BegX :=x;
BegY:=y;
End
Else
Begin
MoveTo(BegX ,BegY);
LineTo(x,y);
BegX :=x;
BegY:=y;
End;
Извиняюсь не доглядел

Aleksandr · 19.06.2007, 15:44

Спасибо всем заработало. С уважением Aleksandr!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Построение поверхностей	pushok	Помощь студентам	1	04.02.2008 08:06
Построение графиков на C#	TheGuardian123	Общие вопросы .NET	2	29.01.2008 14:50
(С++) Построение графика tg(x)=y.	Panterka	Помощь студентам	2	13.12.2007 09:32
Построение диаграммы	Владислав Крюков	Microsoft Office Excel	12	14.11.2007 23:50

19.06.2007, 15:35	#21
Трофимов Александр Форумчанин Регистрация: 03.11.2006 Сообщений: 321	If BegX<0 then begin MoveTo(300+x,y-a); LineTo(x,y); BegX :=x; BegY:=y; End Else Begin MoveTo(BegX ,BegY); LineTo(x,y); BegX :=x; BegY:=y; End; Извиняюсь не доглядел

19.06.2007, 15:44	#22
Aleksandr Форумчанин Регистрация: 22.05.2007 Сообщений: 511	Спасибо всем заработало. С уважением Aleksandr!