СРАВНЕНИЕ СТРОК [D6, Win95/98]
Lord Vader © (2002-02-20 09:58:00)
ПОМОГИТЕ!!!! Как сравнить две текстовые строки и выделить все
отличия между ними??????
Функция должна получиться наподобие как в Windows Commander
при Сравнении по содержимому.
Примечание: длины двух строк могут не совпадать.
Fedorenko Igor (2002-02-20 10:13:00) [1]
Такие вещи пиши сам, вот пример сравнения строк, где результат
-
некая величина, определяющая "похожесть" строк:
function CompareStrW( const wStr1 : WideString; const wStr2 :
WideString ) : Integer;
var
i, j : Integer;
iLen1, iLen2 : Integer;
wS1, wS2 : WideString;
iMin, iMinPrev : Integer;
iErrors : Integer;
begin
if wStr1 = wStr2 then
begin
Result := 100;
exit;
end;
iLen1 := Length( wStr1 );
iLen2 := Length( wStr2 );
if iLen1 >= iLen2 then
begin
wS1 := wStr1;
wS2 := wStr2;
end else
begin
wS1 := wStr2;
wS2 := wStr1;
iLen1 := Length( wS1 );
iLen2 := Length( wS2 );
end;
iMinPrev := MaxInt;
iErrors := 0;
for i := 1 to iLen1 do
begin
//if wS1[i] = """ then continue;
iMin := MaxInt;
for j := 1 to iLen2 do
begin
if wS1[i] = wS2[j] then
begin
iMin := min( iMin, abs( i - j ) );
if abs( i - j ) = iMinPrev then
begin
iMin := iMinPrev;
break;
end;
end;
end;
if iMin = 0 then
begin
end
else if iMin = MaxInt then
begin
Inc( iErrors );
end else
begin
if iMin <> iMinPrev then Inc( iErrors );
end;
iMinPrev := iMin;
end;
Result := ( iLen1 - iErrors ) * 100 div iLen1;
end;
Наверх 
ЧАТ |
Орешник |
|
