Q&A

  • copy 함수에 대해 알고 싶은데요..
입력폼이 있고 출력폼이 있거든요..

폼이 두개죠..

폼 두개는 연결 했구요..

입력폼에 edit1.text에 99hp001 이란 자료가 입력되면..

출력폼의 스트링 그리드에 cells[2,1]에 들어가야 하거든요..

그러니깐 이 99hp001 이란 자료에서 학과가 결정되서

cno 라는 자료에는 정보통신과 라는 값이 스트링 그리드에 들어

가야 하거든요..

저는

if edit1.text:=(copy('99hpoo1',3,2)='hp') then
cno:= '정보처리과'
else if edit1.text:=(copy('99htoo1',3,2)='ht') then
cno:= '정보통신과';
end
else if edit1.text:=(copy('99hooo1',3,2)='ho') then
cno:= '사무자동화과';
end
else if edit1.text:=(copy('99hioo1',3,2)='hi') then
cno:= '인터넷과';
end
else cno:='멀티미디어';

이런식으로 해봤는데,,

에러가 나서요..

자세한 사용법 좀 알려 주시면 감사 하겟습니다.
1  COMMENTS
  • Profile
    최용일 2003.09.25 23:17
    안녕하세요. 최용일입니다.

    Copy함수 문제가 아니라 if문 사용법이 잘못되었네요...

    if 평가값(Boolean) then
      DoSomething...;
    else
      DoSomething...;

    if (Copy(Edit1.Text, 3, 2) = 'hp') then
        cno:= '정보처리과'
    else if (Copy(Edit1.Text, 3, 2) = 'ht') then
        cno:= '정보통신과'
    else if (Copy(Edit1.Text, 3, 2) = 'ho') then
        cno:= '사무자동화과'
    else if (Copy(Edit1.Text, 3, 2) = 'hi') then
        cno:= '인터넷과'
    else
        cno:='멀티미디어';

    ^^ 항상 즐코하세요...