Q&A
- 에러 좀 잡아주세요...
한가지 물어보겠습니다.
폼에 등록된 각종 컴포넌트 속성을 False로 지정하는 프로그램을 제작할려고 합니다
메인 화면으로 구성한 Unit1 유닛과 폼없는 유닛으로 구성된 unit2로 나누었습니다.
그리고 unit2에는 다음과 같이 코딩하였습니다.
unit Unit2;
interface
uses Unit1, Graphics;
procedure EditState(bFlag: Boolean; clColor: TColor);
implementation
procedure EditState(bFlag: Boolean; clColor: TColor);
var
i: Integer;
begin
with Form1 do
begin
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TEdit then begin
TEdit(Components[i]).Enabled := bFlag;
TEdit(Components[i]).Color := clColor;
end;
if Components[i] is TMaskEdit then begin
TMaskEdit(Components[i]).Enabled := bFlag;
TMaskEdit(Components[i]).Color := clColor;
end;
if Components[i] is TComboBox then begin
TComboBox(Components[i]).Enabled := bFlag;
TComboBox(Components[i]).Color := clColor;
end;
if Components[i] is TMemo then begin
TMemo(Components[i]).Enabled := bFlag;
TMemo(Components[i]).Color := clColor;
end;
end;
end;
end;
end.
컴파일하면 다음과 같은 에러가 발생합니다.
Undeclared identifier: 'TEdit'
마찬가지로 'TMaskEdit' 'TComboBox' 'TMemo' 모두 위의 에러가 걸립니다.
무엇때문인지 아시는분 가르쳐 주시면 대단히 감사합니다.
폼에 등록된 각종 컴포넌트 속성을 False로 지정하는 프로그램을 제작할려고 합니다
메인 화면으로 구성한 Unit1 유닛과 폼없는 유닛으로 구성된 unit2로 나누었습니다.
그리고 unit2에는 다음과 같이 코딩하였습니다.
unit Unit2;
interface
uses Unit1, Graphics;
procedure EditState(bFlag: Boolean; clColor: TColor);
implementation
procedure EditState(bFlag: Boolean; clColor: TColor);
var
i: Integer;
begin
with Form1 do
begin
for i := 0 to ComponentCount - 1 do begin
if Components[i] is TEdit then begin
TEdit(Components[i]).Enabled := bFlag;
TEdit(Components[i]).Color := clColor;
end;
if Components[i] is TMaskEdit then begin
TMaskEdit(Components[i]).Enabled := bFlag;
TMaskEdit(Components[i]).Color := clColor;
end;
if Components[i] is TComboBox then begin
TComboBox(Components[i]).Enabled := bFlag;
TComboBox(Components[i]).Color := clColor;
end;
if Components[i] is TMemo then begin
TMemo(Components[i]).Enabled := bFlag;
TMemo(Components[i]).Color := clColor;
end;
end;
end;
end;
end.
컴파일하면 다음과 같은 에러가 발생합니다.
Undeclared identifier: 'TEdit'
마찬가지로 'TMaskEdit' 'TComboBox' 'TMemo' 모두 위의 에러가 걸립니다.
무엇때문인지 아시는분 가르쳐 주시면 대단히 감사합니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이창남
- 1999.09.22 01:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지혜
- •
- 1999.09.22 01:31
- 1 COMMENTS
- /
- 0 LIKES
-
김종환•1999.09.22 02:09김지혜 wrote: > 델파이 초보입니다. > 어떤 변수가 받은 값이 정수인지 아닌지 확인하는 프로그램을 알...
-
- 오이
- •
- 1999.09.22 01:30
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•1999.09.22 18:23오이 wrote: > 안녕하세요 ^^; > > New/Business/Desision Cube Sample을 작동 시켰는데 > > Databa...
-
- 김종환
- •
- 1999.09.22 00:48
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•1999.09.22 08:22안녕하세요..종환님.. 게시판지기 조복기입니다.. 저도 궁금한사항중에 하나이지만 제가 겪은 분야...
-
- 서경철
- 1999.09.22 00:39
- 0 COMMENTS
- /
- 0 LIKES
-
-
안치봉•1999.09.22 01:17델파이 팁모아 => 나이렉스 => 'host' 라고 검색해보세요~ Lyle wrote: > type > PHostEnt = ^THost...
-
-
- 강민주
- 1999.09.21 22:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이영범
- 1999.09.21 22:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 이주흥
- 1999.09.21 22:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 꼴뚜기
- 1999.09.21 21:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.09.21 21:47
- 1 COMMENTS
- /
- 0 LIKES
-
김경수•1999.09.22 06:48안녕하세요.. 자료들은요 통신상에 좀 있구.. 볼랜드 뉴스그룹을 참조하시거나, 외국싸이트에 많구요.. ...
-
- 박성훈
- •
- 1999.09.21 21:42
- 2 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.09.21 22:19PWS 의 폴더에 보면 cgi-bin 이나 scripts 폴더가 있는데 거기에 그 실행파일을 넣어주세요. 그리고 PWS 를...
-
김종환•1999.09.21 22:17박성훈 wrote: > 인터넷 프로그래밍을 막 시작했는데요. > 책에 있는 예제대로 standard cgi프로그램을 ...
-
- 이광환
- 1999.09.21 21:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 구관중
- 1999.09.21 20:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤경화
- •
- 1999.09.21 19:16
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.09.21 19:31윤경화 wrote: > DBGrid에 조회된 내용을 Excel파일로 옮기려 함니다. > 컴포넌트나 소스가 있으신분은 ...
-
- 서영택
- •
- 1999.09.21 17:55
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•1999.09.21 19:35서영택 wrote: > 이미지 에디터로 새로운 res 파일을 만들어 프로젝트에 포함시키는 > 방법을 알고 십습...
-
- 장식원
- •
- 1999.09.21 15:10
- 1 COMMENTS
- /
- 0 LIKES
-
김종환•1999.09.21 22:07장식원 wrote: > 제가 보기엔 멀티미디어 데이타를 스트리밍 할 수 있는 컴포넌트 같은데요... > NMSTRM...
-
- 김성률
- •
- 1999.09.21 10:37
- 1 COMMENTS
- /
- 0 LIKES
한가지 물어보겠습니다. 폼에 등록된 각종 컴포넌트 속성을 False로 지정하는 프로그램을 제작할려고 합니다 메인 화면으로 구성한 Unit1 유닛과 폼없는 유닛으로 구성된 unit2로 나누었습니다. 그리고 unit2에는 다음과 같이 코딩하였습...-
안치봉•1999.09.21 11:53uses Unit1, Graphics; 위 의 부분을 아래 같이... -.-;; uses Unit1, Graphics, Mask, StdCtrls; ...
-
- 김창훈
- •
- 1999.09.21 08:14
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•1999.09.21 09:42김창훈 wrote: > 안녕하세요... > 어떻게 하다가 이제서야 이 사이트를 들러게 되었습니다. > 델파이를 ...
-
김창훈•1999.09.21 17:25구창민 wrote: > 김창훈 wrote: > > 안녕하세요... > > 어떻게 하다가 이제서야 이 사이트를 들러게 되...
-
- 왕초보
- 1999.09.21 06:38
- 0 COMMENTS
- /
- 0 LIKES
uses Unit1, Graphics;
위 의 부분을 아래 같이... -.-;;
uses Unit1, Graphics, Mask, StdCtrls;
김성률 wrote:
> 한가지 물어보겠습니다.
> 폼에 등록된 각종 컴포넌트 속성을 False로 지정하는 프로그램을 제작할려고 합니다
>
> 메인 화면으로 구성한 Unit1 유닛과 폼없는 유닛으로 구성된 unit2로 나누었습니다.
> 그리고 unit2에는 다음과 같이 코딩하였습니다.
>
> unit Unit2;
>
> interface
>
> uses Unit1, Graphics;
>
> procedure EditState(bFlag: Boolean; clColor: TColor);
>
> implementation
>
> procedure EditState(bFlag: Boolean; clColor: TColor);
> var
> i: Integer;
> begin
> with Form1 do
> begin
> for i := 0 to ComponentCount - 1 do begin
> if Components[i] is TEdit then begin
> TEdit(Components[i]).Enabled := bFlag;
> TEdit(Components[i]).Color := clColor;
> end;
> if Components[i] is TMaskEdit then begin
> TMaskEdit(Components[i]).Enabled := bFlag;
> TMaskEdit(Components[i]).Color := clColor;
> end;
> if Components[i] is TComboBox then begin
> TComboBox(Components[i]).Enabled := bFlag;
> TComboBox(Components[i]).Color := clColor;
> end;
> if Components[i] is TMemo then begin
> TMemo(Components[i]).Enabled := bFlag;
> TMemo(Components[i]).Color := clColor;
> end;
> end;
> end;
> end;
> end.
>
> 컴파일하면 다음과 같은 에러가 발생합니다.
>
> Undeclared identifier: 'TEdit'
>
> 마찬가지로 'TMaskEdit' 'TComboBox' 'TMemo' 모두 위의 에러가 걸립니다.
> 무엇때문인지 아시는분 가르쳐 주시면 대단히 감사합니다.
>