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

102. for j:=1 to Length(strslovo) do begin

a. if strslovo[j] in UpCh then begin

b. answ:=MessageDlg('В слове "'+strslovo+'" найдена заглавная буква "'+strslovo[j]+'". Заменить ее на малую?',mtInformation,[mbYes,mbNo],0);

c. if answ=mrYes then begin

d. end;

e. end;

103. end;

104. Write(FS,strslovo+str[i]);

105. strslovo:='';

106. end

107. else

108. strslovo:=strslovo+str[i];

109. end;

110. Writeln(FS,'');

111. end;

112. CloseFile(FO);

113. CloseFile(FS);

114. Label3.Caption:='Проверка файла завершена. Исправлено '+IntToStr(count)+' заглавных букв.';

115. Button3.Enabled:=False;

116. Button4.Visible:=True;

117. Label4.Visible:=True;

118. end;

119. end;

120. procedure TForm1.Button4Click(Sender: TObject);

121. begin

122. OFName:='';

123. SFName:='';

124. Button1.Enabled:=True;

125. Button2.Visible:=False;