правильно ли так записывать?

[wolf777]

подскажите в delphi правильно ли так записывать? или подругому нужно?

b:=ImageGraf.ClientHeight-15;   //У - координата левого верхнего угла

просто смущает -15, может там равно должно быть или ещё что то

[Alex11223]

Так а что за угол-то?

[wolf777]

короч вся суть проблемы в том что вылетает такая ошибка при построении графика функции
Ошибка: red of adress 000002FC
Снимок1.PNG

вот код в котором выскакивает ошибка

PHP код:

procedure GrafFunc(x1,x2:real;sg:String; f : myFunc);   // строит график функции
var
//x1,x2:real; // границы изменения аргумента функции
y1,y2:real; // границы изменения значения функции
x:real; // аргумент функции
y:real; // значение функции в точке х
dx,dox,doy:real; // приращение аргумента
l,b:integer; // левый нижний угол области вывода графика
w,h:integer; // ширина и высота области вывода графика
mx,my:real; // масштаб по осям X и Y
j,xg,yg,xj,yj:integer;
x0,y0:integer; // точка - начало координат
begin
with FrmGrafik do      // область вывода графика
 begin
l:=15;           // X - координата левого верхнего угла
b:=ImageGraf.ClientHeight-15;   //У - координата левого верхнего угла
h:=ImageGraf.ClientHeight-20; // высота
w:=ImageGraf.Width-40; // ширина
//x1:=0; // нижняя граница диапазона аргумента
//x2:=25; // верхняя граница диапазона аргумента
dx:=0.001; // шаг аргумента
 // максимальное и минимальное значения  функции на отрезке [x1,x2]
y1:=f(x1);      // минимум
y2:=f(x2);    //  максимум   
x:=x1;
repeat
y := f (x);
if y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx; until (x >= x2);
// вычислим масштаб
if y2=y1 then
   y2:=10*y1 ;
my:=h/abs(y2-y1);   // масштаб по оси Y
if x2=x1 then
   x2:=10*x1 ;
mx:=w/abs(x2-x1);   // масштаб по оси X
dox:= (x2-x1)/10;
doy := (y2-y1)/10;
x0:=0;
y0:=b-Abs(Round(y1*my)) ;
with ImageGraf.Canvas do
begin              // оси
MoveTo(l,b); LineTo(l,b-h);    // ось ОУ
MoveTo(x0,y0); LineTo(x0+w,y0);  // ось ОХ
  MoveTo(l+w,b); LineTo(l+w,b-h);
TextOut(l-15,b,FloatToStrF(y1,ffGeneral,6,3));
for j := 0 to 10  do
    begin
      yj :=  b-Round(doy*my*j);
      xj :=  l+ Round(dox*mx*j);
      MoveTo(l,yj);LineTo(l+w,yj);  // горизонтальные линии
      TextOut(x0,yj,FloatToStrF(doy*j,ffGeneral,2,1));
      MoveTo(xj,b-h);LineTo(xj,b);    //  вертикальные линии
      TextOut(x0-10+xj,y0,FloatToStrF(dox*j,ffGeneral,6,3));
    end;
// построение графика
x:=x1;
  ImageGraf.Canvas.Pen.Color:=  clBlue;  //clRed;
repeat
y:=f(x);           
Pixels[x0+l+Round(x*mx),y0-Round(y*my)]:=clRed;
x:=x+dx;
   if (x>-0.001+(x2-x1)/tgr)And(x<0.001+(x2-x1)/tgr) then
   begin
     xg:=x0+l+Round(x*mx);
     yg:=y0-Round(y*my);
      end;
until (x >= x2);
      MoveTo(xg,yg);
      LineTo(xg-txt,yg-tyt);    //   линии к надписи
  TextOut(xg-txt,yg-tyt,sg);
end;
end;
end; 


[Аватар]

Скорее всего обращение к не существующему объекту. ImageGraf например. В какой строке ошибка то?

[wolf777]

в этой строке ошибка

PHP код:

dx:=0.001; // шаг аргументаа 


[Аватар]

Сомневаюсь. ImageGraf где и как создается?

[wolf777]

Сообщение от Аватар

Сомневаюсь. ImageGraf где и как создается?

я так понимаю это обычный компонент image, просто я в свойстве Name: обозначил его ImageGraf

форма.PNG

[wolf777]

по идеи модуль должен вывести график
1.PNG

[wolf777]

эта может ошибка идет из за проблемы с массивом? я вот тут писал об этом
http://www.programmersforum.ru/showt...=1#post1674037

[Аватар]

я так понимаю это обычный компонент image, просто я в свойстве Name: обозначил его ImageGraf

Если это так, то процедура GrafFunc вообще не должна его видеть, и ни какого выполнения - компилятор не пропустит