Q&A
- 봐주세여...
오랜동안 안보다가 그런지...
소스를 보시고 잘못된점 지적해주세여.
잘모르겠슴다.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
begin
if Edit1.Text = '1' then
Edit1.Text := FormatDateTime('YYYY.MM', IncMonth(Now,-2)) + ' ~ ' + FormatDateTime('YYYY.MM', IncMonth(Now,-1));
if Edit2.Text = '2' then
Edit2.Text := FormatDateTime('YYYY.MM', IncMonth(Now,-4)) + ' ~ ' + FormatDateTime('YYYY.MM', IncMonth(Now,-3));
end;
end.
소스를 보시고 잘못된점 지적해주세여.
잘모르겠슴다.
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
begin
if Edit1.Text = '1' then
Edit1.Text := FormatDateTime('YYYY.MM', IncMonth(Now,-2)) + ' ~ ' + FormatDateTime('YYYY.MM', IncMonth(Now,-1));
if Edit2.Text = '2' then
Edit2.Text := FormatDateTime('YYYY.MM', IncMonth(Now,-4)) + ' ~ ' + FormatDateTime('YYYY.MM', IncMonth(Now,-3));
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 태여니
- •
- 2000.10.07 20:33
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2000.10.07 21:41현재 procedure를 빠져나갑니다. ex. procedure TForm1.A begin : if (어쩌구 저쩌...
-
- raeganja
- •
- 2000.10.07 20:02
- 1 COMMENTS
- /
- 0 LIKES
-
최준연•2000.10.08 21:03raeganja wrote: > 고수님들 다시 질문합니다. > DBcombobox에서 선택된 내용을 DB에 저장하려면 어떻게 ...
-
- coolling
- •
- 2000.10.07 19:51
- 2 COMMENTS
- /
- 0 LIKES
-
양용민•2000.10.07 23:20유닛에 Bde 를 추가하세요. coolling wrote: > > 몇일째 파라독스의 packing에 대해서 고민중입...
-
coolling•2000.10.07 23:45답변 감사합니다.. 헌데.. 안되는데요.. 에러가 납니다... 레코드를 삭제하면, 디비의 크기가 줄어들...
-
- 왕초보
- •
- 2000.10.07 19:35
- 3 COMMENTS
- /
- 0 LIKES
-
윤종필•2000.10.08 07:31프로젝트 파일에서 *.dpr 에서 어플리케이션이 실행되기전에 패스워드를 물어봐서 맞으면 실행시키고 틀리...
-
이광형•2000.10.07 22:13안녕하세요... 여러가지 방법이 이겠지만... 메인폼이 생성된 후에 폼을 Visible 속성을 false 로 해주고...
-
바보감자•2000.10.07 21:50왕초보 wrote: > 말 그대로 입니다. > > 어떻게 하면 될까엽??? > > 아시는분은 꼭 갈켜주셍~~~ ^^...
-
- 초보
- •
- 2000.10.07 18:31
- 1 COMMENTS
- /
- 0 LIKES
-
비•2000.10.09 17:55안녕하세요.. 도움이 될런지.. 서버단에 있는 provider의 옵션중 poAllowCommandText를 True 로주고 클라...
-
- seagal
- 2000.10.07 18:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤종필
- •
- 2000.10.07 17:37
- 3 COMMENTS
- /
- 0 LIKES
-
최광배•2000.10.07 18:351.Ms-SQL select substring(코드,1,3) 대분류,substring(코드,3,3) 중분류 from 테이블 Where sub...
-
김하늘•2000.10.07 18:19like 조건에 %string%' 대신에 like 조건에 '__string__', like 조건에 'string_____', like 조건에 '...
-
이선경•2000.10.07 18:16db마다 문자열을 지원하는 함숙가 틀릴수 있거든요...... 예를 들면 access에서는 left(code,2) 하면 앞의...
-
-
- 로비
- •
- 2000.10.07 11:15
- 1 COMMENTS
- /
- 0 LIKES
-
중얼•2000.10.12 23:52로비 wrote: > FTP 등으로 파일을 업로드하는 걸 알고 싶습니다 > 서버(NT)의 디렉토리는 고정이구요 ...
-
- 고유진
- •
- 2000.10.07 08:44
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.10.07 22:17고유진 wrote: > Panel에 스크롤바를 올려놓고... 스크롤을 하려고 합니다... > 어떻게 해야하나요? > ...
-
- 김경한
- •
- 2000.10.07 07:55
- 3 COMMENTS
- /
- 0 LIKES
-
김경한•2000.10.08 02:53데모에 들어있는 예제 코딩을 보고 해결했습니다. 도움주신분들 정말 감사드립니다. 김경한 wrote: ...
-
푸하하•2000.10.07 09:03혹시, 쿼리의 속성 중에서 [리퀘스트(?-잘 생각나진 않지만) Live]란 것을 true로 해 두셨는지요? 그것을 ...
-
나그네•2000.10.07 08:23델파이 예제중에 DemosdbCachedup 을 참조하시면 원하시는 답을 얻을것 같습니다. 이만... 김경한 wrot...
-
- 김종오
- 2000.10.07 06:41
- 0 COMMENTS
- /
- 0 LIKES
-
- coolling
- 2000.10.07 04:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 여영식
- •
- 2000.10.07 04:45
- 1 COMMENTS
- /
- 0 LIKES
-
조윤식•2000.10.13 19:11var h: hwnd; pt : TSmallpoint; begin pt.x:=x좌표; pt.y:=y좌표; postMessage(h,WM_LBUTTONDOWN,...
-
- mickyblue
- •
- 2000.10.07 04:41
- 1 COMMENTS
- /
- 0 LIKES
오랜동안 안보다가 그런지... 소스를 보시고 잘못된점 지적해주세여. 잘모르겠슴다. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin begin if Edit1.Text = '1' then Edit1.Text := FormatDateTime('YYYY.MM', I...-
이광형•2000.10.07 22:19mickyblue wrote: > 오랜동안 안보다가 그런지... > 소스를 보시고 잘못된점 지적해주세여. > 잘모르겠...
-
- yunani
- •
- 2000.10.07 04:36
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2000.10.07 08:19일반적인 파라독스테이블이나 디베이스경우 DatabaseName property에 경로를 정해주고 TableName에 Table...
-
- 삼, 팔, 그리고 光 .
- •
- 2000.10.07 03:28
- 2 COMMENTS
- /
- 0 LIKES
-
이선경•2000.10.07 18:22제가 보기에는 오라클이 문제가 아니라 기본적인 sql에 대한 이해가 부족하신것 같습니다,,, 책이 무...
-
coolling•2000.10.07 04:58아마 잘 생각은 안나지만... Alter Table 명령을 사용할겁니다.. 그리고 option에 컬럼 Add가 뭔가가 있...
-
- 마그넷
- •
- 2000.10.07 02:34
- 3 COMMENTS
- /
- 0 LIKES
-
이선경•2000.10.07 18:24테이블과 연결하는 dataset에 autosave가 있거든요,,, 이것이 true 되있으면 방금경험하신 현상이 일어납...
-
마그넷•2000.10.07 18:58님의 조언 고마왔슴다.. 근데여 전 Table을 데이터셋을 안거치구 막바루 데이터소스에 묵구 그리구 디...
-
최준연•2000.10.08 21:13마그넷 wrote: > 님의 조언 고마왔슴다.. > > 근데여 전 Table을 데이터셋을 안거치구 막바루 데이터...
-
- 조헌철
- 2000.10.07 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 류동기
- 2000.10.07 02:13
- 0 COMMENTS
- /
- 0 LIKES
> 오랜동안 안보다가 그런지...
> 소스를 보시고 잘못된점 지적해주세여.
> 잘모르겠슴다.
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> begin
> if Edit1.Text = '1' then
> Edit1.Text := FormatDateTime('YYYY.MM', IncMonth(Now,-2)) + ' ~ ' + FormatDateTime('YYYY.MM', IncMonth(Now,-1));
>
> if Edit2.Text = '2' then
> Edit2.Text := FormatDateTime('YYYY.MM', IncMonth(Now,-4)) + ' ~ ' + FormatDateTime('YYYY.MM', IncMonth(Now,-3));
> end;
>
> end.
일단 Procedure 밑에 begin 이 두개 있네요...
그리고 Edit1KeyPress 이벤트는 현재 눌린 key 를 가져 오는 것이므로
editbox에는 이전의 내용만 들어 있게 되겠죠^^
비교하실때 Key = '1' 이렇게 하시는게 좋을듯...
editbox에 1이 들어가는 싯점은 이 프로시져를 끝낸 다음에 들어가는것 같네요...