Delphi，记录类型属性，记录字段赋值

基础概念

Delphi 是一种高级编译型强类型语言，主要用于快速应用程序开发（RAD），尤其适用于Windows桌面应用程序。它源自Borland公司的Object Pascal语言，并加入了面向对象的特性。

记录类型（Record） 在Delphi中是一种用户自定义的数据结构，类似于其他编程语言中的结构体（struct）。记录类型允许你将不同类型的数据组合在一起，作为一个单一的实体。

属性（Property） 是一种特殊的成员，它提供了一种访问记录或类内部数据的方式，同时可以隐藏数据的实际存储方式。属性可以有读取（read）和写入（write）方法，用于控制对数据的访问。

类型与应用场景

在Delphi中，记录类型属性通常用于以下场景：

数据封装：将一组相关的数据项组合成一个记录，并通过属性来访问这些数据。
数据验证：在设置属性值时进行数据有效性检查。
事件触发：在属性值改变时触发某些操作或事件。

示例代码

以下是一个简单的Delphi示例，展示了如何定义一个包含属性的记录类型，并对记录字段进行赋值：

type
  TPerson = record
  private
    FName: string;
    FAge: Integer;
    procedure SetName(const Value: string);
    procedure SetAge(const Value: Integer);
  public
    property Name: string read FName write SetName;
    property Age: Integer read FAge write SetAge;
  end;

procedure TPerson.SetName(const Value: string);
begin
  if Length(Value) > 0 then
    FName := Value
  else
    raise Exception.Create('Name cannot be empty');
end;

procedure TPerson.SetAge(const Value: Integer);
begin
  if (Value >= 0) and (Value <= 120) then
    FAge := Value
  else
    raise Exception.Create('Age must be between 0 and 120');
end;

var
  Person: TPerson;
begin
  try
    Person.Name := 'John Doe'; // 正常赋值
    Person.Age := 30;           // 正常赋值
    // Person.Age := -5;        // 这将引发异常
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;
end.