Hangman Projekt für Info: Fragen über Fragen

[Ultimator]

Delphi-Quellcode:

function BuchstabeEnthalten (Buchstabe,RateWort:String): boolean; 
var i,m: integer; 
    Enthalten: boolean; 
begin 
Enthalten:=false; 
m:=WortLaenge(RateWort); 
  for i:=1 to m do 
   if RateWort[i]=Buchstabe then 
   Enthalten:= true; 

BuchstabeEnthalten:= Enthalten; 
end;

Mach das mal besser so:

Delphi-Quellcode:

function BuchstabeEnthalten (Buchstabe,RateWort:String): boolean; 
var i,m: integer; 
begin 
m:=length(RateWort); 
  for i:=0 to m-1 do 
   if RateWort[i]=Buchstabe then 
    begin
     result := true; 
     break;
    end
   else result := false; 
end;

Sch'weiß zwar nicht, obs hilft, aber trotzdem