Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Замена и уберине лишнего (Делфи)

Сергей © (2010-04-22 22:56:00)
Подскажите решить проблему (написал код на делфи)
Проблема такова (уберается всё)

var
i,j,dlina:integer;
simvol:char;
stroca,zamena:string;
begin
stroca:=edit1.text;
simvol:='!';
dlina:=Lenght(stroca);
for i:=1 to dlina do
begin
if(stroca[i]<>simvol) then begin
zamena:=zamena+stroca[i];
end;
end;
edit2.text:=zamena;
end;
end.

Примерно так я пишу текст с знаками припинание гдет их больше а гдет они не правельные и они должны убратся либо заменится (сорь за ашибки) подскажите где может быть проблема

плиз плиз плиз

Anatoly Podgoretsky (2010-04-23 07:23:00) [1]
> Jeer (22.04.2010 23:09:02) [2]

Если человек ни может писать правильно на своем языке, то чего же можно ожидать от иностранного?

Petr V. Abramov (2010-04-22 23:17:00) [2]
Удалено модератором

Petr V. Abramov (2010-04-22 23:10:00) [3]
Удалено модератором

Jeer (2010-04-22 23:09:00) [4]

> (сорь за ашибки)

Ошибки в родном языке только слегка мешают пониманию, одна ошибка в программе делает ее непредсказуемой.
Вывод ?
Выучи разговорный, потом начинай программировать.

test (2010-04-22 23:02:00) [5]
Есть такой тег код, с ним проще код читается
Смотри либо Replace который все сам сделает топорно, либо регулярки но их надо учить и искать. Либо пройдись по алгоритму.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »