안녕하세요. 타락천사 입니다.
델파이 입문서가 없다고 해서 쓰고 있습니다.


0. 구조

델파이 유닛 구조는 다음과 같습니다. 

unit UnitName;

interface

// 선언부

implementation

// 구현부

end.

선언부는 C 언어의 헤더 파일과 같습니다.

컴파일러는 함수명으로 함수를 찾습니다. 
(참고 : https://www.delmadang.com/community/bbs_view.asp?bbsNo=3&bbsCat=0&indx=444150&page=1)

그런 이유로 클래스와 함수명 리스트를 가지고 있습니다. 


1. 전역(Global), 로컬(Local)

선언부는 전역 구역 입니다.
선언부에 있는 클래스와 변수와 함수는 모든 다른 유닛에서도 호출 할 수 있습니다.

구현부는 로컬 구역 입니다.
구현부에 있는 클래스와 변수와 함수는 다른 유닛에서 호출 할 수 없습니다.


2. 선언부, 구현부 구조

선언부와 구현부는 차례로 다음 타입 구역을 가질수 있습니다.

uses 
 // 참조할 유닛

const
 // 상수

type
 // 클래스 or 함수 선언

var
 // 변수



(example) 제 소스 일부


interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Forms, FMX.ListBox, FMX.Objects, FMX.Graphics, FMX.Types;

const
  YN_TEXT: array [boolean] of string = ('N', 'Y');

  HEART_BEAT_TERM              = 5000; // milisecond

  PACKET_SIZE_LENGTH = 12;
  FORMLIST_LIMIT = 100;

  ........

type
  TUserData = record
    mID, mName, mNickName, mCompCode: string;
    mGrade: integer;
    mStartDay, mEndDay: string;
    mMobiles: array [0..4] of string;
    // additional
    mPW, mDeviceID: string;
  end;
 
  ..........

  procedure DoShowForm(const AFormKind: integer; const AData: string = '');
  procedure DoShowBackForm;
  ............


var
  gBinPath: string;

  // for debug
  gVersion: string = '0.9.2.3';
  gAngel: boolean = false;

  gUserData: TUserData;

  gLogined: boolean = false;
  ..............


implementation

uses
  AppFrm
  , LoginFme, ConfirmFme
  , MainFme......;

const
  FORMLIST_LIMIT = 100;

type
  TFormData = record
    mKind: integer;
    mData: string;
    mIsAppr: boolean;
  end;

var
  lFormList: array [0..FORMLIST_LIMIT - 1] of TFormData;
  lFormCount: integer = 0;


function __SplitText(......): string;
begin
.......
end;

procedure DoShowForm(const AFormKind: integer; const AData: string = '');
var
  MyFrame: TIKFrame;
begin
  case AFormKind of
    ID_Main:
      begin
        if fmeMain = nil then  fmeMain := TfmeMain.Create(frmApp);
    ........
end;