---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, GlobDat;

type
  TForm1 = class(TForm)
    Edit1: TEdit;        // Фамилия
    Edit2: TEdit;        // Имя
    Edit3: TEdit;        // Отчество
    Edit4: TEdit;        // Дата рождения
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RadioGroup1: TRadioGroup;
    ComboBox1: TComboBox;
    Button1: TButton;    // Выход
    Button2: TButton;    // Сохранить
    Timer1: TTimer;
    Edit5: TEdit;        // Текущее время
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Memo1: TMemo;        // Адрес

    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  F: TextFile;
  Line: string;
begin
  ComboBox1.Items.Clear;

  if FileExists('D:\Sotrud\Spets.txt') then
  begin
    AssignFile(F, 'D:\Sotrud\Spets.txt');
    Reset(F);

    while not Eof(F) do
    begin
      ReadLn(F, Line);
      if Trim(Line) <> '' then
        ComboBox1.Items.Add(Line);
    end;

    CloseFile(F);
  end
  else
  begin
    ComboBox1.Items.Add('Программист');
    ComboBox1.Items.Add('Бухгалтер');
    ComboBox1.Items.Add('Менеджер');
  end;

  ComboBox1.ItemIndex := 0;

  RadioGroup1.Caption := 'Образование';
  RadioGroup1.Items.Clear;
  RadioGroup1.Items.Add('Высшее');
  RadioGroup1.Items.Add('Среднее');
  RadioGroup1.Items.Add('Начальное');
  RadioGroup1.ItemIndex := 1;

  Timer1.Enabled := True;
  Timer1.Interval := 1000;
end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if Trim(ComboBox1.Text) <> '' then
      if ComboBox1.Items.IndexOf(ComboBox1.Text) = -1 then
        ComboBox1.Items.Add(ComboBox1.Text);

    ComboBox1.Text := '';
    Key := #0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  Obr: string;
begin
  if RadioGroup1.ItemIndex >= 0 then
    Obr := RadioGroup1.Items[RadioGroup1.ItemIndex]
  else
    Obr := '';

  AssignFile(F, 'D:\Sotrud\Sotrud.txt');

  if FileExists('D:\Sotrud\Sotrud.txt') then
    Append(F)
  else
    Rewrite(F);

  WriteLn(F,
    'ФИО: ' + Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text +
    '; Д.р.: ' + Edit4.Text +
    '; АДРЕС: ' + StringReplace(Memo1.Text, #13#10, ', ', [rfReplaceAll]) +
    '; ОБРАЗОВАНИЕ: ' + Obr +
    '; СПЕЦИАЛЬНОСТЬ: ' + ComboBox1.Text
  );

  CloseFile(F);

  ShowMessage('Данные сохранены в файл Sotrud.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit5.Text := TimeToStr(Time);
end;

procedure TForm1.Edit4Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit4.Text := S;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  F: TextFile;
  i: Integer;
begin
  AssignFile(F, 'D:\Sotrud\Spets.txt');
  Rewrite(F);

  for i := 0 to ComboBox1.Items.Count - 1 do
    WriteLn(F, ComboBox1.Items[i]);

  CloseFile(F);
end;

end.