Texte auf Ähnlichkeit vergleichen

[Daniel B]

Hallo,

Zitat von Stanlay Hanks:

Hallo Daniel. Erstmal Danke für die Hilfe. Ich dachte, dass das Text[] Ding nullbasiert ist.

Nun, eigentlich lässt man Schleifen von 0 to Length() -1, oder 1 to Length() laufen.

Zitat:

Aber leider geht es dehalb auch noch nicht. Zu deiner Anmerkung: Alles geht nicht. Er kompiliert und dann passiert: Nichts. Gar nix: Ich hab die Funktion so aufgerufen:

Delphi-Quellcode:

IF FehlerToleranz(Edit6.Text,Edit7.Text,50) = true THEN
ShowMessage('Akzeptabel');

Aber wahrscheinlich hab ich zuviele Fehler gemacht (Sowhl in der Funktion als auch im Aufruf).

Nun, der Wert müsste dann kleiner 25 sein, der Formel und dem Aufruf sein, die Frage ist, was steht in dem einen und was in dem anderen Edit?!
Kleiner Tip noch, wenn Du schon auf True abfrägst:

Delphi-Quellcode:

IF FehlerToleranz(Edit6.Text, Edit7.Text, 50) THEN
ShowMessage('Akzeptabel');

Reicht auch schon.
Versuch aml folgendes, um sicher zu sein das die Funktion überhaupt funktioniert:
Nimm den Toleranzwert raus, auch aus dem Aufruf, schreib in einem Edit Hans und im anderen Wurst rein, oder sonst was. Und schau einfach ob Du jemals überhaupt ein Ergebniss von der Funktion bekommst, es reicht ja wenn Du es durchDebuggst, siehst eh besser was los ist, anstatt immer auf ne blöde Message zu warten die nie kommt.

Grüsse, Daniel