Q&A
- 회사에서 실력테스트중입니다. 시간이 엄떠서,
자꾸 글올려서 죄송합니다.
EXPECTED '=' but '('found
이게 무슨 error져???
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 Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var
minusMunce : integer;
minusMunce := strtoint(edit1.text);
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if Edit1.Text = '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 Edit.Text = '2' then
Edit.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) );
end;
end.
keypress시.....
if key=#13 then begin//만일 엔터키를 눌렀다면.....
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)) );
EXPECTED '=' but '('found
이게 무슨 error져???
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 Edit2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
var
minusMunce : integer;
minusMunce := strtoint(edit1.text);
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
if Edit1.Text = '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 Edit.Text = '2' then
Edit.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) );
end;
end.
keypress시.....
if key=#13 then begin//만일 엔터키를 눌렀다면.....
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)) );
2
COMMENTS
-
-
그것은 '=' 나와야되는데 '('이 나왔다는 얘기이거든요. 직역을 하자면요..
그러니까 코딩을 찬찬히 살펴보세요. '(' 의 갯수라든지...
어떤 처리부분의 형식이 틀려서 그런경우가 십중팔구입니다.
mickyblue wrote:
> 자꾸 글올려서 죄송합니다.
> EXPECTED '=' but '('found
> 이게 무슨 error져???
>
>
> 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 Edit2Change(Sender: TObject);
>
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> var
> minusMunce : integer;
>
> minusMunce := strtoint(edit1.text);
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
>
> begin
> if key=#13 then
>
> begin
> if Edit1.Text = '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 Edit.Text = '2' then
> Edit.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) );
> end;
>
> end.
>
> keypress시.....
> if key=#13 then begin//만일 엔터키를 눌렀다면.....
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)) );
>
>
>
>
>
(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
자꾸 글올려서 죄송합니다. EXPECTED '=' but '('found 이게 무슨 error져??? unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEd...-
김성중•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
-
김영해•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에서...
-
Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )*)
+ ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text))*) );
mickyblue wrote:
> 자꾸 글올려서 죄송합니다.
> EXPECTED '=' but '('found
> 이게 무슨 error져???
>
>
> 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 Edit2Change(Sender: TObject);
>
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> var
> minusMunce : integer;
>
> minusMunce := strtoint(edit1.text);
>
> procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
>
> begin
> if key=#13 then
>
> begin
> if Edit1.Text = '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 Edit.Text = '2' then
> Edit.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-4) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-3) );
> end;
>
> end.
>
> keypress시.....
> if key=#13 then begin//만일 엔터키를 눌렀다면.....
> Edit2.Text := FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)+1) )
> + ' ~ ' + FormatDateTime( 'YYYY.MM', IncMonth(Now,-(strtoint(edit1.text)) );
>
>
>
>
>