Q&A
- 책에서는 부분범위형이라고 하는데
procedure TForm1.Button1Click(Sender: TObject);
type
TvalidEntry = 1..100;
var
Entry: TvalidEntry;
begin
Entry := strtoint(Edit1.Text);
end;
책에서는 TvalidEntry = 1..100; 하면 1에서 100까지 변수값을 제한 시킬수 있다고 하는데
그냥 Entry := 101 을 하면 입력될수 없어 오류가 나는데
위에서처럼 Entry := strtoint(Edit1.Text); 하면 변수 입력이 잘되네여.,.
왜..왜 이런가여..님들 갈켜주세요..
type
TvalidEntry = 1..100;
var
Entry: TvalidEntry;
begin
Entry := strtoint(Edit1.Text);
end;
책에서는 TvalidEntry = 1..100; 하면 1에서 100까지 변수값을 제한 시킬수 있다고 하는데
그냥 Entry := 101 을 하면 입력될수 없어 오류가 나는데
위에서처럼 Entry := strtoint(Edit1.Text); 하면 변수 입력이 잘되네여.,.
왜..왜 이런가여..님들 갈켜주세요..
0
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 윤기원
- 2002.10.01 22:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 박준영
- •
- 2002.10.01 21:28
- 2 COMMENTS
- /
- 0 LIKES
-
최병철•2002.10.01 22:24재 컴파일후 특정 패널에 등록하시면 될 것 같은데... 단, 에러가 없으면.
-
박준영•2002.10.01 22:52제 컴파일 했더니... 에러가 나네요.. Undeclarer identifier "TPropertyAttributes " 이란 에러가 나네...
-
- 황해숙
- 2002.10.01 20:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 갈매기
- 2002.10.01 20:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정은
- 2002.10.01 19:58
- 0 COMMENTS
- /
- 0 LIKES
procedure TForm1.Button1Click(Sender: TObject); type TvalidEntry = 1..100; var Entry: TvalidEntry; begin Entry := strtoint(Edit1.Text); end; 책에서는 TvalidEntry = 1..100; 하면 1에서 100까지 변수값을 제한 시킬수 있다고 하...
-
- 조현학
- •
- 2002.10.01 19:21
- 1 COMMENTS
- /
- 0 LIKES
-
임승범•2002.10.17 05:58BDE Administrator -> Configuration -> System -> INIT SHAREDMEMSIZE를 늘려주세여(^ ^). 8,...
-
- 조희문
- •
- 2002.10.01 08:13
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.01 13:21쿼리 문을 쓰지 않고 일반 테이블을 사용하여 생성 가능 합니다. 참고 하십시오... Procedure CreateGu...
-
KDDG_ZZOM•2002.10.01 10:26근데 왜 float형의 기본값을 널로 할려고 하나요??? 보통 0으로 하는데... 답변이아니라서 죄송하고...
-
- 오정민
- •
- 2002.10.01 06:46
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.01 13:32from 절을 이렇게 해서 한번 해보세요... 자료가 없어서 테스트는 못하지만... FROM ((DEPTCODE D left...
-
오정민•2002.10.01 18:43답변 감사합니다. 데이터베이스는 MS-SQL 2000을 쓰고 있습니다. 님께서 해준걸로 쿼리를 날리니까 아무...
-
- 최부열
- 2002.10.01 06:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 김상수
- •
- 2002.10.01 04:26
- 3 COMMENTS
- /
- 0 LIKES
-
정성한•2002.10.01 04:46숫자형 MASK는 '#' 입니다. 예) 1234.56 -> '#####' = 1234 &n...
-
김상수•2002.10.01 04:51답변 감사드립니다... 스트링이라고 말씀 드렸는데... 그리고 a는 영문자와 숫자 모두를 다...
-
정성한•2002.10.01 05:18편집형 모드에서는 스트링형 마스크는 의미가 없습니다. 즉 QRDBtext는 편집형이기 때문에...... 굳이 해...
-
- 노동옥
- •
- 2002.10.01 04:19
- 1 COMMENTS
- /
- 0 LIKES
-
김수경•2002.10.01 19:47RowCnt := 현재 입력할 위치 if RowCnt >= StringGrid1.RowCount then // Pascal 문법이 맞는 지 ......
-
- 짱아
- •
- 2002.10.01 03:40
- 1 COMMENTS
- /
- 0 LIKES
-
조성필•2002.10.01 06:55보통 응용프로그램 실행시키는데는 ShellExecute()와 winexec() 함수를 씁니다. 전 winexec()를 씁...
-
- 이정규
- •
- 2002.10.01 03:37
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2002.10.02 14:41if MediaPlayer1.DeviceID<>0 then MediaPlayer1.Close; 메디아 플레이어 소스를 ...
-
- 정용광
- •
- 2002.10.01 03:30
- 1 COMMENTS
- /
- 0 LIKES
-
최병철•2002.10.01 22:09ODBC는 연결자라고 생각하시면 되고, 엑셀 화일을 디비화 하는것 보다 엑셀의 디비 함수를 이용하여 ...
-
- 윤기원
- •
- 2002.10.01 03:24
- 1 COMMENTS
- /
- 0 LIKES
-
정용광•2002.10.01 03:33우선 Qreport에서 사용하는 컴퍼넌트가 무엇인지 궁금합니다. 만약, 컴포넌트가 QRlabel일 경우에는...
-
- 김진효
- •
- 2002.10.01 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
고지범•2002.10.01 03:13procedure TForm1.Button1Click(Sender: TObject); begin with TForm2.Create(Self) do beg...
-
- 정성한
- •
- 2002.10.01 00:49
- 4 COMMENTS
- /
- 0 LIKES
-
이준해•2002.10.01 01:54function WeekOfTheYear(const AValue: TDateTime): Word; 1-53 사이의 값이 Return 됩니다.
-
강상용•2002.10.01 04:41저도 옛날에 고민 하다가 함수를 하나 만들었습니다. //일자를 입력 받아서 년사이의 몇번째주의 수인지...
-
정성한•2002.10.01 04:52대단히 감사합니다. 님의 가르침 잘 활용하겠습니다. 앞으로도 많의 가르침 부탁드리며 항상 건...
-
정성한•2002.10.01 02:12function WeekOfTheYear(const AValue: TDateTime): Word; begin end; procedure TF_PART41.WEEKE...
-
- 쳐리
- •
- 2002.10.01 00:41
- 2 COMMENTS
- /
- 0 LIKES
-
정경철•2002.10.01 13:48도움이 될지 모르겠습니다.. 제 경험을 말씀 드리겠습니다. 델파이는 어느 데이타베이스든 모두 다 사용 ...
-
쳐리•2002.10.02 02:34
-
- 최은경
- •
- 2002.10.01 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
조성필•2002.10.01 09:59var TheDir : string; i:integer; begin TheDir:='test'; for i:=0 to (nm...
-
- 노동옥
- •
- 2002.10.01 00:03
- 1 COMMENTS
- /
- 0 LIKES
-
머슴•2002.10.01 01:34마우스가 이상한것이 아닌것 같습니다... 마우스가 변하는 이유는 Screen.Cursor :=...
