Курсовая работа: Кадровий облік

LiberationData: Data; // Дата звільнення

PositionName: String [255] ; // Назва посади

DepartmentName: String [255] ; // Назва відділу

DepartmentLeader: Boolean; // Керівник відділу

SubsectionName: String [255] ; // Назва підрозділу

SubsectionLeader: Boolean; // Керівник підрозділу

end;

var

Form1: TForm1;

F: File of Kadr;

Worker,Rezerv: array of Kadr;

CurFileName: String='';

WorkersCount: Integer=0;

RezervCount: Integer=0;

CurWorker: Integer=0;

ADD: Boolean;

implementation

uses WorkerUnit, RegUnit;

{$R *. dfm}

function TForm1. GetData(S: String): Data;

var i,j,P: Integer;

begin

Result. D: =0;

Result. M: =0;

Result. Y: =0;

P: =0; j: =1;

for i: =1 to Length(S) do

if S [i] ='. ' then begin

if P=1 then begin