了解Delphi类（和记录）帮助程序引入了Delphi语言的一项功能，允许您通过向现有类和记录添加函数和过程（方法）来扩展类或记录类型的定义，而无需继承。...
了解Delphi类（和记录）帮助程序引入了Delphi语言的一项功能，允许您通过向现有类和记录添加函数和过程（方法）来扩展类或记录类型的定义，而无需继承。
在XE3Delphi版本中，通过允许扩展简单的Delphi类型（如字符串、整数、枚举、集合等），记录帮助程序变得更加强大。
来自Delphi XE3的System.SysUtils单元实现了一个名为“TStringHelper”的记录，它实际上是字符串的记录助手。
使用Delphi XE3，您可以编译并使用以下代码：
var s : string;
begin s := 'Delphi XE3'; s.Replace('XE3', 'rules', []).ToUpper;
end;
为了实现这一点，在Delphi中创建了一个新的构造“record helper For[simple type]”。对于字符串，这是“typetstringhelper=recordhelperforstring”。该名称表示“record helper”，但这并不是关于扩展记录，而是关于扩展字符串、整数等简单类型。
在System和System.SysUtils中，还有其他用于简单类型的预定义记录帮助程序，包括：TingleHelper、TDoubleHelper、TExtendedHelper、TGuidHelper（以及其他一些）。您可以从名称中获得帮助器扩展的简单类型。
还有一些方便的开源助手，比如TDateTimeHelper。
列举？枚举的助手？
enumerations sets
现在（在XE3和更高版本中）被视为简单类型的枚举和集合也可以通过记录类型可以具有的功能进行扩展：函数、过程等。
下面是一个简单的枚举（“TDay”）和一个记录助手：
type TDay = (Monday = 0, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday); TDayHelper =
record helper for TDay
function AsByte : byte;
function ToString :
string;
end;
function TDayHelper.AsByte: byte;
begin result := Byte(self);
end;
function TDayHelper.ToString:
string;
begin case self
of Monday: result := 'Monday'; Tuesday: result := 'Tuesday'; Wednesday: result := 'Wednesday'; Thursday: result := 'Thursday'; Friday: result := 'Friday'; Saturday: result := 'Saturday'; Sunday: result := 'Sunday';
end;
end;
var aDay : TDay; s : string;
begin aDay := TDay.Monday; s := aDay.ToString.ToLower;
end; convert a Delphi Enum to a String Representation
布景？集合的助手？
TDays =
set of TDay;
var days : TDays; s : string;
begin days := [Monday .. Wednesday]; days := days + [Sunday];
end;
但是，能够做到以下几点有多好：
var days : TDays; b : boolean;
begin days := [Monday, Tuesday] b := days.Intersect([Monday, Thursday]).IsEmpty;
type TDaysHelper =
record helper for TDays
function Intersect(
const days : TDays) : TDays;
function IsEmpty : boolean; end; ...
function TDaysHelper.Intersect(
const days: TDays): TDays;
begin result := self * days;
end;
function TDaysHelper.IsEmpty: boolean;
begin result := self = [];
end;
对于围绕枚举构造的每个集合类型，您都需要一个单独的帮助器，因为遗憾的是，枚举和集合不符合泛型和泛型类型。
这意味着无法编译以下内容：
//NO COMPILE OF ALIKE! TGenericSet = set of <T : [?Enumeration?]>; TEnum Simple generics Enum example
记录字节集的帮助程序！
type TByteSet =
set of Byte; TByteSetHelper =
record helper for TByteSet
在TByteSetHelper的定义中可以有以下内容：
public procedure Clear;
procedure Include(
const value : Byte);
overload;
inline;
procedure Include(
const values : TByteSet);
overload;
inline;
procedure Exclude(
const value : Byte);
overload;
inline;
procedure Exclude(
const values : TByteSet);
overload;
inline;
function Intersect(
const values : TByteSet) : TByteSet;
inline;
function IsEmpty : boolean;
inline;
function Includes(
const value : Byte) : boolean;
overload; inline; function Includes(
const values : TByteSet) : boolean;
overload; inline; function IsSuperSet(
const values : TByteSet) : boolean;
inline;
function IsSubSet(
const values : TByteSet) : boolean;
inline;
function Equals(
const values : TByteSet) : boolean;
inline;
function ToString :
string;
inline;
end;
{ TByteSetHelper } procedure TByteSetHelper.Include(const value: Byte);
begin System.Include(self, value);
end;
procedure TByteSetHelper.Exclude(const value: Byte);
begin System.Exclude(self, value);
end;
procedure TByteSetHelper.Clear;
begin self := [];
end;
function TByteSetHelper.Equals(const values: TByteSet): boolean;
begin result := self = values;
end;
procedure TByteSetHelper.Exclude(const values: TByteSet);
begin self := self - values;
end;
procedure TByteSetHelper.Include(const values: TByteSet);
begin self := self + values;
end;
function TByteSetHelper.Includes(const values: TByteSet): boolean;
begin result := IsSuperSet(values);
end;
function TByteSetHelper.Intersect(const values: TByteSet) : TByteSet;
begin result := self * values;
end;
function TByteSetHelper.Includes(const value: Byte): boolean;
begin result := value in self;
end;
function TByteSetHelper.IsEmpty: boolean;
begin result := self = [];
end;
function TByteSetHelper.IsSubSet(const values: TByteSet): boolean;
begin result := self <= values;
end;
function TByteSetHelper.IsSuperSet(const values: TByteSet): boolean;
begin result := self >= values;
end;
function TByteSetHelper.ToString: string;
var b : Byte;
begin for b
in self
do result := result + IntToStr(b) + ', '; result := Copy(result, 1, -2 + Length(result));
end;
var daysAsByteSet : TByteSet;
begin daysAsByteSet.Clear; daysAsByteSet.Include(Monday.AsByte); daysAsByteSet.Include(Integer(Saturday); daysAsByteSet.Include(Byte(TDay.Tuesday)); daysAsByteSet.Include(Integer(TDay.Wednesday)); daysAsByteSet.Include(Integer(TDay.Wednesday)); //2nd time - no sense daysAsByteSet.Exclude(TDay.Tuesday.AsByte); ShowMessage(daysAsByteSet.ToString); ShowMessage(BoolToStr(daysAsByteSet.IsSuperSet([Monday.AsByte,Saturday.AsByte]), true));
end;
有一个问题，但是：(
请注意，TByteSet接受字节值，并且这里将接受任何此类值。上面实现的TByteSetHelper不是严格的枚举类型（即，您可以为其提供非TDay值）。。。但只要我知道。。它确实对我有用。
