Ich möchte in Delphi eine Funktion erstellen, die unterschiedliche Ebenen von zwei Zeichenfolgen berechnet. Wenn zwei Zeichenfolgen gleich sind (Groß- / Kleinschreibung wird ignoriert), sollte 0 zurückgegeben werden. Wenn sie jedoch nicht gleich sind, sollte die Anzahl der verschiedenen Zeichen zurückgegeben werden. Diese Funktion kann sehr nützlich sein, um die Rechtschreibung zu überprüfen.

<code>function GetDiffStringLevel(S1,S2:string):Integer;
begin
  if SameText(S1,S2) then Exit(0);
  // i want get different chars count
end
</code>

Beispielcode:

<code>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
</code>