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
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
