- 1
- 2
- 3
- 4
function isstring(str1,str2:string):boolean;
begin
result:=(AnsiPos(AnsiLowerCase(str1),AnsiLowerCase(str2))>0)
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+68.6
function isstring(str1,str2:string):boolean;
begin
result:=(AnsiPos(AnsiLowerCase(str1),AnsiLowerCase(str2))>0)
end;
Функция проверяет, содержит ли строка str2 строку str1 не учитывая регистр.
Возвращает true, если содержит, в противном случае возвращает false.
labutinpa 15.09.2009 04:17 # 0
guest 15.09.2009 13:35 # 0
guest 18.10.2009 04:01 # 0
guest 15.09.2009 10:56 # 0
guest 15.09.2009 13:33 # 0
guest 15.09.2009 19:48 # 0
по идее надо заменить на AnsiStrPos
а вот как по быстрому поменять регистр хз
Suor 16.09.2009 09:54 # 0
guest 16.09.2009 13:36 # +5
guest 05.10.2009 15:05 # +4
function AnsiContainsText(const AText, ASubText: string): Boolean;
begin
Result := AnsiPos(AnsiUppercase(ASubText), AnsiUppercase(AText)) > 0;
end;