Sammenligne to string for forskelle

Sådan !?

function CompareStrings(str1, str2: String):Integer;
var
  I,DifCount: Integer;
begin
  DifCount := 0;
  For I := 0 To Length(str1) Do
    If str1[I] <> str2[I] Then
      Inc(DifCount);

  Result := DifCount;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Showmessage('Antal forskellige: ' + IntToStr(CompareStrings(Edit1.Text,Edit2.Text)));
end;


Snowball

noget a la:

ens := 0;
ikkeens := 0;
for i:= 1 to length(s1) do begin
  if s1[i] = s2[i] then begin
      ens := ens + 1;
  end else begin
      ikkeens := ikkeens + 1;
  end;
end;