delphi4arab منتديات دلفي للعرب

السلام عليكم

عملت تطبيق رسم دالة بواسطة برنامج الموجود باحد الكتب بحيث قمت بتتبع كل الخطوات ولكن لم يفلح معي
الكود هو:

كود :
procedure TForm1.Button1Click(Sender: TObject);
Var
x0,y0,a,b:Integer;
x,y:real;
dx:real;

begin
x0:=BoiteDessin.ClientWidth div 2;
y0:=BoiteDessin.ClientHeight div 2;
BoiteDessin.Canvas.MoveTo (0,y0);
BoiteDessin.Canvas.LineTo (x0*2,y0);
BoiteDessin.Canvas.MoveTo(x0,0);
BoiteDessin.Canvas.LineTo(x0,y0*2);
x:= -10;
dx:=0.05;

y:=x*sin(x);
a:=round(x*12+x0);
b:=round(-y*15+y0);
BoiteDessin.Canvas.MoveTo(a,b);
Repeat
BoiteDessin.Canvas.LineTo(a,b);
x:=x+dx;
y:=x*sin(x);
a:=Round(x*15+x0);
b:=Round(-y*15+y0);
Unit1 x>10;
end;
end.

صورة التطبيق

السلام عليكم
لديك خطأ في كتاب كود دلفي، الكلمة Until وليس Unit1

كود :
Until x>10;

وعليكم السلام، شكرا اخي على التوضيح جزيت خيرا.

Delphi_2007

محمد عبد العزيز

Delphi_2007