Привет всем) На форме есть memo1,в ней куча md5 хешей,и есть edit1,в него я вписую новый md5 хэш,надо проверить ли есть такой хешь в memo1(в мемо больше 100 хешей).
-
@Влад Андреев, Согласно правилам форума, вопросы не должны сводиться к решению либо завершению учебных заданий за учащихся. Пожалуйста, уточните, что вы сделали сами и что не получилось.– ghost rider28 мая 2013 в 12:58
-
Сначала я просто с помощью if memo.Text := 'hash',а строк много ( Просто не пойму как выполнить это– Влад Андреев28 мая 2013 в 13:00
-
4Вот так: if Memo1.Lines.IndexOf(str)<0 then ShowMessage('Нету такого хэша') else ShowMessage('Уже есть такой');– Yura Ivanov28 мая 2013 в 13:10
-
@Yura Ivanov, краткость сестра таланта. ---- А компилятор одинаково сформирует такой код "if Memo1.Lines.IndexOf(str)<0 then" и пробегание всех строк в цикле?– teanЫЧ28 мая 2013 в 13:11
-
одинаково, конечно. IndexOf из TStrings идет. Для другого поиска, где нужно в больших объемах искать, другими вариантами пользуются hashedstringlist и т.д. memo - это я так понял на коленке и для теста тут используется...– Yura Ivanov28 мая 2013 в 14:18
1 ответ
вы неправильно делаете. memo.Text берет ВЕСЬ текст, который хранится в мемо, поэтому вам надо делать не жесткое сравнение с вашим хэшем, а поиск в строке. Для этого гуглим функции POS или AnsiPos.
Или второй способ: пролистываете каждую строку (memo.lines) и устраиваете сравнение или опять же поиск в строке.
код не привожу, ибо согласно правилам форума, надо что-то сделать самому ;)
-
-
-
Не получилось( Все время ShowMessage('Нету такого хэша') выводило 28 мая 2013 в 13:49
-
-
if mmo1.Lines.IndexOf(md5hash)>0 then ShowMessage('нет') else ShowMessage('да') 28 мая 2013 в 13:54