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:
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]