Problem mit procedure

**WhatAmI**

Delphi-Quellcode:

			procedure quadrantx(x:integer);

begin

 if form1.pbMain.width div 2 > x then

   x:=x

     else

       if form1.pbMain.width div 2 < x then

         x:=-x;

end;

procedure quadranty(y:integer);

begin

 if form1.pbMain.height div 2 > y then

   y:=y

     else

       if form1.pbMain.height div 2 < y then

         y:=-y;

end;

wenn ich die nachher aufrufe bekomme ich immer ne fehlermeldung!

der aufruf lautet:

markieren

Delphi-Quellcode:

			sg2.cells[0,sg1.RowCount-1]:=inttostr(quadrantx(x));

sg2.cells[1,sg1.RowCount-1]:=inttostr(quadranty(y));

was hab ich bloss falschgemacht!

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]

Problem mit procedure

Problem mit procedure

Forumregeln