Форум: "Начинающим";
Текущий архив: 2009.02.15;
Скачать: [xml.tar.bz2];

Вниз

StringReplace   Найти похожие ветки 

← →
Цукор5   (2009-01-05 18:16) [0]

не пищит

S:=Memo3.Lines.Text;
S:=StringReplace(S,Chr($0D)+Chr($0A),Chr($0),[rfReplaceAll]);
if Pos(Chr($0D),S) >0 then Windows.Beep(800,200);


пищит

S:="test"+Chr($)+Memo3.Lines.Text;
S:=StringReplace(S,Chr($0D)+Chr($0A),Chr($0),[rfReplaceAll]);
if Pos(Chr($0D),S) >0 then Windows.Beep(800,200);


Но почему ???

---

← →
Цукор5   (2009-01-05 18:17) [1]

Chr($) = Chr($0)

---

← →
Сергей М. ©   (2009-01-05 18:20) [2]

потому что [1]

---

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

Форум: "Начинающим";
Текущий архив: 2009.02.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.03 c