Irgentwie klappt das nicht mit dem Topic !
Also erläutere mal mein Problem
hab den 3-Pasch mal programmiert jedoch geht er nur wenn der 1. Wurfel zum Pasch gehört zb 32331 wenn die Würfel auf 23133 fallen funktioniert der Knopf nicht ! Schicke mal den den Quelltext
Delphi-Quellcode:
procedure Tzt.btndreierpaschClick(Sender: TObject);
var i,j,comp:integer;
str:string;
begin
btndreierpasch.enabled := false;
btnbegin.enabled := true;
comp:=1;
str:=lbl1.caption+lbl2.caption+lbl3.caption+lbl4.caption+lbl5.caption;
for i:=0 to 4 do
begin
if comp < 3 then
begin
comp:=1;
for j:=i+1 to 4 do
begin
if (str[i])=(str[j]) then
comp:=comp+1;
end;
end;
end;
if comp >= 3 then
lbldreierpasch.caption:=(inttostr (strtoint(lbl1.caption)+ strtoint(lbl2.caption)+ strtoint(lbl3.caption)+ strtoint(lbl4.caption)+ strtoint(lbl5.caption)));
lblN.caption := '0';
Hoffe ihr könnt mir helfen muss in einer Woche abgeben und wollte noch einige Zusatz sachen einprogrammieren jedoch kann ich dies erst machen wenn der Programm läuft
Das mit dem Full House weiss ich auch nicht so recht !
mfg Keikedeike