Morgen, wir melden uns mal wieder und sind jetzt schon ein ganzes stück weiter. Bis lang steht Tic Tac Toe und jetzt sitzen wir am Memory. Leider sitzen wir was das angeht aber in einer kleinen Misere wir wissen einfach nicht weiter. Ich werde das Programm unten anheften, vielleicht wisst ihr Rat wir haben keinen Plan wie wir folgendes Problem lösen sollen:
Feld mit Bild wird ausgewählt.
Zweites Feld mit Bild wird ausgewählt, keine Übereinstimmung.
Felder sollen zugedeckt werden.
Wir würden gerne vermeiden das der User das ganze manuell machen muss das verleitet ja zum Selbstbetrug (einfach die Felder offen lassen und hups ich bin der meister des Memory). wie immer ist uns Literatur lieber als eine Lösung wir wollen dieses Thema ja mit in das Literaturverzeichnis pack. Ich habe den Ordner als Zip verpackt hoffe das so alles funktioniert und danke schon mal im voraus für die Hilfe
MFG Felix
Ach ja Datei anhängen hat nicht funktioniert
habe es als Zip verpackt aber da kommt leider eine Fehlermeldung (vermutlich ist die Datei zu groß)
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
Image10: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image16: TImage;
Image18: TImage;
Image19: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
procedure Button1Click(Sender: TObject);
procedure Image10Click(Sender: TObject);
procedure Image12Click(Sender: TObject);
procedure Image13Click(Sender: TObject);
procedure Image14Click(Sender: TObject);
procedure Image16Click(Sender: TObject);
procedure Image18Click(Sender: TObject);
procedure Image19Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure Image8Click(Sender: TObject);
procedure Image9Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
neuesBild:Integer=0;
listevonbildern:Array[0..7]of string =
('tulips.jpg',
'test.jpg',
'tulips.jpg',
'test.jpg',
'tulips.jpg',
'test.jpg',
'tulips.jpg',
'test.jpg');
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Visible:=True;
image2.Visible:=True;
image2.Visible:=True;
image4.Visible:=True;
image5.Visible:=True;
image6.Visible:=True;
image7.Visible:=True;
image8.Visible:=True;
image9.Visible:=True;
image10.Visible:=True;
image12.Visible:=True;
image13.Visible:=True;
image14.Visible:=True;
image16.Visible:=True;
image18.Visible:=True;
image19.Visible:=True;
end;
procedure TForm1.Image10Click(Sender: TObject);
begin
Image10.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image12Click(Sender: TObject);
begin
Image12.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image13Click(Sender: TObject);
begin
Image13.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image14Click(Sender: TObject);
begin
Image14.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image16Click(Sender: TObject);
begin
Image16.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image18Click(Sender: TObject);
begin
Image18.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image19Click(Sender: TObject);
begin
Image19.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image3Click(Sender: TObject);
begin
Image3.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image4Click(Sender: TObject);
begin
Image4.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image5Click(Sender: TObject);
begin
Image5.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image6Click(Sender: TObject);
begin
Image6.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image7Click(Sender: TObject);
begin
Image7.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image8Click(Sender: TObject);
begin
Image8.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
procedure TForm1.Image9Click(Sender: TObject);
begin
Image9.Picture.LoadFromFile(ListevonBildern[neuesBild]);
inc(neuesBild);
if neuesBild> High(ListevonBildern)
then neuesBild :=Low(ListevonBildern);
end;
end.
ich hoffe es geht auch so ansonsten muss ich es von zu Hause probieren.