请用delphi编写一个计算员工考勤的类
时间: 2024-05-08 07:21:26 浏览: 15
好的,以下是用 Delphi 编写的一个计算员工考勤的类:
```delphi
unit EmployeeAttendance;
interface
uses
SysUtils, Classes;
type
TEmployeeAttendance = class
private
FEmployeeName: string;
FAttendanceArray: array of Boolean;
function GetAttendanceCount: Integer;
public
constructor Create(const AEmployeeName: string; const AAttendanceArray: array of Boolean);
function GetAttendanceRate: Double;
property EmployeeName: string read FEmployeeName;
property AttendanceCount: Integer read GetAttendanceCount;
end;
implementation
{ TEmployeeAttendance }
constructor TEmployeeAttendance.Create(const AEmployeeName: string; const AAttendanceArray: array of Boolean);
var
I: Integer;
begin
FEmployeeName := AEmployeeName;
SetLength(FAttendanceArray, Length(AAttendanceArray));
for I := 0 to High(AAttendanceArray) do
FAttendanceArray[I] := AAttendanceArray[I];
end;
function TEmployeeAttendance.GetAttendanceCount: Integer;
var
I: Integer;
begin
Result := 0;
for I := 0 to High(FAttendanceArray) do
if FAttendanceArray[I] then
Inc(Result);
end;
function TEmployeeAttendance.GetAttendanceRate: Double;
begin
Result := AttendanceCount / Length(FAttendanceArray);
end;
end.
```
这个类包含一个构造函数 `Create`,用于初始化员工姓名和考勤记录数组;一个 `GetAttendanceCount` 函数,用于计算员工出勤次数;一个 `GetAttendanceRate` 函数,用于计算员工的出勤率。