не рабртает код в Delphi.

[vladimir412]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1=class(TForm)
    procedure FormPaint(Senter:TObject);
    procedure FormResize(Senter:TObject);
  private
   {Private declarations}
  public
   {Public declarations}
  end;
var
  Form1:TForm1;

implementation
{$R *.DFM}

function f (x:real):real;
  begin
     f:=x/3-2x/2+1;
  end;

Procedure GrOfFunc;
var
  x1,x2:real;
  y1,y2:real;
  x:real;
  y:real;
  dx:real;
  l,b:integer;
  w,h:integer;
  mx,my:real;
  x0,y0:integer;
begin
   l:=10;
   b:=Form1.ClientHeight-20;
   h:=Form1.ClientHeight-40;
   w:=Form1.Width-40;
   x1:=0;
   x2:=25;
   dx:=0.02;
   y1:=f(x1);
   y2:=f(x1);
   repeat
     y:=f(x);
     if y<y1 then y1:=y;
     if y>y2 then y2:=y;
     x:=x+dx;
   until(x>=x2);

   my:=h/abs(y2-y1);
   mx:=w/abs(x2-x1);

   x0:=1;
   y0:=b-AbS(Round(y1*my));
   with form1.Canvas do
     begin
        MoveTo(1,b);LineTo(1,b-h);
        MoveTo(x0,y0);LineTo(x0+w,y0);
        TextOut(1+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
        TextOut(1+5,b,FloatToStrF(y2,ffGeneral,6,3));
        x:=x1;
        repeat
          y:=f(x);
          Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
        until(x>=x2);
     end;
end;

procedure TForm1.FormPaint(Sender:TObject);
begin
  GrOfFunc;
end;

procedure TForm1.FormResize(Sender:TObject);
begin
   form1.Canvas.FillRect(rect(0,0,ClientWidth,ClientHeight));
   GrOfFunc;
end;

end.

[northener]

не рабртает код

Очень трудно работать от забора до 25

[phomm]

Надо нажать F11 откроется инспектор, в нём выбрать события (Events ) и найти там OnPaint - выбрать в выпадающем списке для него FormPaint аналогично для OnResize.
Также надо соблюдать правила и форматировать код при вставке на форум - в месте где редактируете текст для этого служит кнопочка #

[PaHaNjkee]

Может вы напишете какая ошибка и т.д.? Или вы даже его в Delphi не запускали?

[vladimir412]

procedure TForm1.FormPaint(Sender:TObject);/выдает ошибку компиляции

[northener]

Зачем же старый добрый Sender обзывать Senter'ом?

[Пепел Феникса]

Сообщение от vladimir412

procedure TForm1.FormPaint(Sender:TObject);/выдает ошибку компиляции

так и пишет или все же букв больше?

[vladimir412]

ппц! я даже не обратил на это внимание.
Спасибо!