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

← →
Сергей (2010-04-22 22:56) [0]

Подскажите решить проблему (написал код на делфи)
Проблема такова (уберается всё)

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.

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

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

← →
test © (2010-04-22 23:02) [1]

Есть такой тег код, с ним проще код читается
Смотри либо Replace который все сам сделает топорно, либо регулярки но их надо учить и искать. Либо пройдись по алгоритму.

← →
Jeer © (2010-04-22 23:09) [2]

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

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

← →
Petr V. Abramov © (2010-04-22 23:10) [3]

Удалено модератором

> Jeer (22.04.2010 23:09:02) [2]

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

Замена и уберине лишнего (Делфи) Найти похожие ветки