Текущий архив: 2002.05.09;
Скачать: CL | DM;

Вниз

Сравнение двух строк   Найти похожие ветки 

← →
perov ©   (2002-04-25 09:39) [0]

Как можно сравнить две строки с определенным процентом совпадения?

---

← →
Андрей Сенченко ©   (2002-04-25 09:45) [1]

Можно. pos() - самый тупой и примитивный способ. В Статьях есть материал по анализу строк на совпадение.

---

← →
MBo ©   (2002-04-25 12:24) [2]

вопрос можно понимать по разному. для случая строк одинаковой длины, когда нужно узнать количество несовп. символов, проще всего сделать xor.

---

← →
Robor   (2002-04-25 17:15) [3]

function vers(st2,st1:string):byte;
var len1,len2:integer;
i,k,j:integer;
p1:integer;
st3:string;
label lp3;
begin
p1:=0;
len1:=Length(st1);
len2:=Length(st2);
if Len2=0 then goto lp3;
if len1<len2 then goto lp3;
{или begin
st3:=st1;st1:=st2;st2:=st3;
j:=len1;len1:=len2;len2:=j
end;}
for i:=0 to len1-len2 do
begin
j:=0;
for k:=1 to len2 do if st1[k+i]=st2[k] then inc(j);
if j>p1 then
begin
p1:=j;
StSe:=Copy(st1,i+1,len2); /StSe-глобальная
end;
end;
p1:=(p1*100) div len2;
lp3:
vers:=p1
end;

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.008 c