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

if ComboBox2. ItemIndex in [4,8,11] then

if Length(ComboBox3. Text) in [2,5] then begin

ComboBox3. Text: =ComboBox3. Text+'. ';

ComboBox3. SelStart: =Length(ComboBox3. Text);

end;

end;

procedure TForm1. ComboBox2Change(Sender: TObject);

begin

ComboBox3. Clear;

ComboBox3. MaxLength: =0;

case ComboBox2. ItemIndex of

0: ComboBox3. MaxLength: =5;

4,7,8,11: ComboBox3. MaxLength: =10;

9: ComboBox3. MaxLength: =2;

6: ComboBox3. Items: =Form2. ComboBox1. Items;

12: ComboBox3. Items: =Form2. ComboBox4. Items;

13: ComboBox3. Items: =Form2. ComboBox3. Items;

14: ComboBox3. Items: =Form2. ComboBox2. Items;

10,15,16: begin

ComboBox3. Items. Add('ͳ');

ComboBox3. Items. Add('Так');

end;

end;

end;

procedure TForm1. ComboBox2KeyPress(Sender: TObject; var Key: Char);

begin

Key: =#0;

end;

function TForm1. FindInRec(Index: Integer): Integer;