Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Frage-Antwort Programm (https://www.delphipraxis.net/81750-frage-antwort-programm.html)

cobralord 3. Dez 2006 09:45


Frage-Antwort Programm
 
Hallo,
ich möchte ein Programm schreiben, dass auf meine, in den Edit-Feldern eingegebenen Fragen antwortet. Ist das überhaupt möglich? Und wenn ja, wie kann das Programm erkennen, welche Frage man eingegeben hat

Bsp.
Frage: Wie ist das Wetter heute?
Antwort: Es ist sonnig.

bzw. kann es einzelne Wörter erkennen?

Bsp.
Frage: ..wie...wetter...heute...
(Für den Fall das man sich verschreibt oder die Frage etwas anders ist.)

Wie sieht der Code dafür aus?

Vielen Dank schon mal im Vorraus.

Florian H 3. Dez 2006 10:25

Re: Frage-Antwort Programm
 
Für das Verschreiben solltest du dir mal die Levenshtein-Distanz anschauen bzw. dir die passende Delphi-Umsetzung dazu suchen.
Damit kann man Benutzereingaben mit einer gewissen Tolleranz dann erkennen, was meistens recht gut funktioniert (für einzelne Wörter).

Und dann könntest du im simpelsten Fall gucken, ob die gesuchten Worte ("Wie", "Wetter", "heute") in der Benutzereingabe (ggf. sogar in der richtigen Reihenfolge) vorkommen.

So in der Art von
Delphi-Quellcode:
if (pos('Wie', eingabe) < pos('Wetter', eingabe)) and ((pos('heute', eingabe) > pos('Wetter', eingabe)) then
 // antwort
Kann man natürlich entsprechend schöner / optimierter / lesbarer etc machen, aber das Grundprinzip sollte klar sein.
Die Frage "Das Wetter ist heute wie?" erkennt er natürlich nicht, wenn du die Reihenfolge festlegst.

inherited 3. Dez 2006 10:27

Re: Frage-Antwort Programm
 
STOP: Doppelthread: Weiter hier http://www.delphipraxis.net/internal...ct.php?t=97688

SirThornberry 3. Dez 2006 10:29

Re: Frage-Antwort Programm
 
aus dem Grund den Inherited bereits erwähnte mache ich hier auch zu.

*** LOCKED ***


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:27 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz