Q&A
- InputBox에서 Setfocus를 사용할수 있나요.???
var input_data:string;
begin
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)
HEP0050', 'HEP0050');
if input_data = '' then
begin
showmessage('다시입력하세요.');
end;
end;
위에서 처럼 InputBox에서 자료를 입력하지 않고 [확 인]을 눌렀을때 그값
오류메세지를 띄운후 원래의 InputBox로 돌아가게 할려면 어떻게 해야 되죠???
EditBox 같으면 edit1.setfocus하면 원래 자리로 돌아가는데... InputBox에서는 어떻게 해야 될지 모르겠습니다.
혹시 InputBox를 다시 띄워야 되는건가요...??? 부탁 드리겠습니다.
그리고,, 다른거 하나만 더 여쭤보겠습니다.
아래처럼 하면 안되거든요. 비주얼 베이직에서 처럼 문자를 잘라서 자른 문자가 문자인지 숫자인지 비교를 할려고 합니다.
그런데.. 잘 안되네요. 부탁 드리겠습니다.
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)HEP0050', 'HEP0050');
if input_data = '' then
begin
showmessage('다시입력하세요.');
end
else
if input_data(1:3) not = alphabetics then
begin
showmessage('코드 앞부분의 3자리는 문자 입니다.');
end
else
if input_data(4:7) not = numerics then
begin
showmessage('코드 뒷부분의 4자리부터는 숫자 입니다.');
end;
begin
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)
HEP0050', 'HEP0050');
if input_data = '' then
begin
showmessage('다시입력하세요.');
end;
end;
위에서 처럼 InputBox에서 자료를 입력하지 않고 [확 인]을 눌렀을때 그값
오류메세지를 띄운후 원래의 InputBox로 돌아가게 할려면 어떻게 해야 되죠???
EditBox 같으면 edit1.setfocus하면 원래 자리로 돌아가는데... InputBox에서는 어떻게 해야 될지 모르겠습니다.
혹시 InputBox를 다시 띄워야 되는건가요...??? 부탁 드리겠습니다.
그리고,, 다른거 하나만 더 여쭤보겠습니다.
아래처럼 하면 안되거든요. 비주얼 베이직에서 처럼 문자를 잘라서 자른 문자가 문자인지 숫자인지 비교를 할려고 합니다.
그런데.. 잘 안되네요. 부탁 드리겠습니다.
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)HEP0050', 'HEP0050');
if input_data = '' then
begin
showmessage('다시입력하세요.');
end
else
if input_data(1:3) not = alphabetics then
begin
showmessage('코드 앞부분의 3자리는 문자 입니다.');
end
else
if input_data(4:7) not = numerics then
begin
showmessage('코드 뒷부분의 4자리부터는 숫자 입니다.');
end;
2
COMMENTS
-
-
안녕하세요. 최용일입니다.
repeat나 while문을 쓰세요...
----------------------------------------------------------------------------------
var
input_data:string;
begin
repeat
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex) HEP0050', 'HEP0050');
if input_data = '' then
showmessage('다시입력하세요.');
until input_data <> '';
end;
----------------------------------------------------------------------------------
var
input_data:string;
begin
while input_data = '' do
begin
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex) HEP0050', 'HEP0050');
if input_data = '' then
showmessage('다시입력하세요.');
end;
end;
^^ 항상 즐코하세요...
정규성 wrote:
> var input_data:string;
>
> begin
>
> input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)
> HEP0050', 'HEP0050');
>
> if input_data = '' then
> begin
> showmessage('다시입력하세요.');
> end;
>
> end;
>
> 위에서 처럼 InputBox에서 자료를 입력하지 않고 [확 인]을 눌렀을때 그값
> 오류메세지를 띄운후 원래의 InputBox로 돌아가게 할려면 어떻게 해야 되죠???
> EditBox 같으면 edit1.setfocus하면 원래 자리로 돌아가는데... InputBox에서는 어떻게 해야 될지 모르겠습니다.
> 혹시 InputBox를 다시 띄워야 되는건가요...??? 부탁 드리겠습니다.
>
> 그리고,, 다른거 하나만 더 여쭤보겠습니다.
> 아래처럼 하면 안되거든요. 비주얼 베이직에서 처럼 문자를 잘라서 자른 문자가 문자인지 숫자인지 비교를 할려고 합니다.
> 그런데.. 잘 안되네요. 부탁 드리겠습니다.
>
>
> input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)HEP0050', 'HEP0050');
>
> if input_data = '' then
> begin
> showmessage('다시입력하세요.');
> end
> else
> if input_data(1:3) not = alphabetics then
> begin
> showmessage('코드 앞부분의 3자리는 문자 입니다.');
> end
> else
> if input_data(4:7) not = numerics then
> begin
> showmessage('코드 뒷부분의 4자리부터는 숫자 입니다.');
> end;
>
>
(NOTICE) You must be logged in to comment on this post.
-
- 궁금차
- •
- 2001.10.12 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.12 20:14안녕하세요. 최용일입니다. 도움말에 다 나와 있는데요... TApplication.MessageBox항목의 도움말을 찾...
-
- 감사
- •
- 2001.10.12 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.12 20:21안녕하세요. 최용일입니다. dll이 서로 다른 언어로 제작된 프로그램에서 사용될려면 상호간에 호환되는...
-
- 초보임다
- 2001.10.12 19:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규성
- •
- 2001.10.12 19:46
- 2 COMMENTS
- /
- 0 LIKES
var input_data:string; begin input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex) HEP0050', 'HEP0050'); if input_data = '' then begin showmessage('다시입력하세요.'); end; end; 위에서 처럼 InputBox에서 자료...-
류한규•2001.10.12 20:23repeat input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex) ...
-
최용일•2001.10.12 20:16안녕하세요. 최용일입니다. repeat나 while문을 쓰세요... ---------------------------------------...
-
- 델프리
- •
- 2001.10.12 20:51
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.12 22:19델프리 wrote: > > image1가 Memo1위에 올라가지가 않습니다. > > BringToFront를 해도 안되던데. >...
-
- sun
- •
- 2001.10.12 18:35
- 1 COMMENTS
- /
- 0 LIKES
-
잘난체•2001.10.12 18:50dcu화일이 깨진것이 아니라. dfm 화일이 없어서 그런것 안니가요... dcu화일은 컴파일할때 생...
-
- 칼리
- 2001.10.12 18:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 박지원
- 2001.10.12 16:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피언
- 2001.10.12 21:39
- 0 COMMENTS
- /
- 0 LIKES
-
- oranzi
- •
- 2001.10.12 11:06
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.10.12 19:235초동안 멈춰 버린다는 것은 서버때문에 그런 것은 아닙니다. 원래 TCP라는 프로토콜이 OS나 H/W에 관계없...
-
- benjy
- •
- 2001.10.12 10:03
- 3 COMMENTS
- /
- 0 LIKES
-
이경문•2001.10.12 19:04TV수신카드이건, USB PC Camera이건, 화상관련 API는 VFW(Video For Windows) 표준만 따라 가면 어디에서...
-
benjy•2001.10.18 01:28VideoCap을 가지고 외부입력 SVHS 신호를 디스플레이는 가능하게 되었습니다... 그러면 제가 하고 싶은것...
-
박상윤•2001.10.18 03:47간단하게 쓰시려면.. MCI함수를 이용하심 되구여.. Direct show 로 하실려면 ICrossbar 등 여러가지를 구...
-
- 전영미
- •
- 2001.10.12 07:47
- 1 COMMENTS
- /
- 0 LIKES
-
잘난체•2001.10.12 18:57전영미씨.. WinExec로 외프로그램을 호출한다고 해서 델파이프로그램이 죽지는 않는것 같은데...
-
- 초보자
- 2001.10.12 07:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 데미안
- 2001.10.12 05:33
- 0 COMMENTS
- /
- 0 LIKES
-
-
코스엑스•2001.10.12 20:33쿼리문 질문 wrote: > a의합 a의합에합 > ================= > 1 6 > 2 6 > 3 6 ...
-
-
-
승추니•2001.10.12 06:43최유순 wrote: > 델파이에서 'Name not unique in this context' 이런 에러가 납니다 > 이에러는 BDE.IN...
-
-
- 어드벤스 그리드
- 2001.10.12 02:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상탁
- 2001.10.12 02:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 엄청지친이
- 2001.10.12 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 유승완
- •
- 2001.10.12 02:00
- 2 COMMENTS
- /
- 0 LIKES
-
neps•2001.10.12 04:43작성자 : 김영호 (soft005@lycos.co.kr) 조회: 236, 줄수: 12, 분류: 팁 [팁] 윈도우의 작업표시줄...
-
유승완•2001.10.12 19:31감사감사..이런게 있었군요.. 나름대로 자료를 찾았는데 없어서 무자게 고민했답니당... 최악의 경우는 ...
input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)
HEP0050', 'HEP0050');
if input_data = '' then
begin
showmessage('다시입력하세요.');
end;
until input_data <> '';
정규성 wrote:
> var input_data:string;
>
> begin
>
> input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)
> HEP0050', 'HEP0050');
>
> if input_data = '' then
> begin
> showmessage('다시입력하세요.');
> end;
>
> end;
>
> 위에서 처럼 InputBox에서 자료를 입력하지 않고 [확 인]을 눌렀을때 그값
> 오류메세지를 띄운후 원래의 InputBox로 돌아가게 할려면 어떻게 해야 되죠???
> EditBox 같으면 edit1.setfocus하면 원래 자리로 돌아가는데... InputBox에서는 어떻게 해야 될지 모르겠습니다.
> 혹시 InputBox를 다시 띄워야 되는건가요...??? 부탁 드리겠습니다.
>
> 그리고,, 다른거 하나만 더 여쭤보겠습니다.
> 아래처럼 하면 안되거든요. 비주얼 베이직에서 처럼 문자를 잘라서 자른 문자가 문자인지 숫자인지 비교를 할려고 합니다.
> 그런데.. 잘 안되네요. 부탁 드리겠습니다.
>
>
> input_data:= InputBox('검색 입력 박스', '제품 코드를 입력하세요.ex)HEP0050', 'HEP0050');
>
> if input_data = '' then
> begin
> showmessage('다시입력하세요.');
> end
> else
> if input_data(1:3) not = alphabetics then
> begin
> showmessage('코드 앞부분의 3자리는 문자 입니다.');
> end
> else
> if input_data(4:7) not = numerics then
> begin
> showmessage('코드 뒷부분의 4자리부터는 숫자 입니다.');
> end;
>
>