Q&A
- 별도의 함수나 프로시저 생성시 파라메터 형?
안녕하세요?
다들 주말 잘 보내셨어요?
제가 여기 Q&A를 보니까 EDIT의 text를 한꺼번에 클리어 하는 아래의 코딩을
썼습니다.
procedure TFmDepA.EditClear(Sender: TObject);
var
i : integer;
begin
for i := 0 to FmDepA.ComponentCount-1 do
if Self.Components[i].ClassName = 'TDBEdit' then
TDBEdit(Components[i]).Text := '';
end;
TFmDepA는 제 폼 이름이구요.
만약 이 프로시저를 별도의 유닛에 정의하고 불러쓰려면,
인자를 어떻게 해줘야 하나요?
(fm : variant)로 썼더니 TDBEdit(Components[i]).Text := '';부분에서
TDBEDIT가 정의되어 있지 않다는 에러가 납니다.
제가 아직 초보라 외부함수나 프로시저 생성과 끌어쓰기에 익숙치 못해서
이런 질문 드립니다.
선처 바랄께요.
다들 주말 잘 보내셨어요?
제가 여기 Q&A를 보니까 EDIT의 text를 한꺼번에 클리어 하는 아래의 코딩을
썼습니다.
procedure TFmDepA.EditClear(Sender: TObject);
var
i : integer;
begin
for i := 0 to FmDepA.ComponentCount-1 do
if Self.Components[i].ClassName = 'TDBEdit' then
TDBEdit(Components[i]).Text := '';
end;
TFmDepA는 제 폼 이름이구요.
만약 이 프로시저를 별도의 유닛에 정의하고 불러쓰려면,
인자를 어떻게 해줘야 하나요?
(fm : variant)로 썼더니 TDBEdit(Components[i]).Text := '';부분에서
TDBEDIT가 정의되어 있지 않다는 에러가 납니다.
제가 아직 초보라 외부함수나 프로시저 생성과 끌어쓰기에 익숙치 못해서
이런 질문 드립니다.
선처 바랄께요.
2
COMMENTS
-
-
최혜정 wrote:
> 안녕하세요?
> 다들 주말 잘 보내셨어요?
> 제가 여기 Q&A를 보니까 EDIT의 text를 한꺼번에 클리어 하는 아래의 코딩을
> 썼습니다.
>
> procedure TFmDepA.EditClear(Sender: TObject);
> var
> i : integer;
> begin
> for i := 0 to FmDepA.ComponentCount-1 do
> if Self.Components[i].ClassName = 'TDBEdit' then
> TDBEdit(Components[i]).Text := '';
> end;
>
> TFmDepA는 제 폼 이름이구요.
> 만약 이 프로시저를 별도의 유닛에 정의하고 불러쓰려면,
> 인자를 어떻게 해줘야 하나요?
> (fm : variant)로 썼더니 TDBEdit(Components[i]).Text := '';부분에서
> TDBEDIT가 정의되어 있지 않다는 에러가 납니다.
> 제가 아직 초보라 외부함수나 프로시저 생성과 끌어쓰기에 익숙치 못해서
> 이런 질문 드립니다.
> 선처 바랄께요.
procedure TFmDepA.EditClear(AForm: TForm);
> var
> i : integer;
> begin
> for i := 0 to AForm.ComponentCount-1 do
> if AForm.Components[i].ClassName = 'TDBEdit' then
> TDBEdit(Components[i]).Text := '';
global unit을 하나 만들구...
uses 에 쓰심 될거구여... 다른 폼에서 부를시에...
TDBEdit부분은 global Unit의 맨위에다가... DB, DBTables를 선언 해주셔야 할겁니다...
호출시 editclear(FmDepA)하시면 되지 않을까여...
그럼 그폼안에 TDBEdit는 모두 초기화가 되겠지여...
만약에 초기화 되면 않되는 TDBEdit가 있으며...
위에 Component[i].Tag <> 0 를 넣어주시구...
최기화 되면 않되는 컴포넌트에다가 Tag 를 0이 아닌 걸루 넣구여...
별팁두 아니었나...
답이 않
(NOTICE) You must be logged in to comment on this post.
-
- Gypsie Boy
- •
- 2000.08.29 01:57
- 1 COMMENTS
- /
- 0 LIKES
-
하록선장•2001.02.02 14:59델파이 패치 버전을 설치하시면 그러한 문제가 해결 됩니다. 저두 그거 해결하느라 아주 똥뺐어요. I...
-
- 주미경
- •
- 2000.08.29 07:04
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.08.29 07:13안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 이 문제는 쉬울수도 있...
-
- 김종석
- •
- 2000.08.29 01:21
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.29 03:24안녕하세요.. 델파이세상(http://www.freechal.com/delphiworld)에 최석기입니다.. 님이 어떤 BDE 셋팅...
-
- 칠삼일
- 2000.08.29 01:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 저좀.. 헤헤
- •
- 2000.08.29 10:50
- 3 COMMENTS
- /
- 0 LIKES
-
김일영•2000.08.29 10:49안녕하세요? 답변은 아니지만 한 말씀 덧붙이겠습니다. heeschoi@lgeds.lg.co.kr님께서 최근에 질문을 몇...
-
바사기몬•2000.08.29 10:51이건 제가 전에 도움을 받은 예제 입니다. WritePrivateProfileString을 해주면 된다고 되어 있지욤.. ^^ ...
-
저좀..헤헤•2000.08.29 18:34
-
-
Black}{ole•2000.08.29 01:44안녕하세요. ^^ 파일생성시간을 말씀하시는것 같은데? 맞나요? 파일생성시간은 var TempTime: TDa...
-
이성훈•2000.08.29 01:28정연 wrote: > 제가 하고 싶은건 어떤 음악파일이나 어떤 파일을 열었을때 시간을 저장해 두고 > > 현...
-
-
- 푸우
- •
- 2000.08.29 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.08.29 09:34푸우 wrote: > 고수님들 안녕하신가요? > 다름이 아니라 > Server Socket에서 어떤 Client 가 접속했...
-
- 최혜정
- •
- 2000.08.29 00:10
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요? 다들 주말 잘 보내셨어요? 제가 여기 Q&A를 보니까 EDIT의 text를 한꺼번에 클리어 하는 아래의 코딩을 썼습니다. procedure TFmDepA.EditClear(Sender: TObject); var i : integer; begin for i := 0 to FmDepA.ComponentCou...-
김하늘•2000.08.29 00:37최혜정 wrote: > 안녕하세요? > 다들 주말 잘 보내셨어요? > 제가 여기 Q&A를 보니까 EDIT의 text를 한...
-
dba•2000.08.29 00:22최혜정 wrote: > 안녕하세요? > 다들 주말 잘 보내셨어요? > 제가 여기 Q&A를 보니까 EDIT의 text를 한...
-
- 김종학
- 2000.08.29 00:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네
- 2000.08.28 23:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2000.08.28 22:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 조헌철
- •
- 2000.08.28 22:06
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2000.08.29 00:35냉무
-
최석기•2000.08.28 22:06조헌철 wrote: > 집에서 델파이를 깔았는데 컴포넌트 모양이 다 바뀌어서 나옵니다. > 윈도우를 새로 깔...
-
- corbie`
- 2000.08.28 21:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 김봉준
- •
- 2000.08.28 21:14
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.08.29 00:43김봉준 wrote: > 델파이에서 ASP에서 Session 처럼 쉽게 사용할수 있는 객체는 없나요? > > 델파이 Coo...
-
- 방완배
- 2000.08.28 21:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2000.08.28 21:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 덕이
- 2000.08.28 20:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.08.28 20:18
- 1 COMMENTS
- /
- 0 LIKES
-
김일병•2000.08.28 20:44왕초보 wrote: > Access DB를 ADO로 연결해 사용하고 있습니다. > 프로그램 상에서 Field 추가 버튼을 누...
-
- 초보 100
- •
- 2000.08.28 20:18
- 3 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.28 20:37초보 100 wrote: > 엑티브 엑스 폼을 만들었는데요. > 이 엑티브 엑스 폼에 종료버튼을 넣구여. > clos...
-
초보 100•2000.08.29 02:51> //로그 아웃 처리 버튼 > procedure TTMMainFormX.fsbLogoutClick(Sender: TObject); > begin > if ...
-
임정영•2001.07.05 17:09제가 맞은지 틀린지도 모르지만 제가 해결한 방법은 아래와 같습니다. 혹시 도움이 될지 몰라서 이렇게......
-
- 한 고은
- 2000.08.28 20:17
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요?
> 다들 주말 잘 보내셨어요?
> 제가 여기 Q&A를 보니까 EDIT의 text를 한꺼번에 클리어 하는 아래의 코딩을
> 썼습니다.
>
> procedure TFmDepA.EditClear(Sender: TObject);
> var
> i : integer;
> begin
> for i := 0 to FmDepA.ComponentCount-1 do
> if Self.Components[i].ClassName = 'TDBEdit' then
> TDBEdit(Components[i]).Text := '';
> end;
>
> TFmDepA는 제 폼 이름이구요.
> 만약 이 프로시저를 별도의 유닛에 정의하고 불러쓰려면,
> 인자를 어떻게 해줘야 하나요?
> (fm : variant)로 썼더니 TDBEdit(Components[i]).Text := '';부분에서
> TDBEDIT가 정의되어 있지 않다는 에러가 납니다.
> 제가 아직 초보라 외부함수나 프로시저 생성과 끌어쓰기에 익숙치 못해서
> 이런 질문 드립니다.
> 선처 바랄께요.
procedure EditClear(agu: TForm);
var
i : integer;
begin
for i := 0 to agu.ComponentCount-1 do
if agu.Components[i] is TDBEdit then
agu.Components[i] as TDBEdit).Clear; // 1
TDBEdit(agu.Components[i]).Clear; // 2
// 1 또는 2 아무거나 관계없으요
// 단 TBDEdit 컴포넌트는 Db 또는 DbTables unit을 필요로 합니다.
// uses 절에 추가하셔야 겠지요
// is는 객체 타입을 비교할때 사용하며
// as는 타입형변환을 뜻합니다...
// 객체타입이 상속관계에 의하지 않는다면 형변환시
// 에러를 유발합니다....
// 델파이 도움말을 참고하시어 평션이나 프로시저를 만들때
// 그안에 사용되는 객체가 있다면 그 객체가 정의된
// unit을 항상 uses절에 포함하십시요
end;