Hangman Projekt für Info: Fragen über Fragen

[Blub]

Zitat:

Zitat von Ultimator

Probiert das mal aus, vllt hilfts :gruebel:

Delphi-Quellcode:

 If Edit1.Text <> '' then
  begin
    if BuchstabeEnthalten(B,RateWort)=true then
     Label2.Caption:='ok'
    else 
     Label2.Caption:='nö'
  end;

nope bringt auch nichts.....
es ist zum verzweifeln :wall:

[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 :wink:

[CyK]

Hallo Blub!

Ich hab' selber mal Hangman programmiert. Aber leider nur in PHP.
Wenn dich der Code trotzdem interessiert, schick mir 'ne PN.

Anzusehen auf: Meister's Hangman

Ich kann's dir auch kurz auf Delphi umschreiben, wenn du willst.

[Ultimator]

Davon hat er dann aber nicht so sehr viel.

Mag sein, dass er dann den Code hat, aber wenn er aufgefordert wird, ihn der Klasse zu erklären, auch ein Problem.

[Nikolas]

Warum was neu schreiben, was es doch schon frei Haus gibt???

Mein Vorschlag:

Delphi-Quellcode:

Buchstabe:=edit1.text;
Wort:=edit2.text;
if pos(Buchstabe,Wort)>0 then 
  label1.caption:='drin'
else
  label1.caption:='draussen';

Zitat:

Zitat von The Fine Manual

Beschreibung
Pos sucht in dem String S nach dem Teil-String Substr. Wird der Teil-String gefunden, gibt Pos den Integer-Index des ersten Zeichens von Substr in S zurück. Ist Substr nicht vorhanden, wird der Wert Null zurückgegeben.

[xineohp]

moin,

@Ultimator

Zitat:

Zitat von Ultimator

Delphi-Quellcode:

m:=length(RateWort);
for i:=0 to m-1 do
  if RateWort[i]=Buchstabe then

Das ist nicht richtig! Bei strings fängt der Index bei 1 an ...

[Ultimator]

Hauerha. Da hast du Recht. An "nullter" Stelle steht denk ich die Länge drin, oder?
Also könnte man doch auch

Delphi-Quellcode:

m:=strtoint(Ratewort[0]);

machen, oder nicht?

[xineohp]

ich meine sowas mal gehört zu haben, habs aber nie ausprobiert :wink:

[Nikolas]

Warum probiert ihr denn jeden Buchstaben aus? einamam pos anwenden und wenn ein ergebniss zurückkommt (>0) ist der Buchstabe drin.

[xineohp]

warum einfach wenns auch kompliziert geht :mrgreen: