Курсовая работа: Разработка программы с помощью языка программирования Delphi

22.

23. implementation

24. uses Unit1;

25. {$R *.dfm}

26. procedure TFormAvto. BitBtnStartClick (Sender: TObject);

27. begin

28. SFam:=EFam. Text+ ' ';

29. SGr:=EGroup. Text;

30. hide;

31. FormTest. Show;

32. end;

33. end.

Модуль формы тестирования

34. unit Unit1;

35. interface

36. uses

37. Windows, Messages, SysUtils, Variants, Classes, Graphics,

38. Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;

39. type

40. TFormTest = class(TForm)

41. BitBtn1: TBitBtn;

42. Label1: TLabel;

43. LbNom: TLabel;

44. StaticText1: TStaticText;

45. RGroup1: TRadioGroup;

46. BNewTest: TButton;

47. procedure FormCreate (Sender: TObject);

48. procedure BitBtn1Click (Sender: TObject);

49. procedure BNewTestClick (Sender: TObject);