HILFE!!!!
Mein Hangman muss bis nächsten Dienstag fertig sein!! Aber wie das eigentlich immer so ist fängt der Schüler von heute ca. eine Woche vorher an sich gedanken zu machen, wie er denn sein Projekt fertigstellen soll!!!
Auf jedenfall hab ich mich grad wieder hingesetzt und meinen Quelltext durchgeschaut, und der sieht für mich auch irgendwie logisch aus! Allerdings funzter net
Hier soweit mein Code, bei dem ich igendwo Fehler vermute:
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
Enthalten:=false;
BuchstabeEnthalten:= Enthalten;
end;
und
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var B:String;
begin
B:=Edit1.Text;
If Edit1.Text <> '' then
if BuchstabeEnthalten(B,RateWort)=true then
Label2.Caption:='ok' else
Label2.Caption:='nö'
else
Label2.Caption:='bitte was eingeben';
end;
Ich hoffe echt, dass ihr mir hierbei weiterhelfen könnt.
Außerdem müsst ich noch wissen, ob bzw. wie ich Delphi sagen kann, dass der bei einer Canvas jedesmal einen Strich mehr macht, wenn ein Fehler gemacht wurde, bzw wie ich Delphi sagen kann, dass er jedesmal ein neues Bild lädt, wenn ein Fehler gamcht wurde. Wobei mir das mit den Bildern irgendwie lieber wär
VIELEN DANK FÜR EURE HILFE!!!