Memory Zufallsgenerator (Procedure)

[Felix Stein]

Also ist meine Variante völlig ungeeignet?

[Sir Rufo]

Zitat von Felix Stein:

Also ist meine Variante völlig ungeeignet?

Das habe ich nicht gesagt, aber du hast diese halt falsch implementiert. Ich schaue einfach ob sich darüber schon jemand anderes Gedanken gemacht hat (ja, Fisher-Yates) und implementiere dann diesen Algorithmus.

Der ist kurz und knackig und als Kommentar reicht der Hinweis auf Fisher-Yates (erwähnte ich schon mal meine Faulheit)

[Sir Rufo]

@himitsu

Wenn es danach geht das gesamte Projekt zu beurteilen, dann würde ich eh vorschlagen eine PaintBox und eine ImageList zu verwenden.

In der ImageList befinden sich dann die Bilder zu jedem möglichen Zell-Status und die PaintBox pinselt einfach das Bild aus der Imagelist auf die Zelle.

Das ist das simpelste und auch für alle diese Spiele, die man mit einer Gitterstruktur darstellen kann (TicTacToe, Memory, Vier-Gewinnt, Schiffe Versenken, ....) immer wieder der gleiche Ablauf bei der Visualisierung.

Man muss sich nur Gedanken machen, welchen Status jede Zelle einnehmen kann, die Bilder dazu in die ImageList packen und dann über eine Methode den Zell-Status abfragen. Fertig ist die Visualisierung.

[Blup]

Sollte zumindest ohne Fehler funktionieren:

Delphi-Quellcode:

function TForm3.holeBild(AValue: Integer): string;
begin
  {case ist übersichtlicher}
  {die Zahlen 1..8 kommen im Feld vor} 
  case AValue of
    1: Result := 'eins.png';
    2: Result := 'zwei.png';
    3: Result := 'drei.png';
    4: Result := 'vier.png';
    5: Result := 'fünf.png';
    6: Result := 'sechs.png';
    7: Result := 'sieben.png';
    8: Result := 'acht.png';
  else Result := '';
  end;
end;

procedure ListeFuellen(AList: TList; AMin, AMax: Integer);
var
  i: Integer;
begin
  for i := AMin to AMax do
  begin
    AList.Add(Pointer(i));
    AList.Add(Pointer(i));
  end;
end;

procedure ListeMischen(AList);
var
  i: Integer;
begin
  for i := AList.Count - 1 downto 1 do
    AList.Exchange(i, Random(i + 1));
end;

procedure TForm3.FeldAusListeFuellen(AList);
var
  i, j: Integer;
begin
  for i := 0 to 3 do
  begin
    for j := 0 to 3 do 
    begin
      Feld[i, j] := Integer(AList[i * 4 + j]);
    end;
  end;
end;

procedure TForm3.Bild();
var
  Perm: TList;
begin
  Perm := TList.Create;
  try
    ListeFuellen(Perm, 1, 8);
    ListeMischen(Perm);
    FeldAusListeFuellen(Perm);
  finally
    Perm.Free;
  end;
end;

procedure TForm3.Umdrehen(x, y: Integer; image: TImage);
begin
  image.Picture.LoadFromFile(holeBild(Feld[x,y]));
end;

[himitsu]

@Blub: Daß holeBild relative Pfade zurück gibt, ist natürlich ungünstig.

[mkinzler]

Zitat von himitsu:

@Blub: Daß holeBild relative Pfade zurück gibt, ist natürlich ungünstig.

Nicht unbedingt, wenn man das abändert

image.Picture.LoadFromFile( pfad + holeBild(Feld[x,y]));

[himitsu]

Oder so, daß wirklich das Bild geholt wird, so wie es der Funktionsname behauptet,
holeBild(Image.Picture, Feld[x,y]); anstatt nur den Dateinamen zurückzugeben.