http://pastebin.com/vsthkWqb da hab ich es nochmal lesbar hochgeladen

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus;

type TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; NewGame1: TMenuItem; Open1: TMenuItem; Exit1: TMenuItem; Help1: TMenuItem; About1: TMenuItem; Label1: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; OpenDialog1: TOpenDialog; procedure Exit1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure NewGame1Click(Sender: TObject); procedure Open1Click(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end;

var Form1: TForm1; sPath, sAnswer : string; iFrage : integer; slList : TStringList;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject); begin Close(); end;

procedure LoadNext(); begin //first check if (iFrage >= 15) then begin showmessage('You won'); Form1.Button1.Enabled := false; Form1.Button2.Enabled := false; Form1.Button3.Enabled := false; Form1.Button4.Enabled := false; end else begin iFrage := iFrage + 1; Form1.Button1.Enabled := true; Form1.Button2.Enabled := true; Form1.Button3.Enabled := true; Form1.Button4.Enabled := true; //now load Form1.Label1.Caption := slList[((iFrage - 1) * 6)]; Form1.Button1.Caption := slList[((iFrage - 1) * 6) + 1]; Form1.Button2.Caption := slList[((iFrage - 1) * 6) + 2]; Form1.Button3.Caption := slList[((iFrage - 1) * 6) + 3]; Form1.Button4.Caption := slList[((iFrage - 1) * 6) + 4]; sAnswer := slList[((iFrage - 1) * 6) + 5]; end; end;

procedure checkAnswer(text: string); begin if (text = sAnswer) then begin LoadNext(); end else begin Form1.Button1.Enabled := false; Form1.Button2.Enabled := false; Form1.Button3.Enabled := false; Form1.Button4.Enabled := false; //,ark the right one if (Form1.Button1.Caption = sAnswer) then begin Form1.Button1.Caption := Form1.Button1.Caption + ' (richtig)'; end else if (Form1.Button2.Caption = sAnswer) then begin Form1.Button2.Caption := Form1.Button2.Caption + ' (richtig)'; end else if (Form1.Button3.Caption = sAnswer) then begin Form1.Button3.Caption := Form1.Button3.Caption + ' (richtig)'; end else if (Form1.Button4.Caption = s_Answer) then begin Form1.Button4.Caption := Form1.Button4.Caption + ' (richtig)'; end; end; end;

//the button code

procedure TForm1.Button1Click(Sender: TObject); begin checkAnswer(Form1.Button1.Caption); end;

procedure TForm1.Button2Click(Sender: TObject); begin checkAnswer(Form1.Button2.Caption); end;

procedure TForm1.Button3Click(Sender: TObject); begin checkAnswer(Form1.Button3.Caption); end;

procedure TForm1.Button4Click(Sender: TObject); begin checkAnswer(Form1.Button4.Caption); end;

//the new game code

procedure TForm1.FormCreate(Sender: TObject); begin //load default sPath := 'default.txt'; iFrage := 0; slList := TStringList.Create; slList.LoadFromFile(s_Path); LoadNext(); end;

procedure TForm1.NewGame1Click(Sender: TObject); begin iFrage := 0; slList := TStringList.Create; slList.LoadFromFile(sPath); LoadNext(); end;

procedure TForm1.Open1Click(Sender: TObject); begin if (Form1.OpenDialog1.Execute() = true) then begin //load new file sPath := Form1.OpenDialog1.FileName; iFrage := 0; slList := TStringList.Create; slList.LoadFromFile(s_Path); LoadNext(); end; end;

end.

Das hab ich bis jetzt Kann mir das jemand verbessern unit Unit2;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type TForm1 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Panel1: TPanel;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject); private{ Private-Deklarationen } public{ Public-Deklarationen } end;

var Form1: TForm1;

implementation

{$R *.dfm} var Frage, Antwort1, Antwort2, Antwort3, Antwort4: array[1..19] of string;Richtig: array[1..10] of integer;Runde:integer;

procedure TForm1.Button1Click(Sender: TObject); begin if Richtig[runde]=1 then begin showmessage('richtig!'); runde:=runde+1; Panel1.Caption:=Frage[Runde]; button1.Caption:=Antwort1[runde]; button2.Caption:=Antwort2[runde]; button3.Caption:=Antwort3[runde]; button4.Caption:=Antwort4[runde]; end else begin showmessage('falsch!'); close;

end; end;

procedure TForm1.Button2Click(Sender: TObject); beginif Richtig[runde]=1 then begin showmessage('richtig!'); runde:=runde+1; Panel1.Caption:=Frage[Runde]; button1.Caption:=Antwort1[runde]; button2.Caption:=Antwort2[runde]; button3.Caption:=Antwort3[runde]; button4.Caption:=Antwort4[runde]; runde:=runde+1; button1.Caption:=Antwort1[runde]; end else begin showmessage('falsch!'); close; end; end;

procedure TForm1.Button3Click(Sender: TObject); begin if Richtig[runde]=1 then begin showmessage('richtig!'); runde:=runde+1; Panel1.Caption:=Frage[Runde]; button1.Caption:=Antwort1[runde]; button2.Caption:=Antwort2[runde]; button3.Caption:=Antwort3[runde]; button4.Caption:=Antwort4[runde]; runde:=runde+1; button1.Caption:=Antwort1[runde]; end else begin showmessage('falsch!'); close; end; end;

procedure TForm1.Button4Click(Sender: TObject); begin if Richtig[runde]=4 then begin showmessage('richtig!'); runde:=runde+1; Panel1.Caption:=Frage[Runde]; button1.Caption:=Antwort1[runde]; button2.Caption:=Antwort2[runde]; button3.Caption:=Antwort3[runde]; button4.Caption:=Antwort4[runde];

end; end;

procedure TForm1.FormCreate(Sender: TObject); begin Frage[1]:='wie heißt david hesselhoff mit vornamen?'; Antwort1[1]:='hesselhoff'; Antwort2[1]:='Arthur'; Antwort3 [1]:='Georg'; Antwort4 [1]:='David'; Richtig[1]:=4;

Frage[2]:='Wo findet die WM in diesem Jahr statt?'; Antwort1[2]:='Afrika'; Antwort2[2]:='Asien'; Antwort3[2]:='Deutschland'; Antwort4[2]:='Amerika'; Richtig[2]:=1;

Frage[3]:='welches bundesland in deutschland hat die meisten einwohner?'; Antwort1[3]:='niedersachsen'; Antwort2[3]:='Nordrheinwestfahlen'; Antwort3[3]:='Bayern'; Antwort4[3]:='Baden Württemberg'; Richtig[3]:=2;Runde:=1; panel1.Caption:=Frage[runde]; button1.Caption:=Antwort1[runde]; button2.Caption:=Antwort2[runde]; button3.Caption:=Antwort3[runde]; button4.Caption:=Antwort4[runde]; end;

end.

strong textnö

nö nicht gefählich

Ganz eshrlich ist es egal ob jesus von einer jungfrau gebohren worden ist oder nicht(wobei ich glaube das maria fremd gegangen ist) das einzige was zählt ist dass jesus der sohn gottes ist aber weilchen leiblichen vater er hat spielt wie gesagt keine rolle wenn die seele von gott ist

äääääähhhm NEIN!

ich selber erst 13 bin und ich fands gut das meine eltern das so lange wie möglich durchgezogen haben