Einzelnen Beitrag anzeigen

Benutzerbild von Steve
Steve

Registriert seit: 2. Mär 2004
Ort: Würzburg
730 Beiträge
 
Delphi 2006 Personal
 
#39

Re: Hangman Projekt für Info: Fragen über Fragen

  Alt 25. Aug 2004, 15:07
Hi,
lass mal den Else-Teil weg, sonst wird nur zurückgegeben, ob der LETZTE Buchstabe dem geratenen entspricht.

Delphi-Quellcode:
//Funktion zum prüfen, ob der Buchstabe enthalten ist.

function BuchstabeEnthalten (Buchstabe,RateWort:String): boolean;
var i,n: integer;
    Enthalten: boolean;
begin
Enthalten:=false;
n:=WortLaenge(RateWort);
  for i:=1 to n do
   if RateWort[i]=Buchstabe then
   Enthalten:= true
// Else-Teil weglassen!!
// else
// Enthalten:=false;

BuchstabeEnthalten:= Enthalten;
end;
PS: Zum Prüfen, wo genau Dein Fehler auftritt, debugge an der entsprechenden Stelle via Haltepunkt (F5) und schrittweiser Ausführung des Codes (F7,F8)

Gruß
Stephan
Stephan B.
Wer andern eine Grube gräbt ist Bauarbeiter!
Wer im Glashaus sitzt, sollte sich lieber im Dunkeln ausziehen!
Außerdem dieser Satz kein Verb...
  Mit Zitat antworten Zitat