Q&A
- EncodeDATE를 이용하여 일을 체크할때 발생하는 에러 해결책 좀 주세요.....
// 각 년도 월에 맞는 일이 있도록 하는 부분.
function TInputMastFrm.CheckedDATE(DATE: string): Boolean;
var
Y, M, D: integer;
begin
try
Result := True;
Y := StrToInt(Copy(DATE, 1, 4));
M := StrToInt(Copy(DATE, 5, 2));
D := StrToInt(Copy(DATE, 7, 2));
EncodeDate(Y, M, D);
except
Result := False;
end;
end;
이렇게하여 체크하였습니다...
DATE는 년 월일 의 텍스트에디트박스에서 합쳐서 DATE라는 변수에
넣어 주고요....
근데 자꾸 EConvertError exception 이 발생한다는 메세지와 함께
프로그램이 멈춰버리는군요...물론 2002년 2월 30일 같은 오류가 발생
하였을경우에만요..
위에 except 구문에 저렇게 해서 값만 넘겨주면 되는게 아닌지요??
여러 고수님들의 조언 부탁드립니다..
function TInputMastFrm.CheckedDATE(DATE: string): Boolean;
var
Y, M, D: integer;
begin
try
Result := True;
Y := StrToInt(Copy(DATE, 1, 4));
M := StrToInt(Copy(DATE, 5, 2));
D := StrToInt(Copy(DATE, 7, 2));
EncodeDate(Y, M, D);
except
Result := False;
end;
end;
이렇게하여 체크하였습니다...
DATE는 년 월일 의 텍스트에디트박스에서 합쳐서 DATE라는 변수에
넣어 주고요....
근데 자꾸 EConvertError exception 이 발생한다는 메세지와 함께
프로그램이 멈춰버리는군요...물론 2002년 2월 30일 같은 오류가 발생
하였을경우에만요..
위에 except 구문에 저렇게 해서 값만 넘겨주면 되는게 아닌지요??
여러 고수님들의 조언 부탁드립니다..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 배경
- •
- 2002.04.13 01:31
- 1 COMMENTS
- /
- 0 LIKES
-
major•2002.04.13 01:42안녕하세여.. 제가 아직 소스를 이해를 못 했지만 그래도 문장이 잘못된 거 같아서 이렇게 답변을 올려 드...
-
-
major•2002.04.13 01:46안녕하세요.. 제가 알기로는 DB2에서는 그런 문제가 없는 걸로 알고 있거든요.. 글구 혹시 안 되시면...
-
조영주•2002.04.13 06:51죄송합니다. 그렇게 해보지 않은것은 아닙니다. DBExplore에서 바로 Insert 문을 만들어서 key값만...
-
-
- 이상협
- 2002.04.13 01:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 강신구
- •
- 2002.04.13 00:03
- 1 COMMENTS
- /
- 0 LIKES
-
머슴•2002.04.13 01:03Case문이 가장 좋겠군요.. (아니면 if문으로 계속 중첩해서 쓰면 되는데요.. ...
-
- Delphi Kim
- 2002.04.12 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 박순석
- •
- 2002.04.12 23:49
- 1 COMMENTS
- /
- 0 LIKES
-
이용관•2002.05.09 04:50제가 아는 방법는 2가지가 있습니다. 1) Update 한 Table 에 필드를 두어서 수정한 이의 정보를 두는겁...
-
- 유종근
- •
- 2002.04.12 23:31
- 1 COMMENTS
- /
- 0 LIKES
-
배경•2002.04.13 22:53원하는 답변인지는 잘 모스겠습니다만 우선 텍스트 파일을 읽어들인후에 문자열 버퍼변수에 집어&#...
-
- 신종훈
- •
- 2002.04.12 23:27
- 4 COMMENTS
- /
- 0 LIKES
-
염상철•2002.04.12 23:31어디선가..begin을 하거..end;를 안닫아서 그런답니다... 만약..위에.begin갯수와..end;갯수가 안맞으면.....
-
신종훈•2002.04.12 23:52답변감사드립니다! 정말 end; 가 하나 빠져있군요. 그런데... cannot find implementation fo method Fo...
-
염상철•2002.04.13 00:45이것도 똑같은 에러 입니다. 어디선가 end;가 빠져서 그래여.. 근데..위쪽에 보시면..프로시져 선언부있...
-
신종훈•2002.04.13 01:13^^
-
- 김동화
- •
- 2002.04.12 23:15
- 2 COMMENTS
- /
- 0 LIKES
-
박순석•2002.04.13 00:58DBGrid의 KeyDown과 KeyUp 이벤트를 쓰면 될거 같네요.. 아래 같은 방법으로 컨트럴키가 Dow...
-
김동화•2002.04.13 01:55감사합니다 그런데 제가 초보라서... 좀더 자세하게 설명해주실 수 있나요? 코딩으로 써 주시면 ...
-
- 박동호
- •
- 2002.04.12 23:11
- 1 COMMENTS
- /
- 0 LIKES
-
김정수•2002.04.13 19:52정확히 원하시는 답일지는 모르지만.... OnMouseDown / Up이베트 처리 함수를 추가하시면 자동으로 Sh...
-
- 윤일영
- 2002.04.12 21:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 최정규
- •
- 2002.04.12 21:18
- 1 COMMENTS
- /
- 0 LIKES
-
머슴•2002.04.12 22:37select a.날짜필드,a.관리번호필드,b.명칭필드 from table2 a (select 관리번호,...
-
- 김용덕
- 2002.04.12 21:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진혁
- 2002.04.12 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 송현경
- 2002.04.12 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 남상진
- •
- 2002.04.12 20:16
- 1 COMMENTS
- /
- 0 LIKES
// 각 년도 월에 맞는 일이 있도록 하는 부분. function TInputMastFrm.CheckedDATE(DATE: string): Boolean; var Y, M, D: integer; begin try Result := True; Y := StrToInt(Copy(DATE, 1, 4)); M := StrToInt(Copy(DATE, 5, 2)); D :=...-
머슴•2002.04.12 22:30죽는 이유는 except Result := False; end; ...
-
- 최무승
- 2002.04.12 20:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영진
- •
- 2002.04.12 19:51
- 1 COMMENTS
- /
- 0 LIKES
-
머슴•2002.04.12 20:09format함수가 있습니다..... var I,J:integer; F:doubl...
-
- 홍희석
- 2002.04.12 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김명기
- •
- 2002.04.12 19:21
- 1 COMMENTS
- /
- 0 LIKES
-
머슴•2002.04.12 19:57여기서 잘난체를 한번 해보자면...... 먼저 업무에 맞는 컴퍼넌트...
except
Result := False;
end;
이부분에서 에러가 나면 함수를 빠져나가야 하는데...
못나가서 죽는것 같습니다...
이렇게 한번 수정을 해보세여...
except
Result := False;
exit;
end;