Delphi 基础语法

### Delphi 基础语法教程 #### 1. 工程文件结构 Delphi 的项目通常由两个主要部分组成：`.dpr` 文件和 `.pas` 文件。 - **DPR 文件** 是项目的入口点，定义程序的初始化过程以及主窗体的创建逻辑[^1]。 ```delphi program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.Run; end. ``` - **PAS 文件** 定义单元（unit），其中包含类声明和其他代码逻辑[^1]。 ```delphi unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end. ``` --- #### 2. 标识符与变量 在 Delphi 中，标识符用于命名变量、常量、函数等。以下是基本规则： - 只能包含字母、数字和下划线 `_`。 - 必须以字母开头。 - 不区分大小写。 示例： ```delphi var MyVariable: Integer; // 整型变量 AnotherVar: Double; // 浮点数变量 ``` --- #### 3. 数据类型 Delphi 支持多种数据类型，常见的有以下几种： | 类型 | 描述 | |------------|--------------------------| | `Integer` | 有符号整数 | | `Double` | 浮点数 | | `String` | 字符串 | | `Boolean` | 布尔值 (`True`, `False`) | 示例： ```delphi var Age: Integer; // 年龄 Name: String; // 名字 IsStudent: Boolean; // 是否学生 ``` --- #### 4. 过程与函数 过程（Procedure）和函数（Function）是实现功能的核心组件。区别在于函数可以返回值，而过程不能。 ##### (1) Procedure 示例 ```delphi procedure Greet(Name: String); begin ShowMessage('Hello, ' + Name); end; ``` ##### (2) Function 示例 ```delphi function Add(A, B: Integer): Integer; begin Result := A + B; end; ``` 调用方式： ```delphi Greet('John'); // 调用过程 ShowMessage(IntToStr(Add(5, 7))); // 调用函数并显示结果 ``` --- #### 5. 控件事件处理 控件事件通过绑定到特定的过程来响应用户的操作。例如按钮点击事件： ```delphi procedure Tfrm_item.btnSaveClick(Sender: TObject); var rec: ThresholdParam; begin rec.isChkV := True; // 设置布尔值 rec.MaxLimitV := 2.00; // 设置最大电压限制 rec.isChkA := True; // 设置电流检测标志 rec.MaxLimitA := 3.00; // 设置最大电流限制 end; ``` --- #### 6. 集合类型的使用 集合类型如 `TStringList` 和泛型容器 `TList<T>` 提供了强大的数据管理能力。 ##### (1) TStringList 使用 ```delphi var List: TStringList; begin List := TStringList.Create; try List.Add('Item 1'); List.Add('Item 2'); for i := 0 to List.Count - 1 do Writeln(List[i]); finally List.Free; end; end; ``` ##### (2) TList<T> 使用 ```delphi uses Generics.Collections; var Numbers: TList<Integer>; begin Numbers := TList<Integer>.Create; try Numbers.Add(10); Numbers.Add(20); for Number in Numbers do Writeln(Number); finally Numbers.Free; end; end; ``` --- #### 7. 条件语句与循环 条件判断和循环控制是编程中的重要组成部分。 ##### (1) If 判断 ```delphi if Age >= 18 then ShowMessage('Adult') else ShowMessage('Minor'); ``` ##### (2) For 循环 ```delphi for I := 1 to 10 do Write(I, ' '); ``` ##### (3) While 循环 ```delphi while Count < 5 do begin Inc(Count); WriteLn(Count); end; ``` --- #### 8. 异常处理 异常处理机制能够捕获运行时错误并优雅地应对它们。 ```delphi try StrToInt('NotANumber'); except on E: Exception do ShowMessage('Error: ' + E.Message); end; ``` ---