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
}
geoli Nachtrag zu: „Hilfe bei Programmieren mit Delphi 6“
Hab´s versuch hat jedoch nicht ganz geklappt. Hier meine Unit1 vielleicht kannst du mir ja sagen worans liegt:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Kennedy: Word;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = Kennedy
then begin
ShowMessage('Richtig')
end
else begin
ShowMessage('Leider falsch')
end;
end;
end.
Vielleicht kannst du mir ja noch sagen, wie man das mit dem Antwortspeichern in einer INI-Datei macht.
Vielen Dank für die bisherige Hilfe, wäre schon wenn du oder ein anderer noch weiterhelfen könntest:
geoli
Andreas42 geoli „Hab s versuch hat jedoch nicht ganz geklappt. Hier meine Unit1 vielleicht kannst...“
Hi!
Ich glaube, da geht nochwas schief. ;-)
Was willst du eigentlich machen? Moment, ich versetzte mich mal hinein - Pause - OK, ich glaub ich hab's:
Du möchtest abfragen, ob im Eingabe Feld Edit1 der Text "Kennedy" eingeben wurde, oder?
Falls nicht, dann entschuldige ich mich für die folgende Erklärung..
Du hast leider noch Problem mit den Datentypen, da müssen wir ganz tief einsteigen:
In Programmiersprachen sind Texte eigentlich fast immer eine Kette von Einzelbuchtaben. Jeder Buchstabe wird in einem einzelnen Byte gespeichert.
In Pascal (Delphi verwendet Pascal als Sprache) nennt sich dieser Datentyp STRING (= Kette(Band/Schnur).
Eine Zeichnekette wird in pascal von einfachen Hochkommas "eingeklammert".
Wenn du eine Zeichenkette angeben willst, dann musst du das so machen:
'Kennedy'
Dann gibt es noch Variablen. Eine Vriable, die Strings speichern kann, wird so angelegt:
SpeicherFuerStrings : string;
Neben Strings kann man auch Zahlenwerte speichern. Ganzzahlige Werte werden oft als Integer, Long oder Word gespeichert. Die drei Typen unterscheiden sich in der grösse der Werte, die sie aufnehmen können und ob die Werte negativ werden können.
WORD ist also ein Datentyp für Zahlen (nicht für Text...)
Deine Button1Click-Prozedur müsste also so aussehen, wenn sie auf die Zeichenkette "Kenndy" reagieren soll:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'Kennedy'
then begin
ShowMessage('Richtig')
end
else begin
ShowMessage('Leider falsch')
end;
Die Definition der Variable Kennedy (Kennedy: Word;) stört dann nicht, kann aber gelöscht werden.
Ich hoffe, das hilft dir weiter.
Bis denn
Andreas
geoli Nachtrag zu: „Hilfe bei Programmieren mit Delphi 6“
Vielen Dank an Borlander und Andreas42 für die bisherige Hilfe.
Hätte nun nur noch die Frage wie man für ein erstelltes Formular Fragen und Antworten abspeichern kann d.h. dass man nur ein Formular benötigt mit einem Label für die Fragen und ein Edit-Fenster wo man die Antworten eingeben kann. Borlander erwähnte eine INI-Datei. Hätte jemand genauere Infos?
Schon mal Vielen Dank für Eure Mühe!!! geoli
Borlander geoli „Hilfe bei Programmieren mit Delphi 6“
geoli Nachtrag zu: „Hilfe bei Programmieren mit Delphi 6“
Hilfe !!! Langsam verliere ich die Übersicht.
Habs mit der Delphi-Hilfe versucht, diese ist jedoch in englisch und ziemlich allgemein.
Hab nun ein neues Formular erstellt in der ich das Label für die Frage freigelassen habe und dazu eine INI-Datei wo ich mein Beispiel eingetragen habe. Unklar ist mir nun wie ich es anstelle dass das programm auf die INI-Datei zugreift und wie es wissen soll dass vor dem (=) die Frage steht die ins Label soll und dahinter die Antwort. In der delphi-hilfe stand was von WriteString und ReadString aber wie dies genau anzuwenden sei bleibt mir noch Dunkel. Hoffe wieder auf Deine/Eure Hilfe. Vielen Dank schon mal. geoli
Borlander geoli „Hilfe !!! Langsam verliere ich die Übersicht. Habs mit der Delphi-Hilfe...“
QuizData := TIniFile.Create('quiz.dat'); { bor: Ich hab das Object einfach mal "QuizData" genannt und als Dateinamen "quiz.dat" verwendet - der Pfad muss nicht mit angegeben werden wenn sich die Datei im selben Verzeichnis wie das Programm oder im Windowsverzeichnis befindet - die Endung muss auch nicht umbedingt INI sein, ich habe ganz neutral .dat gewählt }QuestionList := TStringList.Create;geoli Nachtrag zu: „Hilfe bei Programmieren mit Delphi 6“
Ich dachte nicht das so ein kleines Programm so kompliziert sein kann. Jedenfalls habe ich mein möglichstes versucht um deine Ratschläge umzusetzen. Ich hab es nochmal bei der Hilfe versucht kann jedoch keine Properties, Methods oder Events finden. Hab dir mal wieder meinen Quell-Text in dem sicherlich vieles schief läuft hinterlassen:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
TIniFile;
TStringList;
implementation
{$R *.dfm}
begin
OnCreate Form1;
QuizData := TIniFile.Create('quiz.dat');
Antwort := QuizData.ReadString('[quiz]');
QuestionList := TStringList.Create;
ReadSection('quiz');
ReadString('QuestionList');
QuestionList[Nummer];
end
procedure TForm1.Button1Click(Sender: TObject);
begin
QuizData.Read('quiz')
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
QuizData.free;
QuestionList.free;
Close;
end;
end.
Einerseits glaube ich, dass hier und da noch einige Buchstaben fehlen, und andererseits, dass einige der Befehle an der falschen Stelle stehen. Warte wie immer auf deinen Rat. Vielen Dank für deine Mühe !!! geoli
