각각의 폼에 있는 컴포넌트의 이름을 스트링에 담으려고 합니다.
이것을 함수로 처리하기 위해 폼의 이름을 변수로 넘기면 에러가 나거든요..
어떻게 해야 하나요?
FIRST.PAS :
procedure TForm1.Button1Click(Sender: TObject);
begin
form_name := 'form1.pagecontrol1.activepage';
string1 := unit1.make(form_name);
listbox1.items.add(string1);
====================================================
SECOND.PAS :
function make(FORM_NAME:STRING) : string;
for i := 0 to FORM_NAME.ControlCount - 1 do
result := FORM_NAME.Controls[i].Name;
감사합니다.