Hallo,
ich hab vor kurzem mit delphi6 angefangen und wollte nun mal ein kleines Quiz programmiern.
Dabei stieß ich schnell auf das Problem wie dies anzufangen sei. Konkret, soll man in ein Feld die Antwort auf eine Frage eingeben können (ein Wort reicht) und der Computer soll nun überprüfen, ob dies das richtige Wort war.
Vielen Dank im Voraus für Deine Hilfe!!! geoli
Borlander 
geoli „Hilfe bei Programmieren mit Delphi 6“
{
Dabei stieß ich schnell auf das Problem wie dies anzufangen sei.
----------------------------------------------------------------
bor: Hast Du Dir schon Gedanken darüber gemacht, wie die Fragen
und Antworten gespeichert werden sollen?
z.B. in einer INI-Datei (max. 32KB)
}
{
Konkret, soll man in ein Feld die Antwort auf eine Frage eingeben
können (ein Wort reicht) und der Computer soll nun überprüfen, ob
dies das richtige Wort war.
----------------------------------------------------------------
bor: Siehe folgende Ereignisprocedure...
Die Procedure wird beim Klick auf die Btn_Answer:TButton
ausgeführt und Vergleicht den in Edt_Answer:TEdit
eingegebenen Text mit dem String Loesung. Anschließend wird
Angezeigt ob die Antwort richtig oder falsch ist. Außerdem
sollten z.B. die richtigen Antworten gezählt werden...
}
{ ... }
procedure TForm1.Btn_AnswerClick(Sender: TObject);
{ ... }
begin
{ ... }
if Edt_Answer.Text = Loesung { Loesung ist der Antwort-Sting }
then begin { Zweig "Richtig" }
ShowMessage('Richtig :-)');
{ Antwortzähler incrementieren oder Ähnliches }
end
else begin { Zweig "Falsch" }
ShowMessage('Leider Falsch :-(');
{ Fehlerzähler incrementieren oder Ähnliches }
end;
end;
{ ... }
{
CU Borlander
}
