입력폼이 있고 출력폼이 있거든요..
폼이 두개죠..
폼 두개는 연결 했구요..
입력폼에 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:='멀티미디어';
이런식으로 해봤는데,,
에러가 나서요..
자세한 사용법 좀 알려 주시면 감사 하겟습니다.
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:='멀티미디어';
^^ 항상 즐코하세요...