Q&A

  • Undeclared identifier:'maxval'
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번은 에러가 뜨지않는데요..

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

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

부탁드립니다...

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

의미도 같이 좀..

3  COMMENTS
  • Profile
    소금 2000.08.02 23:54
    왕초보 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; 함수보다 뒤에 있는지 등을 살펴봐야 할 것 같은데요



  • Profile
    왕초보 2000.08.03 01:48
    소금 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;

    답변감사합니다...

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

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

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

    에러가 나거든요..

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

    그럼 부탁드려요..





  • Profile
    소금 2000.08.03 18:48
    > 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 함수보다 앞으로 가야 될것 같은데요...



    • JENNY
    • 2000.08.03 02:13
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 허춘
      2000.08.03 09:10
      JENNY wrote: > 안녕하세요. 2번이나 Q & A를올렸는데, 아무도 답변을 안주시더군요. 요번엔 꼭 답변주세...
    • 김영해
      2000.08.03 03:10
      JENNY wrote: > 안녕하세요. 2번이나 Q & A를올렸는데, 아무도 답변을 안주시더군요. 요번엔 꼭 답변주세...
    • 허춘
      2000.08.03 09:09
      tommy wrote: > 안녕하세요 또 질문을 하게 되었습니다. 다름이 아니라 하나의 필드에 데이타가 정렬되어...
    • 지혀니
    • 2000.08.03 01:10
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 허춘
      2000.08.03 09:30
      지혀니 wrote: > 에러가 나엽.. > invalid use of keyword > token: , .... > Line Number1. > 뭐....
    • 김영해
      2000.08.03 02:02
      지혀니 wrote: > 에러가 나엽.. > invalid use of keyword > token: , .... > Line Number1. > 뭐....
    • 타락천사
      2000.08.03 01:24
      hanminet wrote: > 퀵에서 > 라벨처럼 인쇄하려고 합니다만 잘 되지 않네요... > 퀵에서 column을 주어...
    • hanminet
      2000.08.05 18:00
      고맙슴다... 조금이나마 기대를 햇건만 .... 어찌하오리까.... 안되는 것을.... 어찌되었든 고...
    • 김영해
      2000.08.03 02:04
      coolling wrote: > 델파이가 아니라 오라클의 질문입니다... > > 도스모드에서 익스포트한 파일을 도스...
    • coolling
      2000.08.04 01:45
      영해님... 임포트 시키려면 기존의 테이블을 다 지우라고 하셨는데 그냥 테이블을 덮어 쓰는게 아닌가요...
    • Mr.Q
    • 2000.08.03 01:31
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      2000.08.03 02:47
      Mr.Q wrote: > ExtactIcon API사용시, undeclared identifier 에러납니다. > 어케해야하는지? 음..Mr...
    • Mr.Q
      2000.08.03 03:21
      구창민 wrote: > Mr.Q wrote: > > ExtactIcon API사용시, undeclared identifier 에러납니다. > > 어케...
    • 문진현
    • 2000.08.03 00:25
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 최석기
      2000.08.03 01:22
      문진현 wrote: > 안녕하세요... > MDI Application을 Activex폼을 이용하여 > 웹으로 포팅할려구 하는데...
    • 문진현
      2000.08.03 01:31
      답변 감사합니다.. 자료실에 소스가 있더군요.. 소스 보구 모르는거 있으면 다시 물어 볼께요..^^ 좋...
    • 이영근
    • 2000.08.02 23:54
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 이영근
      2000.08.03 00:16
      소금 wrote: > 이영근 wrote: > > 제가 paradox table 에서 일자(field: date1)를 오늘 날자와 > > 비교...
    • 허춘
      2000.08.03 09:26
      이영근 wrote: > 소금 wrote: > > 이영근 wrote: > > > 제가 paradox table 에서 일자(field: date1)를 ...
    • 소금
      2000.08.03 00:39
      꼭 그런건 아닙니다. 아래와 같은 sql문도 가능합니다. select * from 테이블명 where '20000802' - ...
    • siro
    • 2000.08.02 23:40
    • 4 COMMENTS
    • /
    • 0 LIKES
    • 구창민
      2000.08.03 02:49
      siro wrote: > 안녕하세요. > > 소켓을 이용해서 파일 전송을 하고 있습니다. > 그런데 이것을 이용...
    • siro
      2000.08.03 02:54
      구창민 wrote: > siro wrote: > > 안녕하세요. > > > > 소켓을 이용해서 파일 전송을 하고 있습니다. ...
    • 구창민
      2000.08.03 03:04
      siro wrote: > 구창민 wrote: > > siro wrote: > > > 안녕하세요. > > > > > > 소켓을 이용해서 파일...
    • siro
      2000.08.13 04:41
      감사합니다.. 이제야 소켓 연결을 해서 프로그램 하는 방법을 조금 알것 같아요. 히히 ^^; 어느 정도 해...
    • 송기원
    • 2000.08.02 22:13
    • 9 COMMENTS
    • /
    • 0 LIKES
    • 화랑
      2000.08.03 01:36
    • 송기원
      2000.08.03 01:47
    • 화랑
      2000.08.03 01:53
    • 송인표
      2000.08.05 03:42
    • 화랑
      2000.08.05 15:57
    • 송인표
      2000.08.06 02:25
    • 송기원
      2000.08.09 18:40
    • • • •
    • 희수기
    • 2000.08.02 21:54
    • 3 COMMENTS
    • /
    • 0 LIKES
    • Black}{ole
      2000.08.03 00:29
      희수기 wrote: > 저는 local db로 아폴로라는 것을 사용하고 있습니다... > > query를 사용해서 delete...
    • 최석기
      2000.08.03 00:20
      희수기 wrote: > 저는 local db로 아폴로라는 것을 사용하고 있습니다... > > query를 사용해서 delete...
    • 혀노
      2000.08.02 23:46
      아폴로가 뭔지 잘 모르겠지만요,,, 오라클 같은 경우는 삭제후 commit 을 시켜야 하거든요,,, 아마도 거...
    • Lim
    • 2000.08.02 21:51
    • 0 COMMENTS
    • /
    • 0 LIKES
    • HEIM
    • 2008.06.20 20:06
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 왕초보
    • 2000.08.02 21:46
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 소금
      2000.08.02 23:54
      왕초보 wrote: > procedure TfrmDisplay.ScrollAdjust; > begin > Units.x:=DEF_SCROLL_UNITS; > Units...
    • 왕초보
      2000.08.03 01:48
      소금 wrote: > 왕초보 wrote: > > procedure TfrmDisplay.ScrollAdjust; > > begin > > Units.x:=DEF_S...
    • 소금
      2000.08.03 18:48
      > procedure TfrmDisplay.ScrollAdjust; > begin > Units.x:=DEF_SCROLL_UNITS; > Units.y:=DEF_SCROLL_...
    • 송기원
      2000.08.02 22:18
      김종석 wrote: > 일반적으로 Key를 설정하면 자동으로 정렬이 되든되요.. > Key를 설정하지 않고 이름순...