Hi es geht immer noch um meine Projektarbeit, das Tic Tac Toe ist fertig und ich sitze jetzt im Moment am Memory was auch bald geschafft ist
aber ich habe ein Problem mit meiner Procedure die die Positionen meiner Memorykarten regelt.
Weitere Informationen Ich arbeite immer noch mit Lazarus und hier ist der Code für die 3 Proceduren (bzw 2 Prozeduren und eine funktion) die in den Prozess hinein gehören:
Delphi-Quellcode:
function TForm3.holeBild(r: Integer):string;
begin
if r=0 then
begin
holeBild:= 'zwei.png';;
end;
if r=1 then
begin
holeBild:='eins.png';
end;
if r=2 then
begin
holeBild:= 'drei.png';
end;
if r=3 then
begin
holeBild:='vier.png';
end;
if r=4 then
begin
holeBild:='fünf.png';
end;
if r=5 then
begin
holeBild:='sechs.png';
end;
if r=6 then
begin
holeBild:= 'sieben.png';
end;
if r=7 then
begin
holeBild:='acht.png';
end;
end;
[COLOR="Red"]procedure TForm3.Bild();
var rng,n,i,j,p,s,zaehler:integer;check:Boolean;
Perm:TList;
begin
Perm := TList.Create;
try
for n := 1 to 8 do
Perm.Add(@n);
Perm.Add(@n);
finally
//Perm.Free;
end;
zaehler:=1;
for i:= 0 to 3do begin
for j:=0 to 3 do begin
randomize;
rng := random(8-zaehler) + 1;
p := Integer (Perm.Items[rng]);
Feld[i,j]:= p;
Perm.Delete(rng);
zaehler := zaehler + 1;
end;
end;
end;[/COLOR]
procedure TForm3.Umdrehen(x,y: Integer; image: TImage);
begin
image.Picture.LoadFromFile(holeBild(Feld[x,y]));
end;
Der Rotebereich ist mein Problemfeld könnte man sagen, ich weiß nicht wie man das richtig schreibt denn das ist der code wie ich ihn in einem Wiki gefunden hatte (ja ich weiß das das keine Garantie für Korrektheit ist...) beim ausführen des Programms bzw dem starten über den Button1 stürzt das Spiel ab ... bis zum erstellen des obigen Prozederes lief aber alles gut.
Falls ich einmal wieder etwas vergessen haben sollte lade ich das Programm als Zip Format mit hoch.
(Zum zurecht finden in
Unit 1 wird Memory oder Tic Tac Toe gestartet U2 ist TTT und U3 dann Memory
)