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

A: =True;

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

if S. DepartmentName=Form2. ComboBox3. Items. Strings [i] then begin

A: =False; Break;

end;

if A then Form2. ComboBox3. Items. Add(S. DepartmentName);

A: =True;

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

if S. PositionName=Form2. ComboBox4. Items. Strings [i] then begin

A: =False; Break;

end;

if A then Form2. ComboBox4. Items. Add(S. PositionName);

end;

procedure TForm1. LoadFromFile(FileName: String);

begin

WorkersCount: =0;

CurWorker: =WorkersCount-1;

SetLength(Worker,WorkersCount);

Form2. ComboBox2. Clear; Form2. ComboBox3. Clear; Form2. ComboBox4. Clear;

Form3. ListBox1. Clear; Form3. ListBox2. Clear; Form3. ListBox3. Clear;

CurFileName: =FileName;

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

AssignFile(F,FileName); Reset(F);

while not EOF(F) do begin

INC(WorkersCount);

SetLength(Worker,WorkersCount);

Form2. ClearWorker(WorkersCount-1);

Read(F,Worker [WorkersCount-1]);

AddToCombo(Worker [WorkersCount-1]);