Edit Eingabe Vergleich / String aus Text File

[sx2008]

Zitat von torro:

Sprich es wird eine Frage angezeigt und die Antwort wird in ein Editfeld eingegeben

Das funktioniert so nicht richtig.
Ein Beispiel:
Auf die Frage "Wer war im Jahr 2009 deutscher Bundeskanzler" könnte man antworten "Angela Merkel" oder auch "Merkel, CDU" oder auch "A. Merkel".
Alle drei Antworten sind richtig aber dein Programm ist unfähig alle Antworten zu erkennen,
weil es keine künstliche Intelligenz hat.
Du müsstest auf ein Multiple-Choice Verfahren umsteigen.

[torro]

Hab ich drin Sind 3 verschiedene fragetypen. Multiple-Choice Fragen sind auch dabei. Die Eingabe Fragen sind eindeutig formuliert um das geschilderte Problem zu umgehen.

[Sir Rufo]

Eindeutig?

"Wieviel Aggregatzustände gibt es?"
- 3
- drei
- Drei
- DREI
- natürlich drei

Sind alle richtig und würden von deinem Programm auch als richtig erkannt (also vom Design her)?

[torro]

in der fragestellung wird angegeben ob ich eine zahl haben will oder nicht. außerdem soll auf die rechtschreibung geachtet werden.
allerdings entfernen wir uns grad etwas von meiner frage.

[Sir Rufo]

Zitat von torro:

in der fragestellung wird angegeben ob ich eine zahl haben will oder nicht. außerdem soll auf die rechtschreibung geachtet werden.
allerdings entfernen wir uns grad etwas von meiner frage.

Wenn du den Quelltext siehst dann klicke mal mit der linken Maustaste auf die Zeilen-Nummer der Zeile wo IF EditEingabe.text=Richtig1 steht. Da sollte jetzt ein roter Punkt erscheinen.

Dann drückst du

Code:

F9

Sobald das Programm genau an diese Stelle kommt hält es dort an und du kannst nachschauen, welchen Wert die einzelnen Variablen haben (hier interessant welchen Inhalt haben die Variablen zum Zeitpunkt der Abfrage)

Mit F8 geht es einen Schritt weiter, mit F9 wird das gesamte Programm wieder fortgesetzt

[Sir Rufo]

Nur mal so als Vorschlag, wie man sich diese doppelten Codezeilen spart

Delphi-Quellcode:

var 
  Richtig1, FrageStr, Schluessel : string;
  Ergebnis : string;
// FrageStr und Schluessel könnt ihr eig ignorieren
...
// Eingabe kommt von aussen

// Verarbeitung

IF EditEingabe.text = Richtig1 then
  Ergebnis := 'Richtig'
else
  Ergebnis := 'Falsch';

// Ausgabe ...

// ... auf dem Formular

Label7.Caption := Ergebnis;

// ... in eine Datei

AssignFile( outfile, EditSchuelername.Text + '.txt' );

// Also entweder

// Reset( outfile );

// oder

Append( outfile );

// beides zusammen macht schon mal gar keinen Sinn!

Writeln( outfile, FrageStr);
Writeln (outfile, Schluessel);
Writeln (outfile, 'Richtig');
Closefile(outfile);

[torro]

Danke für die Idee. Hab das gleich nach dem Muster angepasst. Bin schlicht nich auf die Idee gekommen das Ergebnis auch noch in eine VAR zu schreiben.

[Sir Rufo]

Zitat von torro:

Danke für die Idee. Hab das gleich nach dem Muster angepasst. Bin schlicht nich auf die Idee gekommen das Ergebnis auch noch in eine VAR zu schreiben.

Du bist nicht faul genug, würde mir niemals vorkommen, soviel Text doppelt zu schreiben

[torro]

so hab das mal probiert. in der variablen stehen immer die richtigen werte. egal ob "Westen", "2", oder "3. Oktober"...