Hallo zusammen. Ich hab mir hier eine Funktion geschrieben, die, wenn zwei texte ungefähr gleich sind, true zurückgibt. Aber irgendwo hab ich einen Fehler:
Delphi-Quellcode:
function TSuchenForm.FehlerToleranz(FehlerStr, VergleichStr: String;
Toleranzwert: Integer): Boolean;
var j, fehler: Integer;
begin
For j := 0 to Length(FehlerStr) do begin
IF FehlerStr[j] <> VergleichStr[j] THEN //Hier wird jeder der Zeichen der zwei texte verglichen
fehler := fehler +1;
end;
IF Fehler <= ((Toleranzwert / 100) * Fehler) THEN //Wahrscheinlich hab ich hier einen Fehler gemacht, beim ausrechnen des Prozentsatzes
FehlerToleranz := true;
end;
Danke. Man liest sich. Stanlay 8)