创建一个新类

TTstPoint = record
LABC: string; //L,A,B,C
Factor: string; //功率因数
Angle: string; //相位角度
TestFreq: string;//测试频率
TestVolt,TestCurr: string; //测试电压,测试电流
Ohms,OhmsUnt: string;
end;
TTstValue = record
Pn:string; //标准表示值
Px:string; //被检表示值
Err: string; //误差值
end;
TTstInv = record
Temperature: string;//温度(25.0)*/
WetDegree: string;//湿度(65.0)*/
TestMan: string;//校验人员*/
CheckMan: string;//核验人员*/
Manager: string;//主管人员*/
end;
TTstCon = record
TestName: string;//当前试验类别 交流功率、交流电压、直流电压等
TestConnect: string;//相线 三相四线(有功/无功)、单相A、单相B、单相C
TestIRange: string;//220V、100V
TestURange: string;//1.5A、100mA
end;
TTstFile = Class(TXMLFile)
private
FTstInv: TTstInv;
FCheckName: string;
FTstCon: TTstCon;
FTstPoint: TTstPoint;
FTstValue: TTstValue;
function IdentCheck(CheckName: string): string;
function IdentTest(CheckName: string; tc: TTstCon): string;
function IdentPoint(CheckName: string; tc: TTstCon; tp: TTstPoint): string;
procedure SetTstInv(const Value: TTstInv);
procedure SetCheckName(const Value: string);
Procedure SetTstCon(const Value: TTstCon);
procedure SetTstPoint(Value: TTstPoint);
procedure SetTstValue(Value: TTstValue);

public
property CheckName: string read FCheckName write SetCheckName; //当前试验名称 基本误差、输出稳定度、误差一致性
property TstInv: TTstInv read FTstInv write SetTstInv;//当前检定环境及相关人员
property TstCon: TTstCon read FTstCon write SetTstCon;//当前的试验类别及相线，电压量程，电流量程
property TstPoint: TTstPoint Read FTstPoint write SetTstPoint;//当前试验点
property TstValue: TTstValue Read FTstValue write SetTstValue;//当前试验值
function ReadTestData(var tp: Array of TTstPoint; tv: Array of TTstValue): Integer;
end;

property 数据输入——处理数据——输出结果

将处理数据过程放到private中，数据输入，输出结果放到Public中;

转载于:https://www.cnblogs.com/Dove92/p/4193625.html