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...