Искать похожие слова

← →
Евгений Т. (2008-02-21 14:08) [0]

Всем привет! Вот пишу программу которая бегает по записям и сравнивает Строку1 и Строку2. Теперь появилась необходимость искать похожие слова. Пример: Строка1 = "машина", Строка2 = "красная машина"
В данном случаи результат True. Мастера, если у кого уже есть такая функция поиска будьте любезны, выложить. Я бы мог помучиться и попробувать сделать сам, но уже скоро сдавать да и велосипед изобритать ... зр. Спасибо.

← →
Palladin © (2008-02-21 14:11) [1]

конкретное тз неозвучено... да и Строка2 это два слова, а не одно...

← →
Плохиш © (2008-02-21 14:16) [2]

> Евгений Т. (21.02.08 14:08)

У меня есть, Pos - называется.

← →
Евгений Т. (2008-02-21 14:19) [3]

> Плохиш ©

Да с "Pos" я знаком, но я обратился потому что время совсем поджимает. Если у кого уже есть то плз.

← →
Servy (2008-02-21 14:20) [4]

> Строка1 = "машина", Строка2 = "красная машина"
> В данном случаи результат True.

Первый вариант функции, удовлетворяющей приведенному условию:

function CompareStr1(const S1, S2: string): Boolean; begin Result := (S1 = "машина") and (S2 = "красная машина"); end;

Включая телепатер, можно предположить, что критерий похожести такой: если одна из строк полностью входит в другую, то строки считаются похожими.

function CompareStr2(const S1, S2: string): Boolean; begin Result := (Pos(S1, S2) > 0) or (Pos(S2, S1) > 0); end;

Еще, как критерий похожести можно использовать расстояние Левенштейна, гугль поможет. Можно еще вагон решений придумать, сказать, что нужно Евгению не представляется возможным за недостатком информации.

← →
Плохиш © (2008-02-21 14:20) [5]

Сумма не озвучена

← →
Евгений Т. (2008-02-21 14:22) [6]

Сумма чего ?

← →
Amoeba © (2008-02-21 14:27) [7]

> Евгений Т. (21.02.08 14:22) [6]
>
> Сумма чего ?
>

Догадайся с трех раз.

← →
Игорь Шевченко © (2008-02-21 14:28) [8]

> Я бы мог помучиться и попробувать сделать сам, но уже скоро
> сдавать

а нам какое дело ?

← →
Riply © (2008-02-21 14:35) [9]

> [0] Евгений Т. (21.02.08 14:08)
> Я бы мог помучиться и попробувать сделать сам,

Может уступить место тому, для кого учеба не является мучением ?

← →
Евгений Т. (2008-02-21 14:40) [10]

Я же не прошу написать вас с нуля такую функцию. Я попросилил если есть у кого: цитирую свои слова: "Мастера, если у кого уже есть такая функция поиска будьте любезны"

Если нету, зачем флудить ?

> Плохиш ©

У тебя все продается?

← →
Евгений Т. (2008-02-21 14:43) [12]

> А вы я так понимаю его секретарша?

Я его пресс-секретарь.

Искать похожие слова Найти похожие ветки