Anfänger probiert kniffel und kommt nicht weiter

[Texas]

Hallo Matze,
ich würde neben jeden Würfel eine CHECKBOX platzieren mit der ich festlege ob der Würfel so liegen bleiben soll oder ob mit Ihm neu gewürfelt wird. Wenn man dann noch ein StrinGrid mit den möglichen Punkten 1er 2er …Full House .. kl.Strasse etc anlegt kann man durch auswahl der Cell gleich die Werte eintragen lassen

Eine andere Möglichkeit: das ganze in eine Stringlist einzutragen. Diese führt dann mit der Methode sort eine Sortierung durch

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyList: Tstrings; //!!!!
begin
  MyList := TStringList.Create;
  try
    MyList.Add(inttostr(w[1]));  // Würfel 1
    MyList.Add(inttostr(w[2]));  // Würfel 2
    MyList.Add(inttostr(w[3]));  // Würfel 3
    MyList.Add(inttostr(w[4]));  // Würfel 4
    MyList.Add(inttostr(w[5]));  // Würfel 5
    MyList.Sort; werte werden sortieert   

  finally
    MyList.Free;
  end;
end;