AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Hangman: Galgen zeichnen..
Thema durchsuchen
Ansicht
Themen-Optionen

Hangman: Galgen zeichnen..

Offene Frage von "MAD_87"
Ein Thema von MAD_87 · begonnen am 10. Mai 2005 · letzter Beitrag vom 10. Mai 2005
 
MAD_87

Registriert seit: 3. Okt 2004
22 Beiträge
 
#8

Re: Hangman: Galgen zeichnen..

  Alt 10. Mai 2005, 20:20
alles klar.. danke erstmal.. werd dann gleich mal probieren..
und das hier F := F + 1 div 6; hatte ich in irgendnem anderen beitrag (nicht von hier..) gefunden, und habs damit auch versucht.. habs wohl vergessen zu löschen..

EDIT: habs jetzt so ausprobiert, aber es funzt leider net.. bist du dir sicher dass das so richtig ist? jetzt schreibt er mir die buchstaben nicht mehr ins wort und die fehleranzeige läuft auch verrückt..

EDIT2: habs jetzt so verändert, aber das mit dem f klappt immer noch net. wenn ich auf einen buchstaben habe, der nicht im wort vorhanden ist, zeigt er mir bei f nichts an. das mit pos müsste doch richtig sein, oder? der gibts ja, wenn nichts gefunden wird, eine null zurück.. wenigstens zeigt er jetzt die buchstaben an..

Delphi-Quellcode:
procedure TForm1.btErgebnisClick(Sender: TObject);
var j:Integer;
begin
  Labelcaption:=lbLoesung.Caption;
  if Pos(Buchstabe, GesuchtesWort) > 0 then
  for j:= 1 to length (GesuchtesWort) do
    if GesuchtesWort[j] = Buchstabe then
    begin
      Labelcaption:=lbLoesung.Caption;
      delete(Labelcaption,j,1);
      Insert(GesuchtesWort[j], Labelcaption, j);
      lbLoesung.Caption:=Labelcaption;
    end
  else if Pos(Buchstabe, GesuchtesWort) = 0 then
    begin
      F:=F+ 1;
      edFehler.Text:=FloatToStr(F);
    end;
if F>=11
  then showmessage('Du hast verloren!');
if Labelcaption=GesuchtesWort
  then showmessage('Du hast gewonnen!')
 end;
  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 10:06 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