Я хочу создать функцию в Delphi, которая вычисляет разные уровни двух строк. Если две строки равны (без учета регистра), то он должен вернуть 0, но если они не равны, он должен вернуть количество разных символов. Эта функция может быть очень полезна для проверки орфографии.
function GetDiffStringLevel(S1,S2:string):Integer;
begin
if SameText(S1,S2) then Exit(0);
// i want get different chars count
end
примеры кода:
Diff:=GetDiffStringLevel('Hello','Hello');// Diff:=0;
Diff:=GetDiffStringLevel('Hello','2Hello');// Diff:=1;
Diff:=GetDiffStringLevel('Hello','H2ello');// Diff:=1;
Diff:=GetDiffStringLevel('Hello','Hello W');// Diff:=2;
Diff:=GetDiffStringLevel('Hello','World');// Diff:=6; or 5