«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнение є2 дл€ обработки строк

”пражнение 2. —оздайте приложение, предлагающее пользователю ввести строку текста, а затем замен€ющее символы в тексте и подсчитывающее количество замененных символов. ¬ариант замены символов должен определ€тьс€ по положению соответствующего флажка CheckBox. —оздайте форму, дл€ свойства Caption задайте значение Ђѕодсчет и замена символовї. Ќа форме разместите компоненты: Editl, Edit2, Edit3, CheckBoxl, CheckBox2, CheckBox3, Labell, Label2, Label3, Buttonl. «адайте значени€ свойств Labell.Caption Ц Ђ»сходный текст на русском €зыкеї, Label2.Caption Ц Ђ»змененный текстї, Label3.Caption Ц Ђ„исло заменї, CheckBoxl.Caption Ц Ђѕодсчитать число заменї, CheckBox2.Caption Ц Ђ«аменить "а" на "б"ї, —песк¬ох3. Caption Ц Ђ«аменить пробелы на тиреї, Buttonl.Caption Ц Ђ¬ыполнитьї. ”далите текст Editl, Edit2, Edit3 из соответствующих компонентов.

«амену символов в тексте и подсчет количества замененных символов опишите в процедуре обработчика событи€ щелчка мышью на кнопке Buttonl. ƒл€ создани€ процедуры обработчика событи€ выберите в окне »нспектора объектов объект Buttonl, затем на странице —обыти€ произведите двойной щелчок на пустом поле списка в событии OnClick. ѕосле этого в окне –едактора кода в заготовку процедуры обработчика событи€ procedure TForml.ButtonlClick (Sender: TObject); введите следующее описание переменных:

var
var S : string; {строка текста}
N : byte; {количество замен символов}

— учетом вышесказанного тело процедуры может быть записано следующим образом:

N:=0; {обнулить число букв а}
Edit3.Text: = ";
Edit2.Text: = ";
S:=Editl.Text; {присвоить S значение текстовой строки}
if CheckBox2.Checked then {если включен флажок CheckBox2}
while Pos('a', S) > 0 do {если в строке найдена буква а}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos('a', S)] := 'б'; {заменить букву а буквой 6}
end;
if CheckBox3.Checked then
while Pos(' ', S) > 0 do {если в строке найден пробел}
begin
N:=N+1; {увеличить счетчик замен на 1}
S[Pos(' ', S)] := '-'; {заменить пробел символом -}
End;
if CheckBoxl.Checked then Edit3.Text:=IntToStr(N); {вывод числа замен символов}
Edit2.Text:=S; {вывод измененного текста}
end;
—охраните файлы проекта и программного модул€, откомпилируйте и запустите программу на выполнение. ѕроверьте работу приложени€, задава€ различный текст на русском €зыке с разным количеством букв Ђаї и пробелов. ѕроверьте правильность вывода результатов работы и закройте окно приложени€.
<< {SITELINK-S206}1{/SITELINK}, 2 >>

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение 2 ”пражнение 3 ќписание типа "«апись" ”пражнение є1 дл€ работы с запис€ми ”пражнение є2 дл€ работы с запис€ми √рафика в Delphi ”пражнение 1 ”пражнение 2 ”пражнение 3 ”пражнение 4 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом