Вывести процент идентичности текста двух memo

[deathbloody]

Всем привет! Допустим, печатаю текст в первый Memo, нажимаю на кнопку, мой текст сверяется со вторым Memo (в который изначально, записан похожий текст, что и в первом Memo). Так вот, если во втором Memo, есть слова похожие на слова из первого Memo, то вывести в Label, процент совпадения. Что можно сделать? http://www.seobuilding.ru/similar-text-checker.php Вот пример того, что хочется осуществить

[Человек_Борща]

Банально использовать любой онлаин-сервис для определения плагиата.

Можете дляразнообразия себя помучать, написать такой анализатор самостоятельно.

[Utkin]

По технической части - разбираете оба мемо на слова (можно в отдельных массивах) и ведете статистику совпадений одних слов в других. По логической части - я не уверен, что сам алгоритм должен работать именно так как Вы его описали. Очевидно же чем больше текст, тем больше вероятность того, что будет процент совпадения больше. Вероятно там есть дополнительные проверки. Ну, например, не учитываются служебные слова, образующие предложения, и слабо влияющие на смысл. Например, союзы, слова-паразиты, всякие там на подь ведь далее прочее в ну и тому подобное. Также я бы просто не учитывал статистику для слов состоящих менее чем 4-5 букв. Ключевые слова, придающие смысл в длинных текстах как правило длинней чем 3 буквы (исключением будут аббревиатуры, можно считать, что это слова из больших букв). Если не учитывать такие факторы, то есть риск получить ложные результаты, если к примеру статьи будут длинные (более 10-15 страниц) и их пишет один автор (но на разные темы).

[deathbloody]

Сообщение от Человек_Борща

Банально использовать любой онлаин-сервис для определения плагиата.

Браво. В делфи мне нужно это осуществить. Делаю электронный учебник, текст который вбивается в Memo1 это код html, во втором Memo, его оригинал. Нужно их сверить и вывести процент совпадения! Как это сделать?

[Человек_Борща]

Делаю электронный учебник,

О таких вещах сразу писать надо. Телепатов здесь нет, чтоб понимать учебное это или просто скучно.

Как это сделать?

Развернутый ответ дан в посте №3.

Если у вас HTML, то вам надо дополнительно одноо из двух: вырезать полезное из html, игнорировать HTML в процессе разбора текста.

[deathbloody]

бред в 3 посте. я вообще-то тоже не телепат, и на словах мало. что понятно. пример кода был бы кстати

[Пепел Феникса]

Сообщение от deathbloody

бред в 3 посте. я вообще-то тоже не телепат, и на словах мало. что понятно. пример кода был бы кстати

а может сразу готовый код?

в третьем посту написан не бред, а алгоритм вполне.

[Utkin]

бред в 3 посте. я вообще-то тоже не телепат, и на словах мало. что понятно. пример кода был бы кстати

Формализируйте. Для этого нужно имеющуюся задачу разбить на более мелкие, а их соответственно на еще более мелкие, до тех пор пока не получите простенькие задачи легко переносимые на нужный язык программирования.
Ну например, как Вы бы представили процедуру переноса слов из Мемо в динамический массив?

[deathbloody]

понятия не имею

[BDA]

procedure TForm1.ButtonClick(Sender: TObject);
var
  a, b: integer;
begin
  a := length(Memo1.Text);
  b := length(Memo2.Text);
  showmessage(floattostr(random(10001) / 100) + '%');
end;