Создание программы на языке Delphi 70 (стр. 3 из 3)

95. elsebegin

96. Rewrite(FS);

97. while not Eof(FO) do begin

98. Readln(FO,str);

99. strslovo:='';

100. for i:=1 to Length(str) do begin

101. if (str[i] in ZnCh) or (str[i]=' ') then begin

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;

126. Button2.Enabled:=True;

127. Button3.Visible:=False;

128. Button3.Enabled:=True;

129. Button4.Visible:=False;

130. Label2.Visible:=False;

131. Label3.Visible:=False;

132. Label4.Visible:=False;

133. Label1.Caption:='Нажмите на кнопку "Открыть" и выберите файл для проверки';

134. end;

135. end.

136.

ПРИЛОЖЕНИЕ В

Результаты решения программы

Результатом решения программы можно считать сообщение об исправленных заглавных буквах и результирующий файл с записанной в него информацией.