Q&A
- A~Z까지 유효검사를 하는 문제입니다.
아래 내용은 입력처리 조건을 처리하는 부분입니다.
문제는 조건4.우수고객등급은 영문 1자리 A~Z까지 입력이라는 조건인데
if 문을 쓰면 너무 복잡할것 같아서
상수와 for문을 사용했는데 적정한 데이타를 입력시켜도 에러메시지가 나옵니다.
어디가 잘못된 것인지 이해가 가질 않습니다
설명을 좀 부탁드립니다.
덧붙여 기사시험을 준비하면서 델파이를 강의하는 학원이 없어 이곳에서 많은 도움을 얻었는데
지금까지 제 질문에 답변해 주신 분들께도 고맙다는 인사를 드립니다.
행복하세요..
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
const
temp : array[1..26] of string = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
'U', 'V', 'W', 'S', 'Y', 'Z');
begin
count := count +1;
if count > 7 then
begin
showmessage('최대입력건수를 초과했습니다');
count := count -1;
exit;
end;
if (edit1.text = '') or (edit2.text = '') or
(edit3.text = '') or (edit4.text = '') then
begin
showmessage('필수입력항목입니다');
count := count -1;
exit;
end;
//조건1. 고객번호는 정수3자리, 중복입력불가
case strtoint(edit1.text) of
1..999 :
else
begin
showmessage('고객번호는 정수 3자리입니다');
count := count -1;
edit1.setfocus;
exit;
end;
end;
for i:= 1 to count-1 do
begin
if edit1.text = in_data[i].in1 then
begin
showmessage('이미 등록된 고객번호가 존재합니다');
count := count -1;
edit1.setfocus;
exit;
end;
end;
//조건2. 상품코드는 영문1자리, 정수1자리(코드화)
if (uppercase(edit2.text) <> 'Q1') and
(uppercase(edit2.text) <> 'Q2') and
(uppercase(edit2.text) <> 'Q3') and
(uppercase(edit2.text) <> 'Q4') and
(uppercase(edit2.text) <> 'Q5') and
(uppercase(edit2.text) <> 'Q6') then
begin
showmessage('잘못된 상품코드입니다');
count := count -1;
edit2.setfocus;
exit;
end;
//조건3. 판매수량은 정수 1-99
case strtoint(edit3.text) of
1..99 :
else
begin
showmessage('판매수량은 정수 2자리입니다');
count := count -1;
edit3.setfocus;
exit;
end;
end;
//조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
for j := 1 to 26 do
if uppercase(edit4.text) <> temp[j] then
begin
showmessage('우수고객등급은 A~Z까지입니다');
count := count -1;
edit4.setfocus;
exit;
end;
with in_Data[count] do
begin
in1 := edit1.text;
in2 := edit2.text;
in3 := edit3.text;
in4 := edit4.text;
end;
edit1.text := '';
edit2.text := '';
edit3.text := '';
edit4.text := '';
edit1.setfocus;
end;
문제는 조건4.우수고객등급은 영문 1자리 A~Z까지 입력이라는 조건인데
if 문을 쓰면 너무 복잡할것 같아서
상수와 for문을 사용했는데 적정한 데이타를 입력시켜도 에러메시지가 나옵니다.
어디가 잘못된 것인지 이해가 가질 않습니다
설명을 좀 부탁드립니다.
덧붙여 기사시험을 준비하면서 델파이를 강의하는 학원이 없어 이곳에서 많은 도움을 얻었는데
지금까지 제 질문에 답변해 주신 분들께도 고맙다는 인사를 드립니다.
행복하세요..
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
const
temp : array[1..26] of string = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
'U', 'V', 'W', 'S', 'Y', 'Z');
begin
count := count +1;
if count > 7 then
begin
showmessage('최대입력건수를 초과했습니다');
count := count -1;
exit;
end;
if (edit1.text = '') or (edit2.text = '') or
(edit3.text = '') or (edit4.text = '') then
begin
showmessage('필수입력항목입니다');
count := count -1;
exit;
end;
//조건1. 고객번호는 정수3자리, 중복입력불가
case strtoint(edit1.text) of
1..999 :
else
begin
showmessage('고객번호는 정수 3자리입니다');
count := count -1;
edit1.setfocus;
exit;
end;
end;
for i:= 1 to count-1 do
begin
if edit1.text = in_data[i].in1 then
begin
showmessage('이미 등록된 고객번호가 존재합니다');
count := count -1;
edit1.setfocus;
exit;
end;
end;
//조건2. 상품코드는 영문1자리, 정수1자리(코드화)
if (uppercase(edit2.text) <> 'Q1') and
(uppercase(edit2.text) <> 'Q2') and
(uppercase(edit2.text) <> 'Q3') and
(uppercase(edit2.text) <> 'Q4') and
(uppercase(edit2.text) <> 'Q5') and
(uppercase(edit2.text) <> 'Q6') then
begin
showmessage('잘못된 상품코드입니다');
count := count -1;
edit2.setfocus;
exit;
end;
//조건3. 판매수량은 정수 1-99
case strtoint(edit3.text) of
1..99 :
else
begin
showmessage('판매수량은 정수 2자리입니다');
count := count -1;
edit3.setfocus;
exit;
end;
end;
//조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
for j := 1 to 26 do
if uppercase(edit4.text) <> temp[j] then
begin
showmessage('우수고객등급은 A~Z까지입니다');
count := count -1;
edit4.setfocus;
exit;
end;
with in_Data[count] do
begin
in1 := edit1.text;
in2 := edit2.text;
in3 := edit3.text;
in4 := edit4.text;
end;
edit1.text := '';
edit2.text := '';
edit3.text := '';
edit4.text := '';
edit1.setfocus;
end;
4
COMMENTS
-
-
정성훈 wrote:
>
> 안녕하세요.
> FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당연합니다.
> BREAK 하나 추가하시면 됩니다.
> 그럼 20000
>
> > //조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
> > for j := 1 to 26 do
> > if uppercase(edit4.text) <> temp[j] then
> > begin
> > showmessage('우수고객등급은 A~Z까지입니다');
> > count := count -1;
> > edit4.setfocus;
> > exit;
>
> end //이부분을 이렇게
>
> end else begin
> ShowMessage( '당신은 우수고객이시네요^^*' );
> Break;
> end;
>
>
답변 감사합니다.
그런데 설명은 이해를 하겠는데 break를 사용했는데도 문제가 해결되질 않습니다.
마찬가지로 A를 입력해도 에러 메시지('우수고객등급은 A~Z까지입니다')가 나타납니다
다시 한번 제가 올린 소스를 보셔서 설명해 주시면 고맙겠습니다
-
안녕하세요
전 그렇게 복잡하게 안 할거 같은데요
이렇게 함 안 될까요>>>>>>>>>>???????
if not ((edit4.text[1]) in ['A'..'Z']) then
showmessage('우수고객등급은 A~Z까지입니다');
이렇게 해두 될꺼 같은데요........
즐코딩 하세요
이금선 wrote:
> 정성훈 wrote:
>
>
> >
> > 안녕하세요.
> > FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당연합니다.
> > BREAK 하나 추가하시면 됩니다.
> > 그럼 20000
> >
> > > //조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
> > > for j := 1 to 26 do
> > > if uppercase(edit4.text) <> temp[j] then
> > > begin
> > > showmessage('우수고객등급은 A~Z까지입니다');
> > > count := count -1;
> > > edit4.setfocus;
> > > exit;
> >
> > end //이부분을 이렇게
> >
> > end else begin
> > ShowMessage( '당신은 우수고객이시네요^^*' );
> > Break;
> > end;
> >
> >
>
> 답변 감사합니다.
> 그런데 설명은 이해를 하겠는데 break를 사용했는데도 문제가 해결되질 않습니다.
> 마찬가지로 A를 입력해도 에러 메시지('우수고객등급은 A~Z까지입니다')가 나타납니다
> 다시 한번 제가 올린 소스를 보셔서 설명해 주시면 고맙겠습니다
>
>
-
이금선 wrote:
> 정성훈 wrote:
>
>
> >
> > 안녕하세요.
> > FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당연합니다.
> > BREAK 하나 추가하시면 됩니다.
> > 그럼 20000
> >
> > > //조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
> > > for j := 1 to 26 do
> > > if uppercase(edit4.text) <> temp[j] then
> > > begin
> > > showmessage('우수고객등급은 A~Z까지입니다');
> > > count := count -1;
> > > edit4.setfocus;
> > > exit;
> >
> > end //이부분을 이렇게
> >
> > end else begin
> > ShowMessage( '당신은 우수고객이시네요^^*' );
> > Break;
> > end;
> >
> >
>
> 답변 감사합니다.
> 그런데 설명은 이해를 하겠는데 break를 사용했는데도 문제가 해결되질 않습니다.
> 마찬가지로 A를 입력해도 에러 메시지('우수고객등급은 A~Z까지입니다')가 나타납니다
> 다시 한번 제가 올린 소스를 보셔서 설명해 주시면 고맙겠습니다
>
>
안녕하세요
혹시나 해서 제가 테스트해봤는데 문제가 없네요.
A-Z 면 통과이고 아니면 메시지를 띄우는거 맞죠?
그러다가 count 값이 계속 감소하면 어떤처리를 하는거구요?
그냥 Break 만 다시 한번 해보십시요
procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
count : Integer;
const
temp : array[1..26] of string = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
'U', 'V', 'W', 'S', 'Y', 'Z');
begin
for j := 1 to 26 do
if uppercase(edit4.text) < temp[j] then
begin
showmessage('우수고객등급은 A~Z까지입니다');
count := count -1;
edit4.setfocus;
exit;
end else Break; //이부분 수정.
{
with in_Data[count] do
begin
in1 := edit1.text;
in2 := edit2.text;
in3 := edit3.text;
in4 := edit4.text;
end;
edit1.text := '';
edit2.text := '';
edit3.text := '';
edit4.text := '';
edit1.setfocus;
end;
}
end;
(NOTICE) You must be logged in to comment on this post.
-
- 이금선
- •
- 2001.07.10 20:04
- 4 COMMENTS
- /
- 0 LIKES
아래 내용은 입력처리 조건을 처리하는 부분입니다. 문제는 조건4.우수고객등급은 영문 1자리 A~Z까지 입력이라는 조건인데 if 문을 쓰면 너무 복잡할것 같아서 상수와 for문을 사용했는데 적정한 데이타를 입력시켜도 에러메시지가 나옵...-
정성훈•2001.07.10 20:33이금선 wrote: > 아래 내용은 입력처리 조건을 처리하는 부분입니다. > > 문제는 조건4.우수고객등급은...
-
이금선•2001.07.11 04:36정성훈 wrote: > > 안녕하세요. > FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당...
-
뽀록이•2001.07.11 23:38안녕하세요 전 그렇게 복잡하게 안 할거 같은데요 이렇게 함 안 될까요>>>>>>>>>>??????? if not ((ed...
-
정성훈•2001.07.11 06:32이금선 wrote: > 정성훈 wrote: > > > > > > 안녕하세요. > > FOR는 루프인데 결과가 같아도 계속...
-
- 나그네
- 2001.07.10 19:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 처음
- •
- 2001.07.10 19:48
- 2 COMMENTS
- /
- 0 LIKES
-
Ben•2001.07.10 20:14처음 wrote: > MDI와 CHILD 폼을 기본으로 사용하고요.. > 간혹 CHILD폼을 열때 다음과 같은 Error메세지...
-
처음•2001.07.10 20:54Ben wrote: > 처음 wrote: > > MDI와 CHILD 폼을 기본으로 사용하고요.. > > 간혹 CHILD폼을 열때 다음...
-
- 인어공주
- •
- 2001.07.10 19:45
- 2 COMMENTS
- /
- 0 LIKES
-
하기•2001.07.10 20:21procedure Val(S; var V; var Code: Integer); [[[[Example]]]] procedure TForm1.Button1Click(Sender:...
-
인어공주•2001.07.10 21:01항상 하기님이 제 답변을 해주시는것 같네요. 정말 고맙습니다. 문제는 해결 되었구요..^^ 항상 ...
-
- 엔젤조
- 2001.07.10 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- peritus
- 2001.07.10 19:35
- 0 COMMENTS
- /
- 0 LIKES
-
-
-
블랙봉•2001.07.10 19:16FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이방인 wrote: > string grid내용...
-
이방인•2001.07.10 19:42FormatMaskText('A-00000-0000000;0', StringGrid.Cells[iCol,iRow]) 이런식으로 바꿔놓고 하면 엑셀로 ...
-
-
- 아기코알라
- •
- 2001.07.10 18:40
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.07.10 18:51맞는 지는 모릅니다. 혹시 계산이 잘못 되는 경우는 이 때문이지 않을까요? > end else (begin) > ...
-
- 김대훈
- •
- 2001.07.10 18:34
- 3 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.07.10 18:44> Edit2.Text := IntToStr(Query2.FieldByName('CstmrID').Value); 윗 부분은 다음과 같이 변환하시면 ...
-
김대훈•2001.07.10 20:36다시 한번 답변 부탁드리겠습니다.. 아래의 소스를 보면 퀴리가 조인으로 결과셋이 나왔는데 필드를 구별...
-
블랙봉•2001.07.11 02:23> > > SQL.Add(' SELECT * '); > > > SQL.Add(' FROM Customers AS a INNER JOIN Customers_Detail AS...
-
- 이성근
- •
- 2001.07.10 18:26
- 1 COMMENTS
- /
- 0 LIKES
-
손•2001.07.12 09:53이성근 wrote: > 델파이 한글판 있나요? > > 또 어디서 구할수 있나요? ㅜ.ㅡ > > c++ 만 하다보니...
-
- 이정현
- 2001.07.10 13:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 한동수
- 2001.07.10 13:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성문
- •
- 2001.07.10 09:34
- 1 COMMENTS
- /
- 0 LIKES
-
박서규•2001.07.10 19:28김성문 wrote: > procedure TForm1.SpeedButton1Click(Sender: TObject); > var strlist1:Tstringlist; K...
-
- 초보..
- •
- 2001.07.10 09:08
- 1 COMMENTS
- /
- 0 LIKES
-
Ben•2001.07.10 20:09초보.. wrote: > 아까 글을 남겼는데 > 처음 남기다 보니깐 나두 모르게 열개정도가 한번에.. 미안합니다...
-
- 부산갈매기
- 2001.07.10 06:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 빙고
- 2001.07.10 06:15
- 0 COMMENTS
- /
- 0 LIKES
-
- xxx
- 2001.07.10 06:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보팅이
- •
- 2001.07.10 05:08
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.07.14 20:42bde를 업그레이드 시키셔야 하는것 같습니다. 한국볼랜드에 가시면 있는것 같은데...
-
- 김대훈
- •
- 2001.07.10 03:57
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.07.10 04:23edit1.text := fieldbyname('int').asstring; 또는 edit1.text := inttstr(fieldbyname('int').asintege...
> 아래 내용은 입력처리 조건을 처리하는 부분입니다.
>
> 문제는 조건4.우수고객등급은 영문 1자리 A~Z까지 입력이라는 조건인데
> if 문을 쓰면 너무 복잡할것 같아서
> 상수와 for문을 사용했는데 적정한 데이타를 입력시켜도 에러메시지가 나옵니다.
>
> 어디가 잘못된 것인지 이해가 가질 않습니다
> 설명을 좀 부탁드립니다.
>
> 덧붙여 기사시험을 준비하면서 델파이를 강의하는 학원이 없어 이곳에서 많은 도움을 얻었는데
> 지금까지 제 질문에 답변해 주신 분들께도 고맙다는 인사를 드립니다.
> 행복하세요..
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> var i, j: integer;
> const
> temp : array[1..26] of string = ('A', 'B', 'C', 'D', 'E', 'F', 'G',
> 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T',
> 'U', 'V', 'W', 'S', 'Y', 'Z');
> begin
> count := count +1;
>
> if count > 7 then
> begin
> showmessage('최대입력건수를 초과했습니다');
> count := count -1;
> exit;
> end;
>
> if (edit1.text = '') or (edit2.text = '') or
> (edit3.text = '') or (edit4.text = '') then
> begin
> showmessage('필수입력항목입니다');
> count := count -1;
> exit;
> end;
>
> //조건1. 고객번호는 정수3자리, 중복입력불가
> case strtoint(edit1.text) of
> 1..999 :
> else
> begin
> showmessage('고객번호는 정수 3자리입니다');
> count := count -1;
> edit1.setfocus;
> exit;
> end;
> end;
>
> for i:= 1 to count-1 do
> begin
> if edit1.text = in_data[i].in1 then
> begin
> showmessage('이미 등록된 고객번호가 존재합니다');
> count := count -1;
> edit1.setfocus;
> exit;
> end;
> end;
>
> //조건2. 상품코드는 영문1자리, 정수1자리(코드화)
> if (uppercase(edit2.text) <> 'Q1') and
> (uppercase(edit2.text) <> 'Q2') and
> (uppercase(edit2.text) <> 'Q3') and
> (uppercase(edit2.text) <> 'Q4') and
> (uppercase(edit2.text) <> 'Q5') and
> (uppercase(edit2.text) <> 'Q6') then
> begin
> showmessage('잘못된 상품코드입니다');
> count := count -1;
> edit2.setfocus;
> exit;
> end;
>
> //조건3. 판매수량은 정수 1-99
> case strtoint(edit3.text) of
> 1..99 :
> else
> begin
> showmessage('판매수량은 정수 2자리입니다');
> count := count -1;
> edit3.setfocus;
> exit;
> end;
> end;
>
> //조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
> for j := 1 to 26 do
> if uppercase(edit4.text) <> temp[j] then
> begin
> showmessage('우수고객등급은 A~Z까지입니다');
> count := count -1;
> edit4.setfocus;
> exit;
> end;
>
> with in_Data[count] do
> begin
> in1 := edit1.text;
> in2 := edit2.text;
> in3 := edit3.text;
> in4 := edit4.text;
> end;
>
> edit1.text := '';
> edit2.text := '';
> edit3.text := '';
> edit4.text := '';
>
> edit1.setfocus;
> end;
>
안녕하세요.
FOR는 루프인데 결과가 같아도 계속 반복되니 메시지 출력은 당연합니다.
BREAK 하나 추가하시면 됩니다.
그럼 20000
> //조건4. 우수고객등급은 영문1자리 A~Z까지 입력 ---> 에러발생
> for j := 1 to 26 do
> if uppercase(edit4.text) <> temp[j] then
> begin
> showmessage('우수고객등급은 A~Z까지입니다');
> count := count -1;
> edit4.setfocus;
> exit;
end //이부분을 이렇게
end else begin
ShowMessage( '당신은 우수고객이시네요^^*' );
Break;
end;