- 1
- 2
- 3
- 4
function isstring(str1,str2:string):boolean;
begin
result:=(AnsiPos(AnsiLowerCase(str1),AnsiLowerCase(str2))>0)
end;-
Pascal / Говнокод #1841
+68.6
Функция проверяет, содержит ли строка str2 строку str1 не учитывая регистр.
Возвращает true, если содержит, в противном случае возвращает false.Запостил:
nikmihej,
14 Сентября 2009
Follow us!
по идее надо заменить на AnsiStrPos
а вот как по быстрому поменять регистр хз
function AnsiContainsText(const AText, ASubText: string): Boolean;
begin
Result := AnsiPos(AnsiUppercase(ASubText), AnsiUppercase(AText)) > 0;
end;