Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[10859] Re:Re:Re:델파이 한지 일주일짼데요...초보적인 질문 몇가지
바람따라 [choice] 1763 읽음    2006-08-23 14:21
: 1번은 제가 아래와 같이 소스를 짯는데 오류가 생기더라구요 어디가 잘못됬는지 지적 바랍니다.
:
: procedure Tpart1.ButtonClick(Answer : Char);
: begin
:   CheckBox1.Checked := true;
:   IF Table1.Fields.Fields[2].Text = Answer then Answer_O();
:   Else IF Table1.Fields.Fields[2].Text <> Answer then Answer_X();   // 이부분...오류
:
: end;

아래 안영제님 답변처럼
IF ELSE 문이 잘못 되었습니다.

IF ELSE 문은 기본적인 형태는

IF A = B THEN
BEGIN

END ELSE
IF A > B THEN
BEGIN

END ELSE
BEGIN

END;

위와 같습니다. 즉, 마지막 end; 이외에는 ; 세미콜론이 필요 없습니다.
begin end 를 생략하는 경우는 ; 세미콜론으로 구분할 필요가 없는 단일 명령줄일때 입니다.
코딩 하신것과 같이 단일 명령줄일때 begin end를 생략할수 있습니다. 대신 ; 세미콜론도 없어야 겠죠.

한번 IF 문쪽 Help를 읽어 보시는게 좋겠습니다.

그리고 = 일때와 <> 일때 두가지로만 나뉜다면 위와 같이 두번 if를 비교 하실 필요 없습니다.

간단히


IF Table1.Fields.Fields[2].Text = Answer then
  Answer_O()
Else 
  Answer_X();

이렇게만 쓰주시면 됩니다. 같을경우는 Answer_O() 를 실행하고 아니면 Answer_X() 를 실행하라 라고 ^^*

+ -

관련 글 리스트
10845 델파이 한지 일주일짼데요...초보적인 질문 몇가지 하루 1408 2006/08/21
10847     Re:델파이 한지 일주일짼데요...초보적인 질문 몇가지 바람따라 1484 2006/08/21
10857         Re:Re:델파이 한지 일주일짼데요...초보적인 질문 몇가지 하루 1490 2006/08/23
10859             Re:Re:Re:델파이 한지 일주일짼데요...초보적인 질문 몇가지 바람따라 1763 2006/08/23
10858             Re:Re:Re:델파이 한지 일주일짼데요...초보적인 질문 몇가지 civilian,안영제 1337 2006/08/23
10860                 감사합니다. 되는군요^^ 덤프 1379 2006/08/23
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.