한 프로시져내에서만 특수하게 사용되는 함수나 프로시져의 경우 내부 프로시져로 넣어버리고...
ex)
procedure Form1.Button1Click(Sender: TObject);
function IsNull(sMessage: String): Boolean;
begin
Result := sMessage = '';
end;
begin
if IsNull(Edit1.Text) then
ShowMessage('값이 없습니다.');
end;
(예로 들긴 했지만 이렇게 간단한 부분까지 굳이 프로시져나 함수로 만들 필요는 없겠죠. ㅎㅎ;)
제일 좋은건 그렇게 나눌 필요없이 각 폼마다 하는 일을 특정지어서 분류하는게 제일 좋아보이긴 합니다.
폼없이 유니트만 하나 만들어서 전체적으로 공통으로 쓰이거하는 경우나
임의로 만든 프로시져, 함수를 따로 모아두죠. (전역변수라던지...)
Common_u, Function_u, Procedure_u...
등등... 그리고 사용할 폼에선 해당 유닛을 Uses에 추가해서 쓰고...
성격에 따라 따로 분류해두기도 하고...
데이터 모듈이나 액션리스트로 모아두기도 하고...
한 프로시져내에서만 특수하게 사용되는 함수나 프로시져의 경우 내부 프로시져로 넣어버리고...
ex)
procedure Form1.Button1Click(Sender: TObject);
function IsNull(sMessage: String): Boolean;
begin
Result := sMessage = '';
end;
begin
if IsNull(Edit1.Text) then
ShowMessage('값이 없습니다.');
end;
(예로 들긴 했지만 이렇게 간단한 부분까지 굳이 프로시져나 함수로 만들 필요는 없겠죠. ㅎㅎ;)
제일 좋은건 그렇게 나눌 필요없이 각 폼마다 하는 일을 특정지어서 분류하는게 제일 좋아보이긴 합니다.
그러면 추가로 사용자 정의 프로시져나 함수가 생길 일이 극히 줄어들겠죠.