AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte warscheinlich die 1000ste Version Von Kniffel
Thema durchsuchen
Ansicht
Themen-Optionen

warscheinlich die 1000ste Version Von Kniffel

Ein Thema von dajuhsa · begonnen am 4. Jun 2007 · letzter Beitrag vom 10. Jun 2011
 
keikedeike

Registriert seit: 6. Jun 2011
9 Beiträge
 
#16

AW: warscheinlich die 1000ste Version Von Kniffel

  Alt 9. Jun 2011, 21:41
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

Geändert von mkinzler (10. Jun 2011 um 09:35 Uhr) Grund: Color-Tag durch Delphi-Tag ersetzt
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz