Zwei Texte miteinander vergleichen

[Oliver Schipper]

Ich will zwei Texte miteinader vergleichen, um dann den die Prozentuale übereinstimmung fest zu stellen! aber kein plan wie ich das machen soll!
Mfg Olli

[Bernhard Geyer]

Hier ein Vorschlag:

<pre>
if Length(String1) > Length(String2)
len := Length(String1)
else
len := Length(String2);

iSame := 0;
iDifferent := 0;

for i := 1 to len do
begin
if String1[i] = String2[i] then
Inc(iSame)
else
Inc(iDifferent);
end;

Inc(iDifferent, Abs(Length(String1) - Length(String2));

result := iSame/iDifferent;
</pre>

Den Rest wirst Du dir selbst dazustricken können