Hangman Projekt für Info: Fragen über Fragen

[Blub]

Zitat von Nicolai1605:

Ich denke auch, dass alles richtig ist!

hmm schön ^^ Trotzdem hab ich immernoch das gleiche problem

[Nicolai1234]

Zitat von Blub:

und von der Überprüfung:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var b:String;
begin
B:=Edit1.Text;


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

ich hoffe, dass ihr mir hier irgendwie weiterhelfen könnt.

Vielen dank schonmal

mfg blub

Wieso steht der Teil denn in einem Timer? Du könntest doch die Abfrage, ob ein Buchstabe vohanden ist, bei dem Edit1 bei OnKeyPress reinschreiben! Das wäre doch sinnvoller, oder?

[Blub]

hab ich erst probiert, hat aber nicht so gefunzt, wies sollte. Ein Mitschüler hat mir dann empfohlen das ganze mit nem Timer zu realisieren, das hat dann besser geklappt

[CyK]

Tachchen Bulb!!!
Ich glaub' du hast bloß ein Semikolon vergessen.
Und das End am Ende ist sinnlos, da du nie begin benutzt hast...

Delphi-Quellcode:

If Edit1.Text <> '' then
  if BuchstabeEnthalten(B,RateWort)=true then
    Label2.Caption:='ok' else
    Label2.Caption:='nö';  //<-------- SEMIKOLON!!!
else
  Label2.Caption:='bitte was eingeben';
// end; ENTFERNEN!!!

Probier's mal aus!!!

PS: Dein Problem kommt mir bekannt vor!
Bisste auf'm Pius?

CyK

[fkerber]

Hi!

Also, CyK, erstmal willkommen in der DP.

Dass das Semikolon nicht da ist, ist vollkommen korrekt, da vor else kein ; stehen darf.
Das end kann ich jetzt nicht beurteilen, weil die Stelle zu sehr aus dem Zusammenhang gerissen ist.

Ciao fkerber

[xineohp]

moin,
das end gehört glaube ich zur begin-end Klammer der procedure.

[Blub]

das end; is schon richtig an der stelle ^^. gehört zu nem Begin, vor der if bedingung. Müsste oben irgendwo zu sehen sein.

@CyK:
nee bin nich aufm Pius

[CyK]

Zitat von fkerber:

Dass das Semikolon nicht da ist, ist vollkommen korrekt, da vor else kein ; stehen darf.

Das stimmt zwar normalerweise, aber das zweite else bezieht sich auf das erste if, hat also damit gar nichts zu tun. Die innere If-Abfrage wird durch dieses Semikolon abgeschlossen...

Ich bin mir da zwar ziemlich sicher, aber wenn's falsch ist, korrigier' mich...

[Blub]

nee, semikolon muss da nich, sonst checkter das mit dem else net ^^

trotzdem bin ich noch nicht weiter

[Ultimator]

Probiert das mal aus, vllt hilfts

Delphi-Quellcode:

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