| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

StringReplace [D7, XP]

Цукор5 ©   (2009-01-05 18:16:00) 

не пищит

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);


Но почему ???

---

Сергей М.   (2009-01-05 18:20:00) [1]

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

---

Цукор5   (2009-01-05 18:17:00) [2]

Chr($) = Chr($0)

---

Наверх