Подскажите пожалуйста, некоторые части StringList содержат ", и даже двое. Мне нужно удалить все кавычки, чтобы они не попали в переменную s. Я понимаю, что вместо MyList2.Strings[i] нужно вставить переменную типа String. Но что-то не могу сообразить, как это организовать.
- Код: Выделить всё
with MyList2.Create do
try
MyList2.StrictDelimiter := true;
//пробую удалить кавычки
UTF8Delete(MyList2.Strings[i], UTF8Pos('"',MyList2.Strings[i]),Length(MyList2.Strings[i]));
//
s := ''; // формируется sql запрос в БД
for i := 0 to MyList2.Count - 1 do if Trim(MyList2.Strings[i]) <> '' then
s := s + Format('%s(name LIKE "%s")', [IfThen(i = 0, '', ' OR '), MyList2.Strings[i]]);
s := 'SELECT * FROM program WHERE ' + s + ' ORDER BY id';
finally
Free;
end;
Заранее благодарен за любую помощь!