Скачать: CL | DM;

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

← →
Сергей   (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]

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

---

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

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

---

← →
Anatoly Podgoretsky ©   (2010-04-23 07:23) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.071 c