Danke erstmal für die Hilfe und sory nochmal für den "etwas" dumm erstellten text!
Ich hänge komplett an dem Quelltext fest!
Also ich habe geschafft:
Label1 = Gebe eine Zahl zwischen 1 und 10 ein
edit1 = Dort soll die Zahl eingegeben werden!
button1 = Drauf drücken/ doppelklick code
Zitat:
procedure TForm1.ratenClick(Sender: TObject);
function Zufallszahl(Von, bis: Integer): Integer;
begin
Result := Random(Succ(0 - 10)) + Von;
end;
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;
end.
Label2 = Ausgabefeld für [Zahl zu groß oder zu klein],[Generierte Zahl] und [Richtig oder Falsch]