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

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

Как экранировать одинарную кавычку? [D2005, XP]

<Evil> ©   (2008-09-29 11:26:00) 

Есть функция замены подстроки в строке:

function StrReplace(const Str, Str1, Str2: string): string;
// str - исходная строка
// str1 - подстрока, подлежащая замене
// str2 - заменяющая строка
var
 P, L: Integer;
begin
 Result := str;
 L := Length(Str1);
 repeat
   P := Pos(Str1, Result);
   if P > 0 then
   begin
     Delete(Result, P, L);
     Insert(Str2, Result, P);
   end;
 until P = 0;
end;

Но она не находит кавычки в

tmpstr = 'B9 TRIBECA  LIMITED 5 SEATS '06';

StrReplace(tmpstr, '', '''');

---

<Evil>   (2008-09-29 11:39:00) [1]

блин ручник я!!!

---

Труп Васи Доброго   (2008-09-29 11:35:00) [2]

поставь str1='''', а не '', так как '', это пустая строка.

---

Наверх