Delphi 基础学习笔记

fanxbl957

已于 2024-10-07 18:46:29 修改

阅读量1.1k

点赞数 15

分类专栏：各类语言和技术总结笔记文章标签：学习笔记 Delphi

于 2024-10-02 14:09:41 首次发布

本文链接：https://blog.youkuaiyun.com/ashyyyy/article/details/142680988

版权

各类语言和技术总结笔记专栏收录该内容

21 篇文章

订阅专栏

Delphi 基础学习笔记

下面是一个全面的 Delphi 语言教程，适合初学者和有一定编程经验的人士。Delphi 是一种基于 Object Pascal 的快速应用程序开发（RAD）工具，广泛用于 Windows 应用程序开发。要想深入了解请参考：Delphi基础教程讲义、delphi经典编程入门教程、DELPHI基础教程。

1. 简介

定义：Delphi 是由 Embarcadero Technologies 开发的一种集成开发环境（IDE），主要用于 Windows 应用程序的快速开发。
用途：
- 桌面应用程序开发。
- 移动应用开发（通过 FireMonkey 框架）。
- 服务器端开发。
特点：
- 强大的可视化设计工具。
- 高效的编译器。
- 丰富的组件库。
- 支持多线程和数据库访问。

2. 开始使用 Delphi

安装 Delphi

访问 Embarcadero 官方网站下载并安装 Delphi。
选择适合你需求的版本进行安装。

创建新项目

打开 Delphi IDE。
选择 File -> New -> VCL Forms Application - Delphi 或 FireMonkey HD Application - Delphi。
新建一个 VCL 或 FireMonkey 项目。

3. Delphi IDE 界面

主要部分

代码编辑器：编写和编辑代码的地方。
表单设计器：设计用户界面的地方。
对象检查器：查看和修改组件属性的地方。
项目管理器：管理项目文件和依赖项的地方。
组件面板：提供各种可视化组件的地方。

4. 基本概念

组件（Components）

组件是 Delphi 中的基本构建块，用于创建用户界面和处理事件。
可以从组件面板中拖放组件到表单上，并通过对象检查器设置其属性。

事件（Events）

事件是用户或系统触发的动作，例如按钮点击、鼠标移动等。
为组件分配事件处理程序来响应这些事件。

单元（Units）

单元是 Delphi 中的基本组织单元，通常包含一个 .pas 文件。
单元可以包含接口、实现和初始化部分。

5. 第一个编程实例：制作一个简单的计算器

步骤 1：创建新项目

打开 Delphi IDE。
选择 File -> New -> VCL Forms Application - Delphi。
将默认表单命名为 frmCalculator。

步骤 2：设计用户界面

在表单上添加以下组件：
- 四个 TButton 组件，分别命名为 btnAdd, btnSubtract, btnMultiply, btnDivide。
- 两个 TEdit 组件，分别命名为 edtNumber1, edtNumber2。
- 一个 TLabel 组件，命名为 lblResult。
将这些组件按照下图布局：

+-------------------+
|   edtNumber1      |
|   edtNumber2      |
|   btnAdd          |
|   btnSubtract     |
|   btnMultiply     |
|   btnDivide       |
|   lblResult       |
+-------------------+

步骤 3：编写代码

双击每个按钮，在代码编辑器中生成相应的事件处理程序。
编写以下代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    edtNumber1: TEdit;
    edtNumber2: TEdit;
    btnAdd: TButton;
    btnSubtract: TButton;
    btnMultiply: TButton;
    btnDivide: TButton;
    lblResult: TLabel;
    procedure btnAddClick(Sender: TObject);
    procedure btnSubtractClick(Sender: TObject);
    procedure btnMultiplyClick(Sender: TObject);
    procedure btnDivideClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnAddClick(Sender: TObject);
var
  num1, num2, result: Double;
begin
  num1 := StrToFloat(edtNumber1.Text);
  num2 := StrToFloat(edtNumber2.Text);
  result := num1 + num2;
  lblResult.Caption := FloatToStr(result);
