Texte auf Ähnlichkeit vergleichen

[Daniel B]

Hallo,

hier ist mal ein bisschen Code der Sicherlich funktioniert.
Nimm einfach zwei Edits und ein Button.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  iFor, iFehler: integer;
begin
  iFehler := 0;
  for iFor := 0 to Length(Edit1.Text) do
  begin
    if Edit1.Text[iFor] <> Edit2.Text[iFor] then
      Inc(iFehler);
  end;
  ShowMessage(IntToStr(iFehler));
end;

Das ganze basiert natürlich da drauf, das die Länge der Texte in den Edits, absolut gleich ist, daher Vermute ich die utopische Zahl von oben, das Du im zweiten Edit warscheinlich ein kürzeres Wort hast.

Grüsse, Daniel