Hi,
folgendes Problem:
Ich bastel zur Zeit an nem Quiz für die Schule und habe als einen von mehreren Fragetypen auch eine Eingabefrage. Sprich es wird eine Frage angezeigt und die Antwort wird in ein Editfeld eingegeben.
Angeschlossen ist daran ist natürlich eine Auswertung der Antwort (sofort nach der Eingabe mit Button Click). Diese funktioniert an und für sich gut. Jetz kommt das Problem:
ist die Antwort eine Zahl, z.B. " Wie viele Aggregatzustände gibt es?" - "3" wird die Antwort immer FALSCH gewertet (hab mir die Auswertung zur Kontrolle auf das Form gelegt).
Die Zahlen durch Wörter esetzen hat leider auch keinen Sinn.
hier mal der Code zur Auswertung:
Delphi-Quellcode:
var Richtig1, FrageStr, Schluessel : string
// FrageStr und Schluessel könnt ihr eig ignorieren
...
IF EditEingabe.text=Richtig1
then
begin
label7.Caption:='richtig';
assignFile (outfile, EditSchuelername.Text + '.txt');
reset (outfile);
append (outfile);
writeln (outfile, FrageStr);
writeln (outfile, Schluessel);
writeln (outfile, 'Richtig');
closefile(outfile);
end
else
begin
label7.caption:='falsch';
assignFile (outfile, EditSchuelername.Text + '.txt');
reset (outfile);
reset (outfile);
append (outfile);
writeln (outfile, FrageStr);
writeln (outfile, Schluessel);
writeln (outfile, 'Falsch');
closefile (outfile);
end;
Wie ihr sehen könnt wird dann das Ergebniss in ein Textfile geschrieben (funktioniert). So, jetz meine Frage/Bitte. Wieso werden keine Zahlen verglichen. Und wie bekomm ich hin das sie es werden? Sind ja letztenendes auch nur Strings. zeichen die wie Zahlen aussehen.
Danke