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

j: =i+1;

if Copy(S,j,Length(S) - i-1) <>'' then

Result. Y: =Form2. STI(Copy(S,j,Length(S) - i));

end;

if P=0 then begin

Result. D: =Form2. STI(Copy(S,j, i-1));

INC(P); j: =i+1;

end;

end;

end;

procedure TForm1. SaveToFile(FileName: String);

var i: Integer;

begin

CurFileName: =FileName;

Caption: ='Кадровий облік - '+ExtractFileName(FileName);

AssignFile(F,FileName); ReWrite(F);

for i: =0 to WorkersCount-1 do

Write(F,Worker [i]);

CloseFile(F);

end;

procedure AddToCombo(S: Kadr);

var i: Integer;

A: Boolean;

begin

A: =True;

for i: =0 to Form2. ComboBox2. Items. Count-1 do

if S. SubsectionName=Form2. ComboBox2. Items. Strings [i] then begin

A: =False; Break;

end;