Форум: "Начинающим";
Текущий архив: 2008.11.09;
Скачать: [xml.tar.bz2];
ВнизКак экранировать одинарную кавычку? Найти похожие ветки
← →
<Evil> (2008-09-29 11:26) [0]Есть функция замены подстроки в строке:
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, "", """");
← →
Труп Васи Доброго © (2008-09-29 11:35) [1]поставь str1="""", а не "", так как "", это пустая строка.
← →
<Evil> (2008-09-29 11:39) [2]блин ручник я!!!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.11.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c