Q&A

  • 분류먼저 해주시길 부탁드립니다.
각각의 폼에 있는 컴포넌트의 이름을 스트링에 담으려고 합니다.



이것을 함수로 처리하기 위해 폼의 이름을 변수로 넘기면 에러가 나거든요..



어떻게 해야 하나요?



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;







감사합니다.

0  COMMENTS