사용자 함수 사용하는 법 좀 알려주세요
반복되는 프로시저가 32개 있는데요. 내용은 다음과 같습니다.
procedure Button1Click(Sender: Tobject);
begin
if button1.caption= 'off' then begin
button1.caption:='on';
do_data:=do_data+1;
end
else begin
button1.caption:='off';
do_data:=do_data-1;
end;
end;
똑같은 프로시져가 Button1부터 Button32 까지 있구요
아시는분 좀 도와주십시오
if button1.caption= 'off' then
대신에
if TButton(Sender).Caption = 'off' then 이라고만 변형시켜주면 되겠네여..
그럼 즐코...