탈초보하자 wrote:

> 안녕하세요.

> 추가 버튼을 눌르면 에디터의 내용이 모두 clear 시키고 새로운 내용을 담을려고

> 하는데요.

> 폼이나 페이지시트의 탭시트에 있는 에디터의 내용을 한꺼번에 모두 지울려면

> 어떻게 하면 되요?

> (Sender as TEdit).text := '';

> 이런식으로 지우는거 아니죠?

> 이래 해봤는데 안돼던데....

> 좋은 방법 없을까영..

>

> 고수님들 답변 부탁 드립니다.

> 즐꼬요~~~~~~~~~~

>

>









procedure TAcc001F.Proc_CompClear(vp_name : TComponent);

var //항목을 클리어한다.

vv_i : Integer;

begin

with TWinControl(vp_name) do

begin

for vv_i := 0 to Controlcount - 1 do

begin

if (Controls[vv_i] is TComboBox) then

TComboBox(Controls[vv_i]).Text := '';



if (Controls[vv_i] is TEdit) then

TEdit(Controls[vv_i]).Text := '';

end;

end;

end;



호출할때....

Proc_CompClear(Panel1);



이렇게 하면 패널위에있는 것 중에서 콤보박스나 에디터박스의 내용을 클리어 합니다.

참고하셔서 작업하세요



도움이 되길 바라며

뻐럭이가....



즐코딩하세요^^

for i:=0 to Form1.ComponentCount-1 do

if Form1.Components[i] is TEdit then

(Form1.Components[i] as TEdit).Text := '';



이래 적어가지고 일반폼에서 써먹으니깐.. 깨끗하게 자알 ~~

지워 지거든요...(페이지컨트롤 안에 있는것 까정 싸악~~~ 쭈욱~~~)



그런데.. mdi차일드폼의 페이지컨트롤의 것을 지울려니깐...

에러가 발생해요... access ... 라는 짜증나는 에러 있잖아요..



for i:=0 to Form1.PageControl1.ComponentCount-1 do

if Form1.PageControl1.Components[i] is TEdit then

(Form1.PageControl1.Components[i] as TEdit).Text := '';



이라 적으면 컴파일 에러는 안나는데....

역시 실행에서 access ~~~ 뭐 어쩌고 저쩌고 하는 에러만 생기고요...

구냥.. form1.componentCount-1 do ~~~~(생략)

라 적어도 에러고...

당근 form1.pagecontrol1.tabsheet.com~~~~ 라 적는건 말도 안돼는거고...





암튼 이를 어찌 해결 해야 해요....

뻐럭이님 위에 양식으로 왜 지울수가 없는건지 좀 갈켜 주면 안될까영...

물론 아시는 다른분도 좋구요...

고럼 즐꼬