Delphi 編程語言詳細教學網站

Delphi 專案通常會有一個主程式檔（例如 .dpr）與多個單元檔 （.pas）。對初學者來說，可以先把它理解成： 程式名稱、使用哪些模組、先宣告要用的東西，最後再把執行的程式碼放進 begin ... end. 之中。

複製program HelloDelphi;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

begin
  Writeln('Hello, Delphi!');
  Readln;
end.

Delphi 是強型別語言，因此變數在使用前通常必須先宣告型別。 常見型別包括整數、浮點數、布林值與字串。你也可以使用 const 宣告固定不變的常數。

複製program VariablesDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

const
  SiteName = 'Delphi 學習站';

var
  Age: Integer;
  Price: Double;
  IsPassed: Boolean;
  UserName: string;

begin
  Age := 20;
  Price := 199.5;
  IsPassed := True;
  UserName := '小明';

  Writeln('網站名稱：', SiteName);
  Writeln('姓名：', UserName);
  Writeln('年齡：', Age);
  Writeln('價格：', Price:0:2);
  Writeln('是否通過：', IsPassed);
  Readln;
end.

撰寫程式時，常常需要根據條件做不同處理，或重複執行某些步驟。 Delphi 提供多種清楚的流程控制語法。

複製if Score >= 60 then
  Writeln('及格')
else
  Writeln('不及格');

複製case Grade of
  'A': Writeln('優秀');
  'B': Writeln('良好');
  'C': Writeln('普通');
else
  Writeln('請再努力');
end;

複製for I := 1 to 5 do
  Writeln('第 ', I, ' 次');

複製while Count < 3 do
begin
  Inc(Count);
  Writeln(Count);
end;

repeat
  Dec(Count);
until Count = 0;

在 Delphi 中，程序（procedure）不回傳值，函式（function）會回傳值。 兩者都能接收參數。常見參數模式包含一般值參數、var、 const 與 out。

複製program FunctionDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

procedure SayHello(const AName: string);
begin
  Writeln('你好，', AName);
end;

function AddNumbers(A, B: Integer): Integer;
begin
  Result := A + B;
end;

procedure Increase(var Value: Integer);
begin
  Inc(Value);
end;

var
  Total: Integer;
begin
  SayHello('Delphi 學習者');

  Total := AddNumbers(10, 20);
  Writeln('總和：', Total);

  Increase(Total);
  Writeln('加一後：', Total);

  Readln;
end.

Delphi 的物件導向設計以類別（class）為基礎。類別可以包含欄位（field）、 方法（method）與屬性（property）。建立物件時通常呼叫建構子 Create，使用完畢後釋放資源。

複製program ClassDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type
  TStudent = class
  private
    FName: string;
    FAge: Integer;
  public
    constructor Create(const AName: string; AAge: Integer);
    procedure Introduce;
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

constructor TStudent.Create(const AName: string; AAge: Integer);
begin
  FName := AName;
  FAge := AAge;
end;

procedure TStudent.Introduce;
begin
  Writeln('我是 ', FName, '，今年 ', FAge, ' 歲。');
end;

var
  Student: TStudent;
begin
  Student := TStudent.Create('小華', 18);
  try
    Student.Introduce;
  finally
    Student.Free;
  end;

  Readln;
end.

例外（Exception）是在執行過程中發生錯誤或特殊事件時的處理機制。 Delphi 常用兩種寫法：一種是捕捉錯誤並處理，另一種是確保資源一定會被釋放。

複製try
  Value := StrToInt('abc');
except
  on E: EConvertError do
    Writeln('轉換失敗：', E.Message);
end;

複製Obj := TStudent.Create('小美', 19);
try
  Obj.Introduce;
finally
  Obj.Free;
end;

若你想主動拋出錯誤，也可以使用 raise：

複製if Age < 0 then
  raise Exception.Create('年齡不可為負數');

1. 先熟悉主控台輸出與變數宣告，理解 Writeln、Readln。
2. 練習條件判斷與迴圈，建立演算法感。
3. 把重複邏輯整理成 procedure / function。
4. 開始寫 class，理解建構子、方法與 property。
5. 最後再進入 VCL 或 FireMonkey 做視窗程式與 GUI 應用。

這個範例示範如何使用動態陣列儲存多筆成績，並用函式計算平均值。

複製program ArrayAverageDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

function Average(const Scores: array of Integer): Double;
var
  I, Sum: Integer;
begin
  Sum := 0;
  for I := Low(Scores) to High(Scores) do
    Sum := Sum + Scores[I];

  if Length(Scores) = 0 then
    Result := 0
  else
    Result := Sum / Length(Scores);
end;

var
  Scores: array of Integer;
  I: Integer;
begin
  SetLength(Scores, 5);
  Scores[0] := 85;
  Scores[1] := 92;
  Scores[2] := 76;
  Scores[3] := 88;
  Scores[4] := 95;

  Writeln('所有成績：');
  for I := Low(Scores) to High(Scores) do
    Writeln('第 ', I + 1, ' 筆：', Scores[I]);

  Writeln('平均成績：', FormatFloat('0.00', Average(Scores)));
  Readln;
end.

如果資料結構不需要完整的 class 行為，只是想把多個欄位整理在一起， 可以先用 Record。這很適合拿來管理商品、座標、學生資料等。

複製program RecordProductDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type
  TProduct = record
    ID: Integer;
    Name: string;
    Price: Double;
    InStock: Boolean;
  end;

procedure PrintProduct(const AProduct: TProduct);
begin
  Writeln('商品編號：', AProduct.ID);
  Writeln('商品名稱：', AProduct.Name);
  Writeln('商品價格：', FormatFloat('0.00', AProduct.Price));
  Writeln('是否有庫存：', BoolToStr(AProduct.InStock, True));
