- 1
- 2
- 3
- 4
function isstring(str1,str2:string):boolean;
begin
result:=(AnsiPos(AnsiLowerCase(str1),AnsiLowerCase(str2))>0)
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 1
+68.6
function isstring(str1,str2:string):boolean;
begin
result:=(AnsiPos(AnsiLowerCase(str1),AnsiLowerCase(str2))>0)
end;
Функция проверяет, содержит ли строка str2 строку str1 не учитывая регистр.
Возвращает true, если содержит, в противном случае возвращает false.