zahlenraten

[Mikamuh]

HI leutz,
unzwar habe ich erstens keinen plan ob das hier der richtige bereich is, wenn nich dann werden das die admin hoffentlich richten :D


zu meinem problem:
ich muss für informatik ein programm schreiben in dem eine zufallzahl generiert wird und ich dann in ein edit fenster zahlen eingeben kann. das proggy gibt mir nach überprüfung der zahl entweder "zahl zu klein" oder eben "zu groß" aus.
als letztes sollte man mittels eines reset buttons eine neue zahl generieren können. das ganze kann man eigentlich unter zahlen raten zusammenfassen.

ich erwarte jetzt nicht das ihr mir den gesamten quellcode runterschreibt, aber vllt könnt ihr mir ein paar denkanstöße oder vllt links zu tutorials geben.


mfg michi

[3_of_8]

Wie wärs, wenn du anfängst und fragst dann, wenn du nicht weiterweißt?

[richie]

Du solltest dir die Prozedur Randomize und die Funktion Random mal angucken. :zwinker:

[Phoenix]

Bitte ändere Deinen Titel in etwas aussagekräftiges. Benutze dafür bitte den Edit-Button neben Deinem Beitrag, Danke.

[Mikamuh]

ok..also immer wenn ich versuche mein programm zu starten kommt dieser fehler:


[Fehler] Unit1.pas(35): Anweisung erwartet, aber '=' gefunden

Delphi-Quellcode:

procedure TZahl.FormCreate(Sender: TObject);
begin
   RANDOMIZE;
   ZufallsZahl.Caption ;= *an dieser stelle tritt der fehler auf* IntToStr(Random(101));
end;

procedure TZahl.BokClick(Sender: TObject);
var I:Integer;
begin
I:=StrToInt(Zahl.Text);
If I>StrToInt(Zufallszahl.Caption) Then
                Lausgabe.Caption:='eingebene Zahl ist zu groß!';
If I<StrToInt(Zufallszahl.Caption) Then
                Lausgabe.Caption:='eingebene Zahl ist zu klein!';
If I=StrToInt(Zufallszahl.Caption) Then
                Begin
                  Lausgabe.Caption:='Richtig geraten!';
                  Zufallszahl.visible:=TRUE;
                End;
end;

end.

wer hat ne idee?

[mkinzler]

Delphi-Quellcode:

ZufallsZahl.Caption := IntToStr(Random(101));

[Mikamuh]

dankeschön

[Mikamuh]

weitergehts... nächster fehler:

http://img69.imageshack.us/img69/194...led1ee2.th.jpg

code ist noch der selbe wie oben genannt nur mit der verbesserung von mkinzler



mfg michi

[mkinzler]

Der Fehler sagt doch alles, der wert in Zahl.Text/ZufallsZahl.Text ('Zahl') kann nicht in einen Integer gewandelt werden.
Entwder Konvertierungen in try..except einschließen oder TryStrToInt verwenden.

[Mikamuh]

bei trystrtoint kommt "[Fehler] Unit1.pas(42): Nicht genügend wirkliche Parameter"