안냐세요...음...

이렇게 하면 그냥..팍...ㅡ.ㅡ;;

for i := 0 to componentcount - 1 do

begin

If Components[i] is TEdit then

TEdit(Components[i]).text := '';

end;



그럼 즐코 되시길...^^;;



김대훈 wrote:

> 안녕하세요..

> 제가 구현하려는것은 입력창에서(Edit가 16개, memo가 1개) 데이타를 입력하여 디비에 적용후 입력창 전체를 clear시키는 방법을 알고 싶습니다..

> 보통 웹에서 사용자가 입력창에 입력한후 그것을 적용시키고, 다음 레코드의 입력을 위해 앞에 입력된 내용이 창에서 깨긋하게 지워져서 다음레코드의 입력을 기다리는것인데요...

> 무식한 방법말고 심플한 방법을 알고 싶습니다..

>

답변이 될지는 모르지만...



예를들어, 확인 버튼이 눌리면

edit1.text := '';

edit2.text := '';

...

edit16.text := '';

memo1.items.clear( 요건 잘 생각이 안난다... 쩝)





edit1.setfocus;



요렇게....



넘 당연한 답변인가...



도움이 되길 바라며 . . .



i believe i can fly~~



김대훈 wrote:

> 안녕하세요..

> 제가 구현하려는것은 입력창에서(Edit가 16개, memo가 1개) 데이타를 입력하여 디비에 적용후 입력창 전체를 clear시키는 방법을 알고 싶습니다..

> 보통 웹에서 사용자가 입력창에 입력한후 그것을 적용시키고, 다음 레코드의 입력을 위해 앞에 입력된 내용이 창에서 깨긋하게 지워져서 다음레코드의 입력을 기다리는것인데요...

> 무식한 방법말고 심플한 방법을 알고 싶습니다..

>

FindComponent를 사용해 보세요..

(FindComponent( 'Edit'+IntToStr(i+1) )as TEdit).Text := '';

간단하게 위의 문장을 응용하시면 쉽게 해결이 가능할 것 같은데요..

'Edit'+IntToStr(i+1)이부분에 Edit컴포넌트의 이름만 넣을수 있다면

간단하겠죠... ^^;







irookie wrote:

> 답변이 될지는 모르지만...

>

> 예를들어, 확인 버튼이 눌리면

> edit1.text := '';

> edit2.text := '';

> ...

> edit16.text := '';

> memo1.items.clear( 요건 잘 생각이 안난다... 쩝)

>

>

> edit1.setfocus;

>

> 요렇게....

>

> 넘 당연한 답변인가...

>

> 도움이 되길 바라며 . . .

>

> i believe i can fly~~

>

> 김대훈 wrote:

> > 안녕하세요..

> > 제가 구현하려는것은 입력창에서(Edit가 16개, memo가 1개) 데이타를 입력하여 디비에 적용후 입력창 전체를 clear시키는 방법을 알고 싶습니다..

> > 보통 웹에서 사용자가 입력창에 입력한후 그것을 적용시키고, 다음 레코드의 입력을 위해 앞에 입력된 내용이 창에서 깨긋하게 지워져서 다음레코드의 입력을 기다리는것인데요...

> > 무식한 방법말고 심플한 방법을 알고 싶습니다..

> >