0

Привет всем) На форме есть memo1,в ней куча md5 хешей,и есть edit1,в него я вписую новый md5 хэш,надо проверить ли есть такой хешь в memo1(в мемо больше 100 хешей).

6
  • @Влад Андреев, Согласно правилам форума, вопросы не должны сводиться к решению либо завершению учебных заданий за учащихся. Пожалуйста, уточните, что вы сделали сами и что не получилось. 28 мая 2013 в 12:58
  • Сначала я просто с помощью if memo.Text := 'hash',а строк много ( Просто не пойму как выполнить это 28 мая 2013 в 13:00
  • 4
    Вот так: if Memo1.Lines.IndexOf(str)<0 then ShowMessage('Нету такого хэша') else ShowMessage('Уже есть такой'); 28 мая 2013 в 13:10
  • @Yura Ivanov, краткость сестра таланта. ---- А компилятор одинаково сформирует такой код "if Memo1.Lines.IndexOf(str)<0 then" и пробегание всех строк в цикле?
    – teanЫЧ
    28 мая 2013 в 13:11
  • одинаково, конечно. IndexOf из TStrings идет. Для другого поиска, где нужно в больших объемах искать, другими вариантами пользуются hashedstringlist и т.д. memo - это я так понял на коленке и для теста тут используется... 28 мая 2013 в 14:18

1 ответ 1

4

вы неправильно делаете. memo.Text берет ВЕСЬ текст, который хранится в мемо, поэтому вам надо делать не жесткое сравнение с вашим хэшем, а поиск в строке. Для этого гуглим функции POS или AnsiPos.

Или второй способ: пролистываете каждую строку (memo.lines) и устраиваете сравнение или опять же поиск в строке.


код не привожу, ибо согласно правилам форума, надо что-то сделать самому ;)

7
  • Сейчас,попробую ) 28 мая 2013 в 13:03
  • @Влад Андреев в цикле сравниваешь каждую строку с заданным хэшем
    – IVsevolod
    28 мая 2013 в 13:05
  • Не получилось( Все время ShowMessage('Нету такого хэша') выводило 28 мая 2013 в 13:49
  • @Влад Андреев, покажите ваш код
    – teanЫЧ
    28 мая 2013 в 13:53
  • if mmo1.Lines.IndexOf(md5hash)>0 then ShowMessage('нет') else ShowMessage('да') 28 мая 2013 в 13:54

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.