Курсовая работа: Создание программы на языке Delphi 70

42. Label2.Caption:='Нажмите на кнопку "Сохранить" и выберите файл для хранения результатов проверки';

43. end;

44. end;

45. procedure TForm1.Button2Click(Sender: TObject);

46. var

47. b:boolean;

48. begin

49. b:=false;

50. if SaveDialog1.Execute then

51. SFName:=SaveDialog1.FileName;

52. if Pos('.txt',SFName)=0 then SFName:=SFName+'.txt';

53. ifSFName=OFNamethen

54. ShowMessage('Выберите другой файл для сохранения результата')

55. else

56. b:=true;

57. if (SFName<>'') and (b) then begin

58. Button2.Enabled:=False;

59. Label2.Caption:='Путь к результирующему файлу: '+SFName;

60. Button3.Visible:=True;

61. Label3.Visible:=True;

62. Label3.Caption:='Для начала проверки нажмите на кнопку "Проверить"';

63. end;

64. end;

65. procedure TForm1.FormCreate(Sender: TObject);

66. begin

67. Button2.Visible:=False;

68. Label2.Visible:=False;

69. Button3.Visible:=False;

70. Label3.Visible:=False;