Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
z := random(50)+1;
ShowMessage(IntToStr(z)); //zur Kontrolle
end;
procedure TForm1.Button1Click(Sender: TObject);
var r : integer; //real mit integer zu vergleichen macht selten Sinn
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Hans, häng das Projekt doch mal als ZIP-Archiv an, sonst kommen wir wohl nicht weiter.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
In meiner Hilfe (D2007) steht:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Ist das FormCreate auch zugewiesen? Schau mal im Objektinspektor nach.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Wie äußert sich der Fehler denn?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Wer so blöd ist, beim Zahlenraten ein "a" oder sowas einzugeben, hat es nicht besser verdient :twisted:
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Hier mal ein schnell runtergetipptes Beispielprojekt (implementation-Teil):uses Math;
procedure TfrmRaten.btnRatenClick(Sender: TObject);
var Ratezahl: Integer;
begin
Ratezahl := StrToIntDef(edtEingabe.Text,0);
case Sign(Ratezahl - Zahl) of
0: ShowMessage('Erraten');
1: ShowMessage('Zu hoch');
-1: ShowMessage('Zu niedrig');
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Wieso vergleichst Du ganze mit Fließkommazahlen?
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
22. Nov 2008
Btw: Eine Zufallszahl im Bereich 1 bis 50 bekommt man mit Random(50) + 1.