Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
14-26243
LazorenkoX
2002-04-01 22:39
2002.05.09
Artificial Intelligence


1-26126
andrey_pst
2002-04-24 06:47
2002.05.09
OpenDialog для выбора каталогов


1-26129
Basilio
2002-04-23 16:59
2002.05.09
try..except не работает


4-26313
Анонимщик
2002-03-05 10:43
2002.05.09
Чувствительность курсора мыши к перемещениям


1-26193
Freek
2002-04-25 15:46
2002.05.09
Как найти файл в реестре?