end;

procedure TForm1.btnSubtractClick(Sender: TObject);
var
  num1, num2, result: Double;
begin
  num1 := StrToFloat(edtNumber1.Text);
  num2 := StrToFloat(edtNumber2.Text);
  result := num1 - num2;
  lblResult.Caption := FloatToStr(result);
end;

procedure TForm1.btnMultiplyClick(Sender: TObject);
var
  num1, num2, result: Double;
begin
  num1 := StrToFloat(edtNumber1.Text);
  num2 := StrToFloat(edtNumber2.Text);
  result := num1 * num2;
  lblResult.Caption := FloatToStr(result);
end;

procedure TForm1.btnDivideClick(Sender: TObject);
var
  num1, num2, result: Double;
begin
  if StrToFloat(edtNumber2.Text) = 0 then
  begin
    ShowMessage('除数不能为零');
    Exit;
  end;

  num1 := StrToFloat(edtNumber1.Text);
  num2 := StrToFloat(edtNumber2.Text);
  result := num1 / num2;
  lblResult.Caption := FloatToStr(result);
end;

end.

步骤 4：运行项目

点击工具栏上的“运行”按钮（绿色三角形）。
输入两个数字，点击相应的按钮，结果将显示在 lblResult 标签中。

6. 常见组件介绍

TButton

用于触发事件的按钮。
属性：Caption（按钮文本）、OnClick（点击事件）。

TEdit

用于输入文本的编辑框。
属性：Text（文本内容）。

TLabel

用于显示文本的标签。
属性：Caption（文本内容）。

TListBox

用于显示列表项的控件。
方法：Items.Add（添加项）、Items.Delete（删除项）。

TComboBox

用于显示下拉列表的控件。
属性：Items（列表项）、Text（当前选中的文本）。

TCheckBox

用于表示布尔值的复选框。
属性：Checked（是否选中）、OnClick（点击事件）。

TRadioButton

用于表示一组互斥选项的单选按钮。
属性：Checked（是否选中）、OnClick（点击事件）。

TPanel

用于分组其他控件的面板。
属性：BevelInner 和 BevelOuter（边框样式）。

7. 数据库访问

使用 ADO (ActiveX Data Objects)

添加 ADOTable, ADOQuery, ADODataset 等组件。
设置连接字符串和 SQL 语句。
使用 Open 和 Close 方法打开和关闭数据集。

示例：从数据库读取数据

添加 TADOConnection 和 TADOQuery 组件。
设置 TADOConnection 的连接字符串。
设置 TADOQuery 的 SQL 语句。
在按钮点击事件中执行查询并显示结果。

uses
  ADODB;

procedure TForm1.btnFetchDataClick(Sender: TObject);
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM Employees');
  ADOQuery1.Open;
  
  while not ADOQuery1.EOF do
  begin
    Memo1.Lines.Add(ADOQuery1.FieldByName('Name').AsString);
    ADOQuery1.Next;
  end;
end;

8. 多线程编程

使用 TThread

创建一个新的线程类，继承自 TThread。
重写 Execute 方法，编写线程执行的代码。
在主线程中启动新线程。

示例：简单的后台任务

创建一个新的单元，定义一个继承自 TThread 的类。

unit MyThread;

interface

uses
  Classes, SysUtils;

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

implementation

procedure TMyThread.Execute;
begin
  inherited;
  // 后台任务代码
  for i := 1 to 10 do
  begin
    Sleep(1000); // 模拟耗时操作
    Synchronize(
      procedure
      begin
        // 更新 UI
        Form1.Memo1.Lines.Add('Step ' + IntToStr(i));
      end
    );
  end;
end;

end.

在主窗体中启动线程。

procedure TForm1.btnStartThreadClick(Sender: TObject);
var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(True);
  MyThread.FreeOnTerminate := True;
  MyThread.Start;
end;