Page Control에 여러개의 Edit박스가 놓여져 있습니다.
서로 다른 페이지에 놓여져 있는데.. 하나의 소스 안에 놓여져 있기 때문에 엑세스 하는데는 문제가 없구요..
제가 알고자 하는 것은 For문을 사용하여 이 EditBox의 텍스트를 모두 Null로 주고 싶은데요.. 예를들어
For i:=1 to 20
begin
Editbox?.Text := '';
end;
이렇게 간단하게 사용이 가능할까요?
StrCat을 사용해봤는데 안되네요..
무작정 처음부터 끝까지 EditBox1.Text := ''; .... EditBox20.Text := '';
라고 적기에는 소스만 너무 길어져서요..
답변 부탁드리겠습니다.
i, j : integer;
begin
for i := 0 to PageControl1.PageCount - 1 do
begin
for j := 0 to PageControl1.Pages[i].ControlCount - 1 do
begin
if PageControl1.Pages[i].Controls[j] is TEdit then
(PageControl1.Pages[i].Controls[j] as TEdit).Text := '';
end
end;
end;
죄송합니다.
위처럼 해야 되는군요..테스트를 안해봤더니 이모양이네요..
위에껀 확실히 되니깐 저렇게 하십시요..