Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
Wieso auf 0??? Dann hab ich die wirkliche Fehleranzahl nicht mehr.
Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
Hallo Daniel. Danke vielmals. Hab das gerade ausprobiert. Geht super. Hab aber vor zwei Sekunden noch eine Funktion entdeckt, die den Prozentsatz der Ähnlichkeit liefert:
hier
Danke nochmal für deine Hilfe. Man liest sich. Stanlay. :D
Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
Wie gesagt. ich hab aus obiger funkion den Toleranzwert rausgenommen. Hab also nix mehr zum teilen.
Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
Ich hab aus obiger Funktion, wie du gesagt hast, den Tolreanzwert rausgenommen und, zur Kontrolle, festgelegt, dass am Ende der Funktion die Fehleranzahl in die Titelleiste geschrieben wird. Und da steht dann
4438752 :shock: Und das obwohl im einen Edit Edit6 und im anderen Edit7 steht. also genau ein Zeichen unterschied. Wie kann das gehen???
Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
Das mit dem Probieren ist wohl wahr. Danke erst mal, für deine Schnelle Hilfe. Ich muss das jetzt erst mal "verarbeiten". Wenns nicht geht schreib ich halt einfach noch mal was nicht geht.
Danke. Stanlay :D
Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
Hallo Daniel. Erstmal Danke für die Hilfe. Ich dachte, dass das Text Ding nullbasiert ist. 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:
IF FehlerToleranz(Edit6.Text,Edit7.Text,50) = true THEN
ShowMessage('Akzeptabel');
Aber wahrscheinlich hab ich zuviele Fehler...
Forum: Object-Pascal / Delphi-Language
Delphi
by Stanlay Hanks,
6. Mai 2003
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:
function TSuchenForm.FehlerToleranz(FehlerStr, VergleichStr: String;
Toleranzwert: Integer): Boolean;
var j, fehler: Integer;
begin
For j := 0 to Length(FehlerStr) do begin
IF FehlerStr <> VergleichStr THEN //Hier wird jeder der...