Удалить символ - Помощь студентам

alerzo · 06.03.2010, 18:15

Нужно составить программу: удалить каждый символ * и повторить каждый символ,отличный от *
значения вводить и выводить в Edit

DarkStyle · 06.03.2010, 20:03

Edit1 - INPUT
Edit2 - OUTPUT
for i:=1 to length(Edit1.Text) do
if Edit1.Text[i]<>'*' then Edit2.Text:=Edit2.Text+Edit1.Text[i]+Edit1.Text[i];

По-моему как-то так (в делфи не проверял).

06.03.2010, 18:15	#1
alerzo Регистрация: 03.03.2010 Сообщений: 9	Удалить символ Нужно составить программу: удалить каждый символ * и повторить каждый символ,отличный от * значения вводить и выводить в Edit

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
В заданном предложении удалить символ	perojenko	Помощь студентам	2	16.12.2010 22:55
Delphi 7, удалить символ в конце файла	Flame_of_Death	Помощь студентам	5	10.08.2009 06:32
[Делфи]Как удалить последний символ в edit1.text?	zotox	Помощь студентам	3	05.08.2009 12:05
Перенести/Удалить один символ в ячейке	Tirendus	Microsoft Office Excel	4	31.07.2009 13:15
как удалить из файла символ?	evgenrpo	Общие вопросы C/C++	2	04.06.2009 22:35

06.03.2010, 20:03	#2
DarkStyle Регистрация: 06.03.2010 Сообщений: 3	Edit1 - INPUT Edit2 - OUTPUT for i:=1 to length(Edit1.Text) do if Edit1.Text[i]<>'*' then Edit2.Text:=Edit2.Text+Edit1.Text[i]+Edit1.Text[i]; По-моему как-то так (в делфи не проверял).