왕초보 wrote:

> procedure TfrmDisplay.ScrollAdjust;

> begin

> Units.x:=DEF_SCROLL_UNITS;

> Units.y:=DEF_SCROLL_UNITS;

>

> ScrollBar1.Max:=maxval(0,((Image.Height-ImgPanel.Height)+(Units.x-1)) div Units.y);------1

>

> ScrollBar2.Max:=maxval(0,((Image.Width-ImgPanel.Width)+(Units.x-1)) div Units.x);--------2

> UpDown1.Max:=ScrollBar2.Max;

> UpDown2.Max:=ScrollBar1.Max;

> TrackBar1.Max:=ScrollBar1.Max;

> TrackBar2.Max:=ScrollBar2.Max;

> end;

>

> 위에서요...

> 1번은 에러가 뜨고요..2번은 에러가 뜨지않는데요..

> 에러를 잡을 수가 없어요..

> 고수님들 에러좀 잡아주실래요!...

> 부탁드립니다...

> 그리고 그부분의 의미를 정확히 모르겠는데요...

> 의미도 같이 좀..



에러메시지는 말그대로 maxval이란 변수명(혹은 함수명)을 찾을수 없다는

겁니다.

maxval이란 function을 따로 만들어 사용하는 것 같은데요

함수명은 제대로 있는지, maxval이란 함수에 대한 정의가 제대로 되어 있는지,

또는 maxval이란 함수를 정의한 부분이

procedure TfrmDisplay.ScrollAdjust; 함수보다 뒤에 있는지 등을 살펴봐야 할 것 같은데요

소금 wrote:

> 왕초보 wrote:

> > procedure TfrmDisplay.ScrollAdjust;

> > begin

> > Units.x:=DEF_SCROLL_UNITS;

> > Units.y:=DEF_SCROLL_UNITS;

> >

> > ScrollBar1.Max:=maxval(0,((Image.Height-ImgPanel.Height)+(Units.x-1)) div Units.y);------1

> >

> > ScrollBar2.Max:=maxval(0,((Image.Width-ImgPanel.Width)+(Units.x-1)) div Units.x);--------2

> > UpDown1.Max:=ScrollBar2.Max;

> > UpDown2.Max:=ScrollBar1.Max;

> > TrackBar1.Max:=ScrollBar1.Max;

> > TrackBar2.Max:=ScrollBar2.Max;

> > end;

> >

> > 위에서요...

> > 1번은 에러가 뜨고요..2번은 에러가 뜨지않는데요..

> > 에러를 잡을 수가 없어요..

> > 고수님들 에러좀 잡아주실래요!...

> > 부탁드립니다...

> > 그리고 그부분의 의미를 정확히 모르겠는데요...

> > 의미도 같이 좀..

>

> 에러메시지는 말그대로 maxval이란 변수명(혹은 함수명)을 찾을수 없다는

> 겁니다.

> maxval이란 function을 따로 만들어 사용하는 것 같은데요

> 함수명은 제대로 있는지, maxval이란 함수에 대한 정의가 제대로 되어 있는지,

> 또는 maxval이란 함수를 정의한 부분이

> procedure TfrmDisplay.ScrollAdjust; 함수보다 뒤에 있는지 등을 살펴봐야 할 것 같은데요

>



procedure TfrmDisplay.ScrollAdjust;

begin

Units.x:=DEF_SCROLL_UNITS;

Units.y:=DEF_SCROLL_UNITS;

ScrollBar1.Max:=maxval(0,((Image.Height-ImgPanel.Height)+(Units.x-1)) div

Units.y);

ScrollBar2.Max:=maxval(0,((Image.Width-ImgPanel.Width)+(Units.x-1)) div Units.x);

UpDown1.Max:=ScrollBar2.Max;

UpDown2.Max:=ScrollBar1.Max;

TrackBar1.Max:=ScrollBar1.Max;

TrackBar2.Max:=ScrollBar2.Max;

end;

function maval(a,b:Integer):integer;

begin

if a>=b then

Result:=a

else Result:=b;

end;

답변감사합니다...

메일로 보내려고 했는데..

서버에서 소금님을 거부하네요,왜일까?

그런데 소금님이 말씀하신 부분은 다 소화한거 같은데..

에러가 나거든요..

소금님께서 확인하시고 에러를 찾아 주시면 고맙겠습니다..

그럼 부탁드려요..

> procedure TfrmDisplay.ScrollAdjust;

> begin

> Units.x:=DEF_SCROLL_UNITS;

> Units.y:=DEF_SCROLL_UNITS;

> ScrollBar1.Max:=maxval(0,((Image.Height-ImgPanel.Height)+(Units.x-1)) div

> Units.y);

> ScrollBar2.Max:=maxval(0,((Image.Width-ImgPanel.Width)+(Units.x-1)) div Units.x);

> UpDown1.Max:=ScrollBar2.Max;

> UpDown2.Max:=ScrollBar1.Max;

> TrackBar1.Max:=ScrollBar1.Max;

> TrackBar2.Max:=ScrollBar2.Max;

> end;

> function maval(a,b:Integer):integer;

> begin

> if a>=b then

> Result:=a

> else Result:=b;

> end;

> 답변감사합니다...

> 메일로 보내려고 했는데..

> 서버에서 소금님을 거부하네요,왜일까?

> 그런데 소금님이 말씀하신 부분은 다 소화한거 같은데..

> 에러가 나거든요..

> 소금님께서 확인하시고 에러를 찾아 주시면 고맙겠습니다..

> 그럼 부탁드려요..





위에 있는게 진짜 소스가 맞다면요

function maval(a,b:Integer):integer;

=>maxval이라고 함수명을 고쳐주여야 할 것 같은데....

그리고 maxval 함수 정의부분이

ScrollAdjust 함수보다 앞으로 가야 될것 같은데요...