Q&A
- type ... 질문입니다.
지송합니다.
기사시험 공부하는데.... 구입한 책에 소스코드가 없어서 이렇게 질문을 드립니다.
label 하나, edit 하나, button 하나를 만들어서 button을 누르면 label에
edit에 입력한 값을 비교한뒤, 해당 문자열이 나오는 겁니다.
소스는 다음과 같습니다.
-------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
input : string;
mon : string;
begin
input := edit1.text;
type
mon = set of {jan, mar, may, jul, aug, oct, dec}
begin
if input in mon then
label1.caption := '한달은 31일로 되어있다.';
else
label1.caption := '한달이 31일이 아닙니다.';
end;
end;
--------------------------------------------
선배님들의 조언을 바라겠습니다.
기사시험 공부하는데.... 구입한 책에 소스코드가 없어서 이렇게 질문을 드립니다.
label 하나, edit 하나, button 하나를 만들어서 button을 누르면 label에
edit에 입력한 값을 비교한뒤, 해당 문자열이 나오는 겁니다.
소스는 다음과 같습니다.
-------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
input : string;
mon : string;
begin
input := edit1.text;
type
mon = set of {jan, mar, may, jul, aug, oct, dec}
begin
if input in mon then
label1.caption := '한달은 31일로 되어있다.';
else
label1.caption := '한달이 31일이 아닙니다.';
end;
end;
--------------------------------------------
선배님들의 조언을 바라겠습니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 아폴론
- •
- 2002.03.16 22:01
- 1 COMMENTS
- /
- 0 LIKES
-
김경록•2002.03.18 11:12질문이 약간 모호한것 같은 경향이 있군여.. 일단 Query상으로 Sum을 하실 수 없다는 이야기이신지? 아니...
-
- 오경태
- •
- 2002.03.16 21:12
- 2 COMMENTS
- /
- 0 LIKES
-
정정호•2002.03.16 21:57Form2 에서 함수를 맹글어 리턴 시키면됩니다. procedure GetPost: string; implementation proce...
-
별볼일없는•2002.03.16 21:38저 같은 경우는 Form2에 우편번호, 주조, 번지 등 Edit박스를 두고 검색된 내용중 더블클릭으로 선택을 ...
-
- 이영주
- 2002.03.16 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이탐크루즈
- 2002.03.16 20:17
- 0 COMMENTS
- /
- 0 LIKES
-
-
김경록•2002.03.18 11:21일단은 BDE엔진 문제는 아닌거 같구여.. "invalid configuration paramete, Alias : wee."라는 ...
-
-
-
- 별볼일없는
- •
- 2002.03.16 19:24
- 1 COMMENTS
- /
- 0 LIKES
-
이병협•2002.03.17 08:59AdvStringGrid의 Event를 보시면 GetCellColor 가 있을 겁니다. 거기다 원하시는 코딩을 하시면 될것 같군...
-
- 김영우
- •
- 2002.03.16 13:20
- 2 COMMENTS
- /
- 0 LIKES
-
윤창준•2002.03.16 18:09안녕하십니까? 저두 초보라... ^^; 다르게 생각해보면 어떨까요? 지금 하나로 설정된 액션을 함수나 Pro...
-
G.D.Jeon•2002.03.16 20:18메인메뉴에 동적으로 생성하시는데 문제가 있으신것 같네요. 공통 함수를 작성하여 해당 메뉴 이벤트에 ...
-
- 이동기
- •
- 2002.03.16 10:59
- 1 COMMENTS
- /
- 0 LIKES
-
김영석•2002.03.16 11:38이메소드 맞져? ^^ 제가 외우는건 약해서.. Beginupdate 와 endupdate 를 사용하...
-
- 이정설
- •
- 2002.03.16 09:45
- 1 COMMENTS
- /
- 0 LIKES
-
별볼일없는•2002.03.16 19:17Edit1.Text := IntTostr(TreeView1.Items.Count) ; 이걸 원하시는건지... 음 별볼일 없는 넘이 지나...
-
- 유창원
- 2002.03.16 08:04
- 0 COMMENTS
- /
- 0 LIKES
-
-
Mr. Ziker•2002.03.16 09:11안녕하세욤... FastNet 컴포넌트들 중에 (델파이 초기 설치시 포함되어 있음) NMHTTP 컴...
-
유창원•2002.03.16 09:40감사감사 무지하게 간단하네요. 이 방법으로는 테스트 해보니 잘되네요. 감사합니다. 그런데 아마 NNHTTP...
-
-
- 박지용
- 2002.03.16 07:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 남영민
- •
- 2002.03.16 05:56
- 1 COMMENTS
- /
- 0 LIKES
지송합니다. 기사시험 공부하는데.... 구입한 책에 소스코드가 없어서 이렇게 질문을 드립니다. label 하나, edit 하나, button 하나를 만들어서 button을 누르면 label에 edit에 입력한 값을 비교한뒤, 해당 문자열이 나오는 겁니다. 소...-
김경록•2002.03.18 11:31글쎄여.... 이게 된다는 말씀이신지 뭔가 틀렸다는 말씀이신지.. 일단은 제가 보기에는여.. 집합형을...
-
- 박형일
- 2002.03.16 04:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 델.초
- •
- 2002.03.16 03:53
- 4 COMMENTS
- /
- 0 LIKES
-
Mr. Ziker•2002.03.16 09:30안녕하세욤 dpr파일을 수정하는 방법 입니다. 님의 dpr과 비교 해 보신다면 쉽게 알 수 있습니다. =...
-
김경록•2002.03.16 04:09아... 제가 드렸던 답변 같군여.. 먼저 죄송하다는 이야기를 먼저 드려야하겠군여.. 음.. 한참 치다가 al...
-
델.초•2002.03.16 04:55program Project1; uses Forms,Windows, Unit1 in 'Unit1.pas' {MainForm}, ...
-
김경록•2002.03.18 11:43음.. 뭔가가 빠진듯한 느낌이.. 그렇다면여.. 한번 체크해보심이 좋을 듯하네여.. 우선, MainForm의 Ca...
-
- 이경남
- •
- 2002.03.16 03:52
- 1 COMMENTS
- /
- 0 LIKES
-
서자열•2002.03.16 04:15커테이션 마크가 빠진거 같네욤 그러니까 str := 'where text필드명 = ' + d...
-
- 김관수
- •
- 2002.03.16 03:35
- 2 COMMENTS
- /
- 0 LIKES
-
Mr. Ziker•2002.03.16 09:26안녕하세욤~ 소스 참고 하세요. 그리고 질문 하신것 중에 몇번째 콤보인가를 체크 한다고 말씀 하셨는...
-
김관수•2002.03.16 19:49답변 감사합니다... 제가 질문한것중에 몇번째 콤보인가를 체크한다는 얘기가요.. 만약 다섯개가 있...
-
- 김건림
- 2002.03.16 03:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 허상무
- •
- 2002.03.16 02:43
- 1 COMMENTS
- /
- 0 LIKES
-
Mr. Ziker•2002.03.16 09:35안녕하세욤.. 파라메터 받는 방법을 질문 하신 것인지... ActiveX게시판으로 가셔셔 검색을 해보시면...
뭔가 틀렸다는 말씀이신지..
일단은 제가 보기에는여..
집합형을 선언할때 문제가 있지 않나 보는데..
mon은 String형인데..
Set of {} 로 정의했거든여..
Set of {}로 정의 하는것은 실제로
mon = Set of {0, 1,2,3,4,5,6} 이라는 정수들의 집합으로 선언하는
거와 같다고 생각이 드는데..
mon은 String형이거든여..
따라서 잘못된, 집합형 연산이라고 오류가 날꺼 같은데..
제가 잘못알고 있나여?
Set는 실제로 집합연산이지만,
단체로 변수를 선언하여, 매칭시키는 방법을 사용하는것으로
알고 있습니다.
즉, 첫번째 변수(명시적으로 값을 대입하지 않는다면)는 0,
나머진, 1부터 쭈욱~~~~
이렇게 된다고 보는데..
if input in mon then <-- 에서도 에러가 나지 않나여?
제가 틀렸는지는 잘 모르겠지만..
2군데는 틀렸다고 생각이 드네여..
아니면,
mon: String부분에서 String을 Integer나 Longint로 바꾼다면
되지 않을까여? 다시말해서, 정수 숫자형으로 말입니다..