안녕하세요. 타락천사 입니다.
거의 14 년 만에 글을 쓰려니 힘듭니다..

*** 이번 글에는 거의 확인 되지 않은 개인적 의견이 많습니다.

델파이가 처음 만들어 질 때가, 그 전 까지 일부 경험 많은 개발자들 사이에게 전해 지던 "개발 방법론" 이 정리 되던 시기 입니다.

델파이는 개발 언어에 체계적이고 안전하고 효율적이라고 검증된 방법을 지원 했습니다.


0. 델파이에선 리턴 값(return value) 이 있는 함수는 function 을 붙이고,
리턴 값이 없는 함수는 procedure 를 붙입니다.

"Value 를 리턴 하는 함수" 와 "Value를 받아서 처리 하는 함수" 의 내용상 다른 데이터를 처리하는 경우가 많은데, 표기법이 비슷해서 오는 버그나 오류를 피할수 있습니다.


2. 함수 구조

"변수선언"을 한 곳에서 하는 것이, 버그나 오류를 피할 수 있는 효과적인 방법 이라고 합니다.

function DoTest(const AKind: integer; AName: string): integer;
// 선언부
begin
// 구현부
end;

(함수 사용 예)
function DoTest(const AKind: integer; AName: string): integer;
const
  YN_TEXT: array [boolean] of string = ('N', 'Y');
type
  TServerData = record
    mCompCode
    , mCompName
    , mIsUse
    , mURL: string;
    mPort: integer;
  end;
var
  sTemp: string;
  MyData: TServerData;
begin
  ...
  MyData.mIsUser := YN_TEXT[sTemp = '사용'];
  ...
end;


3. 함수 내부에 함수를 가질 수 있습니다.
 변수 선언 전에 위치하면 변수를 못 쓰고,
 변수 선언 뒤에 위치하면 변수를 쓸 수 있습니다.

function DoTest1(const AKind: integer; AName: string): integer;
  
  function __CheckRead(const AName: string): boolean;
  begin
    Result := false;
    if AName = '타락천사' then // bIsReal 접근 못함
      Result := true;
  end;

var
  bIsReal: boolean;
begin
  bIsReal := __CheckRead(AName);
end;


function DoTest1(const AKind: integer; AName: string): integer;
var
  bIsReal: boolean;
  
  procedure __CheckRead(const AName: string);
  begin
    bIsReal := false;
    if AName = '타락천사' then
      bIsReal := true;
  end;

begin
  __CheckRead(AName);
end;