Tippspiel!

[alcaeus]

Zitat von delphi-noob:

Ich möchte ein Tippspiel machen!

Richtig erfasst. DU willst es machen. Deshalb kriegst du jetzt mal von mir nur eine kleine Hilfe... Hier mal dein Code (ohne die Zufallszahl-Prozedur), wie er richtig formatiert ist. Verwende auch die delphi-Tags, dann wird er leichter lesbarer.

Delphi-Quellcode:

procedure TForm1.ratenClick(Sender: TObject);
var
  eingabe : Integer; 
begin 
  Eingabe:=StrToInt(Edit1.Text); 
  if Eingabe=3 then 
    label2.Caption:='Das war ein sehr guter Tipp!' 
  else 
    if Eingabe<3 then 
      label2.Caption:='die zahl ist leider kleiner als 1' 
    else 
      label2.Caption:='die zahl ist leider groeßer als 10'; 
end;

Nachdem du den ja anscheinend selbst geschrieben hast, kann ich dir hier gleich mal ein paar Sachen ausbessern. Anscheinend soll in Edit1.Text die geratene Zahl eingegeben werden. Wieso vergleichst du dann immer mit 3? Irgendwo muss da ein Fehler sein. Das gleiche gilt für die zweite Abfrage. Dort überprüfst du ja eigentlich nur, ob die Zahl verschieden von 3 ist. Eine Zahl kleiner 3 ist aber nicht automatisch kleiner als 1. Bessere das aus, wenn es wieder Probleme gibt, zeig den Code und die Stelle wo es Probleme gibt, dann wird dir sicher gerne geholfen!

Greetz
alcaeus