Q&A
- Case문의 조건을 프로그램실행시 결정할수 있게하려면...
다소 정리안되는 질문입니다.
초보라서 그러려니하고 이해해 주시면 감사하겠음다.
질문
아래와 같이 프로그램 내부에 되어있는것을 실행시 Case의 조건부분(1..15, 16..34등)을 입력받아서 실행할수 있는 방법을 좀 알고 싶읍니다.
Case의 조건부분을 파일로 저장하여 외부에서 조건을 수시로 변화시키려고 하는데
잘 안되네요.
방법좀 알려주세요
function TMainForm.Convert_Zone(i: integer): integer;
begin
Case i of
1..15 : Result := 1; //창원시
16..34 : Result := 2; //마산시 합포구
35..47 : Result := 3; //마산시 회원구
48..62 : Result := 4; //진해시
63..79 : Result := 5; //김해시
80 : Result := 6; //양산시 웅상읍
81 : Result := 7; //양산시 물금읍
82 : Result := 8; //양산시 동면
end;
초보라서 그러려니하고 이해해 주시면 감사하겠음다.
질문
아래와 같이 프로그램 내부에 되어있는것을 실행시 Case의 조건부분(1..15, 16..34등)을 입력받아서 실행할수 있는 방법을 좀 알고 싶읍니다.
Case의 조건부분을 파일로 저장하여 외부에서 조건을 수시로 변화시키려고 하는데
잘 안되네요.
방법좀 알려주세요
function TMainForm.Convert_Zone(i: integer): integer;
begin
Case i of
1..15 : Result := 1; //창원시
16..34 : Result := 2; //마산시 합포구
35..47 : Result := 3; //마산시 회원구
48..62 : Result := 4; //진해시
63..79 : Result := 5; //김해시
80 : Result := 6; //양산시 웅상읍
81 : Result := 7; //양산시 물금읍
82 : Result := 8; //양산시 동면
end;
5
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 신호
- •
- 2002.07.09 21:56
- 5 COMMENTS
- /
- 0 LIKES
다소 정리안되는 질문입니다. 초보라서 그러려니하고 이해해 주시면 감사하겠음다. 질문 아래와 같이 프로그램 내부에 되어있는것을 실행시 Case의 조건부분(1..15, 16..34등)을 입력받아서 실행할수 있는 방법을 좀 알고 싶읍니다. Case...-
최용일•2002.07.10 01:17 -
신호•2002.07.10 03:26
-
최용일•2002.07.10 04:19
-
신호•2002.07.10 20:37
-
최용일•2002.07.11 01:09
-
- 수서니
- •
- 2002.07.09 21:25
- 2 COMMENTS
- /
- 0 LIKES
-
수서니•2002.07.10 03:14우편번호 찾는 모달창에서.... 컴포넌트들을 지우고 다시 갖다놓고 Query의 Active를 false로 두고 f...
-
한하눌•2002.07.09 22:38frmZip 폼의 create 에 정의 된부분 또는 해당폼에 있는 query컴포넌트에서 사용된 query에서 발생한 오류...
-
- 장재호
- •
- 2002.07.09 21:18
- 3 COMMENTS
- /
- 0 LIKES
-
나옹이•2002.07.10 00:18글세요.... 제가 잘 알아 들었는지는 몰겠는데.... 스트링그리드에서 특정 셀의 값을 직접 수정해서 ...
-
장재호•2002.07.10 01:31query:='update table set field_name='''+Stringgrid1.cells[2,Stringgrid1.row] where serial='+Stringgr...
-
나옹이•2002.07.10 02:30냉.... serial 이라고 적은건요... 제가 습관적으로 인덱스키를 serial 이라고 쓰거든요.... 고유번호 ...
-
- ㄴ ㅏ ㅁ ㅑ
- •
- 2002.07.09 21:11
- 5 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 21:14
-
ㄴ ㅏ ㅁ ㅑ•2002.07.09 21:28
-
성더기•2002.07.09 21:35
-
ㄴ ㅏ ㅁ ㅑ•2002.07.09 21:40
-
성더기•2002.07.09 21:49
-
- 김영린
- •
- 2002.07.09 21:05
- 3 COMMENTS
- /
- 0 LIKES
-
김동묵•2002.07.10 00:59이런방법이 있습니다. procedure TForm1.Button1Click(Sender: TObject); function GetI...
-
최용일•2002.07.10 00:52안녕하세요. 최용일입니다. 나름대로 규칙이 있으니까 그 규칙에 따라 문자열함수들(Copy, Pos, ...)을 ...
-
김영린•2002.07.10 22:47어려움이 있던 것을 해결해 주셔서 정말감사합니다.
-
- Fake of Jackie
- •
- 2002.07.09 20:58
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 00:42안녕하세요. 최용일입니다. 말그대로 입니다. OnShow나 OnHide이벤트에서 Show, Hide메소드를 쓰거나...
-
- 개미
- •
- 2002.07.09 20:50
- 3 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 21:02SqlStr := 'select A.code,A.Name,B.good ' &nbs...
-
개미•2002.07.09 21:35답변 진심으로 감사드립니당. General SQL Error 인뎅... 뭐가 틀린건징.. 몇시간째 해봐도 못찾겠...
-
성더기•2002.07.09 21:41확실치는 않지만... 테이블명하구 앨리어스 명을 다르게 줘보세요 From DataList A ...
-
- 수서니
- •
- 2002.07.09 20:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 00:33안녕하세요. 최용일입니다. TDBGrid의 OnMouseDown이벤트에서 하시면 되겠네요. 마우스 좌표및 누른 버...
-
- 정진훈
- 2002.07.09 19:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 정영희
- 2002.07.09 19:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 쌍
- •
- 2002.07.09 19:50
- 3 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 19:56추가는 Table1.Append 또는 Table1.Insert 하시면 됩니다 수정은 Table1.Edit 이구요 저장은 Table1.Po...
-
쌍•2002.07.09 20:43displayformat을 0,00으로 했는데 잘 역시 마찬가지 인걸요... 근데 다른 질문인데요 procedure TForm1...
-
성더기•2002.07.09 21:09제가 알기루 itmeindex는 integer형 인걸루 알구 있는데 거기다 String형을 집어 넣을려구 하니 에러가 ...
-
- 짱아
- •
- 2002.07.09 19:44
- 3 COMMENTS
- /
- 0 LIKES
-
깨구락지•2002.07.09 19:56FileExists 함수를 사용하십시오. if FileExists('1A0709.TXT') then Do Something
-
짱아•2002.07.09 22:18답변감사해염.. 가르쳐 주신것을 써서 해봤는데.. 안되염.. 제가 잘못쓴건지... 자세히점 갈켜 주세...
-
깨구락지•2002.07.10 17:32var cnt:byte; sFileName:string; begin for cnt:=1 to 10 do be...
-
- 나원용
- 2002.07.09 18:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 임수정
- 2002.07.09 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- oss
- •
- 2002.07.09 16:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 00:22안녕하세요. 최용일입니다. MMSystem 유닛도 델파이에 있는 유닛이구요... 음... 나머지는 전임자분...
-
-
- 최규호
- 2002.07.09 04:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 수서니
- •
- 2002.07.09 04:33
- 3 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 21:17값이 안보인다면... DBGrid에 DataSource가 연결이 안되있을경우 DataSource에 DataSet이 연결이 안되어 ...
-
머슴•2002.07.09 05:35보통 DbGrid에서 자료가 안보이는 경우는 제일 먼제 아래의 상황을 먼저 보셔야 할것 같습니다.. ...
-
수서니•2002.07.09 18:54당연히 했을꺼라 생각했는데... DBGrid의 프러퍼티중에서 Datasource가 연결이 안되어있었네요... 이...
-
- 손동언
- •
- 2002.07.09 04:00
- 3 COMMENTS
- /
- 0 LIKES
-
송인석•2002.07.09 16:44혹시 꼭 TOpenDialog를 이용할 생각이 아니시라면, FileExt유닛 (갑자기 이름이 생각이 안남-_- File???...
-
머슴•2002.07.09 06:05전에 저도 님과 비슷한것을 한번 해볼라고 하는데 잘 안되더라고요.. 아무리해도 디렉토리...
-
조수석•2009.09.11 21:52디렉토리 PATH 정보만 얻으려면 아래와 같이하시면 잘 됩니다.(델7) procedure TForm1.ShellTreeView1...
-
- 오덕교
- •
- 2002.07.09 03:47
- 2 COMMENTS
- /
- 0 LIKES
-
머슴•2002.07.09 05:56'PRICE','GONG' 외에는 순서와 관계 같은 경우이지요.. 간단히 이렇게 하면 안될까요.. ...
-
KDDG_ZZOM•2002.07.09 04:01오라클이면 rownum을 사용하시면 될것같은데... 쿼리필드에 rownum인가? 하는 필드를 추가시켜서 처리하시...
