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 that you have read and understand our privacy policy and code of conduct.

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