Q&A
- 머리아프고 머리카락 빠집니다.
코딩이 어디가 잘못됐는지 모르겠어여,
배운지 한 열흘 됐는데, 그냥 포기하고 싶군여, 포기하더래두 알고 포기해야져.
제가 코딩한건데 뭐가 잘못됐는지,,,
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=1 then Edit1.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=2 then Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) );
end;
end.
배운지 한 열흘 됐는데, 그냥 포기하고 싶군여, 포기하더래두 알고 포기해야져.
제가 코딩한건데 뭐가 잘못됐는지,,,
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=1 then Edit1.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=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.09.29 02:13
- 0 COMMENTS
- /
- 0 LIKES
-
- Cha
- •
- 2000.09.29 01:45
- 1 COMMENTS
- /
- 0 LIKES
-
...•2000.09.29 03:10Cha wrote: > Cardinal을 스트링이나 PChar로 형변환 하구 시포여.. > 꼬옥 답해 주세염.. 어차피 Int...
-
- 맹주형
- 2000.09.29 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 김경태
- 2000.09.29 01:03
- 0 COMMENTS
- /
- 0 LIKES
-
- godurum
- •
- 2000.09.29 00:46
- 3 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.09.29 01:00godurum wrote: > 문장을 입력하다가 문장중에 '가 없게 하려고 하는데 어떻게 해야 할지 > > 모르겠내...
-
구창민•2000.09.29 00:51godurum wrote: > 문장을 입력하다가 문장중에 '가 없게 하려고 하는데 어떻게 해야 할지 > > 모르겠내...
-
어린왕자•2000.09.29 00:50godurum wrote: > 문장을 입력하다가 문장중에 '가 없게 하려고 하는데 어떻게 해야 할지 > > 모르겠내...
-
- 김경태
- 2000.09.29 00:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 델포이
- •
- 2000.09.29 00:32
- 5 COMMENTS
- /
- 0 LIKES
-
바보감자(델포이)•2000.09.29 08:16정말 감사합니다. ㅠ.ㅠ 맘착하신분들이 정말 너무너무 많아서 기뻐여~~~~~~~ 언제나 좋은 시간.. 음....
-
mafioso•2000.09.29 03:53고생이 많쿠만요... 내용을 보아하니 특정제품의 투여량을 명세와 함께 투여량누계까지 보여주는 것 ...
-
...•2000.09.29 02:47디비 종류가 뭔가요??? 로컬이 아니라면 InLineView를 사용하실수 있을껀데.... 맞는지는 모르겠지...
-
사발우성•2000.09.29 01:20엄청 초보 사발임당... xxx 까쥐는 계산필드로 할수 있게는디 jjj는 어렵네여 ^^ select a,b,c,d,(a...
-
성호종•2000.09.29 00:38델포이 wrote: 조인보다는 calc필드를 사용하시는게 좋을듯... > 안녕하세요.. > 정말 델고수분들께...
-
- 유수
- 2000.09.29 00:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 김성중
- •
- 2000.09.29 00:23
- 2 COMMENTS
- /
- 0 LIKES
-
유수•2000.09.29 00:33김성중 wrote: > 델파이를 이용해서 DLL을 만드려 하고 있습니다. > 물런 C++이나 VB에서도 사용하여야 ...
-
김성중•2000.09.29 01:20유수님 감사합니다.. 그러면 String의 리스트를 넘기는 방법은 없나요? 유수 wrote: > 김성중 wrote: ...
-
- won
- 2000.09.29 00:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 까마귀
- 2000.09.29 00:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델피
- •
- 2000.09.29 00:20
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.09.29 00:48해당하는 에러가 나는 이유는 TVideo 클래스에서 비디오 관련 리소스를 잡지 못해서 발생하는 에러입니다. ...
-
- 홍길동
- 2000.09.28 23:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형중
- 2000.09.28 23:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 초자
- •
- 2000.09.28 23:28
- 1 COMMENTS
- /
- 0 LIKES
-
양익호•2000.09.29 18:20초자 wrote: > access의 자료를 읽어 DBGrid에 출력했는데, > 한글이 모두 '#'로 출력되네요. 거참 다른 ...
-
- mickyblue
- •
- 2000.09.28 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
김성중•2000.09.29 00:28//이부분에 (가 빠졌네요 (*다음부분 가로 추가 됨) Edit2.Text := FormatDateTime( 'YYYY.MM', IncMont...
-
임형호•2000.09.28 23:33그것은 '=' 나와야되는데 '('이 나왔다는 얘기이거든요. 직역을 하자면요.. 그러니까 코딩을 찬찬히 살펴...
-
- mickyblue
- •
- 2000.09.28 22:59
- 1 COMMENTS
- /
- 0 LIKES
코딩이 어디가 잘못됐는지 모르겠어여, 배운지 한 열흘 됐는데, 그냥 포기하고 싶군여, 포기하더래두 알고 포기해야져. 제가 코딩한건데 뭐가 잘못됐는지,,, unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics,...-
김영해•2000.09.28 23:04mickyblue wrote: > 코딩이 어디가 잘못됐는지 모르겠어여, > 배운지 한 열흘 됐는데, 그냥 포기하고 싶...
-
- I ♡ 토토로
- •
- 2000.09.28 22:46
- 1 COMMENTS
- /
- 0 LIKES
-
이진우•2000.09.28 23:50I ♡ 토토로 wrote: > 안녕하세요... > > windows 2000에서 cpu 사용률을 알 수 있는 방법을 알고 싶습...
-
- 사발우성
- •
- 2000.09.28 22:45
- 2 COMMENTS
- /
- 0 LIKES
-
건설정보연구소•2000.09.28 22:55답변 아래 소스는 프린터 객체를이용한건데 골격만있는것 같군요 핵심은 prEcoDoc에서 출력 하는 부분인...
-
사발우성•2000.09.29 00:29건설정보연구소 wrote: > 답변 > 아래 소스는 프린터 객체를이용한건데 골격만있는것 같군요 핵심은 prE...
-
-
왕초보•2000.09.29 00:00질문에 대한 답이 맞는지 모르겠내요^^ procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; ...
-
강인규•2000.09.28 23:01거의 다 하셨구만요. 진짜루 바보는 모르면서 알려구하지 않는 사람이지요. 생각하신 작업을 하실려면 ...
-
임형호•2000.09.28 22:31위의 말씀하고 코딩하고는 어디가 좀 맞지 않는 느낌입니다. 제가 이해를 잘못했나??? 암튼... edit1에서...
-
> 코딩이 어디가 잘못됐는지 모르겠어여,
> 배운지 한 열흘 됐는데, 그냥 포기하고 싶군여, 포기하더래두 알고 포기해야져.
> 제가 코딩한건데 뭐가 잘못됐는지,,,
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Edit1: TEdit;
> Edit2: TEdit;
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> procedure Edit1Change(Sender: TObject);
> procedure Edit2Change(Sender: TObject);
>
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> if key=1 then Edit1.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
>
> end;
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
> begin
> if key=2 then Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) );
> end;
>
> end.
>
>
>
edit1에 '1'을 넣었을때겠죠?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //enter key
begin
if Edit1.Text = '1' then
Edit1.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-2) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-1) );
end;
end;
그리구요, 먼저 form의 KeyPreview를 True로 설정하시야합니다.
천천히 즐겁게 코딩하세요...