Einzelnen Beitrag anzeigen

Texas

Registriert seit: 15. Jul 2005
Ort: Laatzen
59 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#2

Re: Anfänger probiert kniffel und kommt nicht weiter

  Alt 22. Mär 2009, 19:57
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;
Michael
  Mit Zitat antworten Zitat