end;

var
  Product: TProduct;
begin
  Product.ID := 1001;
  Product.Name := 'Delphi 教學書';
  Product.Price := 580;
  Product.InStock := True;

  PrintProduct(Product);
  Readln;
end.

實際寫程式時，使用者輸入常常有多餘空白、大小寫不一致等問題。 這個範例示範基本的字串清理與驗證。

複製program StringValidationDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

var
  UserInput, CleanText: string;
begin
  Write('請輸入你的代號：');
  Readln(UserInput);

  CleanText := Trim(UserInput);
  CleanText := UpperCase(CleanText);

  if Length(CleanText) = 0 then
    Writeln('錯誤：不可輸入空白內容')
  else
  begin
    Writeln('整理後的內容：', CleanText);
    Writeln('字元長度：', Length(CleanText));
  end;

  Readln;
end.

這是一個非常實用的入門範例：先把幾行資料寫入文字檔，再從檔案讀回來顯示。 同時也練習物件建立後要搭配 try...finally 釋放資源。這類資源管理方式 也符合 Delphi 例外處理與物件生命週期的核心做法。

複製program FileReadWriteDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Classes;

var
  Lines: TStringList;
  I: Integer;
begin
  Lines := TStringList.Create;
  try
    Lines.Add('Delphi');
    Lines.Add('Object Pascal');
    Lines.Add('File Demo');
    Lines.SaveToFile('demo.txt');

    Writeln('已寫入 demo.txt');
    Writeln('----------');

    Lines.Clear;
    Lines.LoadFromFile('demo.txt');

    Writeln('讀取檔案內容：');
    for I := 0 to Lines.Count - 1 do
      Writeln(Lines[I]);
  finally
    Lines.Free;
  end;

  Readln;
end.

當多個類別有共同特徵時，可以先建立父類別，再讓子類別繼承並覆寫方法。 這是 Delphi 物件導向很重要的一步。

複製program InheritanceDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type
  TAnimal = class
  public
    procedure Speak; virtual;
  end;

  TDog = class(TAnimal)
  public
    procedure Speak; override;
  end;

  TCat = class(TAnimal)
  public
    procedure Speak; override;
  end;

procedure TAnimal.Speak;
begin
  Writeln('動物發出聲音');
end;

procedure TDog.Speak;
begin
  Writeln('狗：汪汪');
end;

procedure TCat.Speak;
begin
  Writeln('貓：喵喵');
end;

var
  Animal: TAnimal;
begin
  Animal := TDog.Create;
  try
    Animal.Speak;
  finally
    Animal.Free;
  end;

  Animal := TCat.Create;
  try
    Animal.Speak;
  finally
    Animal.Free;
  end;

  Readln;
end.

這個範例很適合初學者，因為使用者輸入常常不可靠。 如果直接轉型失敗，程式可能中斷；加上例外處理後就能優雅地回應錯誤。

複製program SafeConvertDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

var
  InputText: string;
  Number: Integer;
begin
  Write('請輸入整數：');
  Readln(InputText);

  try
    Number := StrToInt(InputText);
    Writeln('你輸入的整數是：', Number);
  except
    on E: EConvertError do
      Writeln('輸入格式錯誤，請輸入有效整數。');
  end;

  Readln;
end.

若你需要動態增加資料筆數，泛型容器會比固定大小陣列更方便。 這是現代 Delphi 寫法中很常見的資料管理方式。

複製program GenericListDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Generics.Collections;

var
  Names: TList<string>;
  NameItem: string;
begin
  Names := TList<string>.Create;
  try
    Names.Add('Alice');
    Names.Add('Bob');
    Names.Add('Cindy');

    Writeln('名單內容：');
    for NameItem in Names do
      Writeln(NameItem);
  finally
    Names.Free;
  end;

  Readln;
end.

當程式逐漸變大時，就不應把所有函式都寫在同一個主程式裡。 Delphi 通常會把可重複使用的功能拆到 Unit。這也是 Delphi 程式結構中的核心概念之一。

檔案一：UMathHelper.pas

複製unit UMathHelper;

interface

function Max2(A, B: Integer): Integer;
function Min2(A, B: Integer): Integer;

implementation

function Max2(A, B: Integer): Integer;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function Min2(A, B: Integer): Integer;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

end.

檔案二：UnitDemo.dpr

複製program UnitDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  UMathHelper;

begin
  Writeln('較大值：', Max2(10, 25));
  Writeln('較小值：', Min2(10, 25));
  Readln;
end.

這個範例把前面學過的 class、陣列與方法整合起來，算是一個比較完整的小型練習。

複製program StudentManagerDemo;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

type
  TStudent = class
  private
    FName: string;
    FScore: Integer;
  public
    constructor Create(const AName: string; AScore: Integer);
    procedure PrintInfo;
    property Name: string read FName;
    property Score: Integer read FScore;
  end;

constructor TStudent.Create(const AName: string; AScore: Integer);
begin
  FName := AName;
  FScore := AScore;
end;

procedure TStudent.PrintInfo;
begin
  Writeln('姓名：', FName, '，分數：', FScore);
end;

var
  Students: array of TStudent;
  I: Integer;
begin
  SetLength(Students, 3);
  Students[0] := TStudent.Create('小明', 88);
  Students[1] := TStudent.Create('小美', 92);
  Students[2] := TStudent.Create('小華', 75);

  try
    Writeln('學生清單：');
    for I := Low(Students) to High(Students) do
      Students[I].PrintInfo;
  finally
    for I := Low(Students) to High(Students) do
      Students[I].Free;
  end;

  Readln;
end.