Q&A
- 허걱..Case문 도와주세요..!! 대입할 값이 40개가 넘는데.,,
case Phone_num of
100:
begin
PhoneNumber:=Tel1.Text;
end;
101:
begin
PhoneNumber:=Tel2.Text;
end;
102:
begin
PhoneNumber:=Tel3.Text;
end;
.
.
.
begin
PhoneNumber:=Tel50.Text;
end;
허걱..50번을 위와같이 해주었는데..--+
저거 효율적으로 처리할 좋은 방법좀 알려주시면 감사하겠습니다.
손가락이 굉장히 아파요 --;
100:
begin
PhoneNumber:=Tel1.Text;
end;
101:
begin
PhoneNumber:=Tel2.Text;
end;
102:
begin
PhoneNumber:=Tel3.Text;
end;
.
.
.
begin
PhoneNumber:=Tel50.Text;
end;
허걱..50번을 위와같이 해주었는데..--+
저거 효율적으로 처리할 좋은 방법좀 알려주시면 감사하겠습니다.
손가락이 굉장히 아파요 --;
3
COMMENTS
-
-
-
안녕하세요. 최용일입니다.
FindComponent메소드를 써보시죠...
PhoneNumber := TControl( FindComponent('Tel' + IntToStr( Phone_Num - 99 )) ).Text;
^^ 항상 즐코하세요...
(NOTICE) You must be logged in to comment on this post.
-
- 장영철
- 2002.02.07 03:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 최진안
- 2002.02.07 03:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 이기석
- •
- 2002.02.07 02:38
- 2 COMMENTS
- /
- 0 LIKES
-
Tk•2002.02.07 08:25혹쉬 그쪽 서버에 린다 바이러스는 아닌쥐 ㅡㅡ^ 죄송 아님 콘솔에서 보면 sweep ...
-
이기석•2002.02.07 19:26TK님 너무 고맙습니다.. 님이 말씀처럼 조치를 취하니까 처음에는 속도가 개선되었다가 다시 속도가...
-
- 고정석
- 2002.02.07 02:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 이규황
- •
- 2002.02.07 02:27
- 1 COMMENTS
- /
- 0 LIKES
-
장명선•2002.02.07 03:58else 부분에 begin...end가 빠져 있네요 이것 때문은 아닌것 같고... 암튼 함 해보세요 즐코
-
- 쨩
- •
- 2002.02.07 02:14
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.07 02:35안녕하세요. 최용일입니다. 아마도 JPEG파일 같은데... 그냥 JPEG파일 포멧에 따라 파일 열어서 읽어오...
-
- 푸른하늘
- •
- 2002.02.07 02:10
- 3 COMMENTS
- /
- 0 LIKES
case Phone_num of 100: begin PhoneNumber:=Tel1.Text; end; 101: begin PhoneNumber:=Tel2.Text; end; 102: begin PhoneNumber:=Tel3.Text; end; . . . begin PhoneNumber:=Tel50.Text; end; 허걱..50번을 위와같이 해주었는데..--+ 저...-
푸른하늘•2002.02.07 02:22
-
델파이탐크루즈•2002.02.07 02:18이렇게 하면 될것 같군요... Var I : Integer; Compo : TComponent; Begi...
-
최용일•2002.02.07 02:13안녕하세요. 최용일입니다. FindComponent메소드를 써보시죠... PhoneNumber := TControl( FindCompo...
-
- 안성혁
- 2002.02.07 02:02
- 0 COMMENTS
- /
- 0 LIKES
-
- * 아자!! *
- •
- 2002.02.07 01:37
- 2 COMMENTS
- /
- 0 LIKES
-
장명선•2002.02.07 01:41Timer 컴포넌트를 이용하시면 될듯 하네요 그럼 즐코하세요
-
* 아자!! *•2002.02.07 02:01안녕하세요?.. *^^ 네.. 예상을 했었지만.... 생각도 안해보구 질문을 먼저 드린것같네요. 조...
-
- gudwhrla
- •
- 2002.02.07 01:34
- 2 COMMENTS
- /
- 0 LIKES
-
gudwhrla•2002.02.07 04:08장면선씨의 답변 감사합니다. 많은 도움이 됬습니다. 정리를 하면 CLIENT NETWORK UTILITY의 기...
-
장명선•2002.02.07 01:39ODBC 설정을 확인해보세요
-
- 한만교
- •
- 2002.02.07 01:28
- 2 COMMENTS
- /
- 0 LIKES
-
권희수•2002.02.07 01:51잘하세여..^ ^ IPC를 말씀하시는거는 아닐거구 소켓을 사용한다면 PC와 다를게 없슴다. 윈도에서는 ...
-
장명선•2002.02.07 01:47몇가지 통신이 있겠져 TCP/IP, 시리얼 등등 Socket 이라는 컴포넌트를 이용하면 간단히 하실수 있을...
-
- 초보임당
- •
- 2002.02.07 01:14
- 2 COMMENTS
- /
- 0 LIKES
-
장지용•2002.02.07 01:55"Style" Property 가 "csDropDownList" 로 되어 있지 않나요? "csDropDown&qu...
-
장명선•2002.02.07 01:44ComboBox 에 '나당' 이라는 글씨를 넣을려고 하는건지요 ? ComboBox.Items.Add('나당'); 함 해보세요...
-
- 장태웅
- 2002.02.07 00:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김후진
- •
- 2002.02.07 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.07 01:17안녕하세요. 최용일입니다. 공식의 X, Y에 각각의 좌표값을 대입하면 3원일차연립방정식이 되잖아요... ...
-
- 이용관
- 2002.02.06 23:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진숙
- •
- 2002.02.06 23:30
- 2 COMMENTS
- /
- 0 LIKES
-
장지용•2002.02.07 02:06Delphi32.com 에서 펐습니다. 대충 보시면 이해가 되실거예요. 그리고 밑에서 먼저 읽어 보라는 www....
-
장명선•2002.02.07 01:03사용한 폼을 메모리에서 지웠는지 확인해보세요 폼 Close할때 OnClose 이벤트에 Action = caFree를 쓰면 ...
-
- 류순보
- •
- 2002.02.06 23:06
- 6 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.07 02:00
-
류순보•2002.02.07 03:36
-
최용일•2002.02.07 05:32
-
류순보•2002.02.07 22:19
-
최용일•2002.02.07 22:47
-
최용일•2002.02.07 23:04
-
- 박영수
- 2002.02.06 22:25
- 0 COMMENTS
- /
- 0 LIKES
-
- KYH
- •
- 2002.02.06 21:48
- 2 COMMENTS
- /
- 0 LIKES
-
장명선•2002.02.06 22:06레코드를 삭제하고 싶은건가요 ? 질문에 대한 요지가 먼지 잘 모르겠네요 그럼...즐코하세요
-
KYH•2002.02.06 22:20죄송합니다. 제가 질문을 무성의 하게 했나보군요.. 데이타를 쿼리하는데 일부분일때는 괞찮...
-
- 김길남
- 2002.02.06 21:22
- 0 COMMENTS
- /
- 0 LIKES
Var
I : Integer;
Compo : TComponent;
Begin
For I:= 100 to 150 do
begin
if Phone_num = I then
begin
Compo := FindComponent('Tedit'+ intTostr(i));
PhoneNumber := Tedit(Compo).text;
end;
end;
샬롬...