Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Probleme mit if - then


Snippy - Sa 12.10.02 23:36
Titel: Probleme mit if - then
Ich hab probleme mit einem if - then clause! :D
Eine Zufallszahl wird in ein editfeld geschrieben.
Ich möchte, dass wenn sie 0 lautet, dass eine neue zufallszahl gewählt wird!
Wie mach ich das??????? :(

(13.10.02 15:00 Tino) Titel geändert und Topic verschoben.


Christian S. - Sa 12.10.02 23:39

Hi!

Evtl. hilft Dir dieser [http://www.auq.de/viewtopic.php?t=2971] Beitrag weiter. Wenn nicht, dann poste nochmal!

MfG,
Peter


DeCodeGuru - Sa 12.10.02 23:48

Hi,

hier haste nochmal ein kleines Codebeispiel:


Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
var
  I: Integer;
begin
  Randomize;
  i := Random(100);
  while i = 0 do
  begin
    i := Random(100);
  end;
  Label1.Caption := IntToStr(i);
end;


Snippy - So 13.10.02 02:06

THX :D :D :D :D


DelphiGuru - Di 05.11.02 15:42

Es geht auch so!


Quelltext
1:
2:
3:
4:
5:
6:
var i: Integer
begin
  Randomize;
  i := Random(99) + 1;
  Label1.Caption := IntToStr(i); 
end;


Delete - Di 05.11.02 15:50

DelphiGuru hat folgendes geschrieben:
Es geht auch so!

Radio Eriwan sagt: Ja. Aber wenn man es ganz genau nimmt: Nein! Denn die Bedingung war ja:
Snippy hat folgendes geschrieben:
Ich möchte, dass wenn sie 0 lautet, dass eine neue zufallszahl gewählt wird!

Also muss man erst mal diese Bedingung erfüllen. Nur, bei deiner Lösung, DelphiGuru, gibt´s aber nie ´ne Null. :wink: :mrgreen:


DelphiGuru - Di 05.11.02 16:37

ok


Ex0rzist - Di 05.11.02 19:25

Noch ein Guru .... :lol:


DeCodeGuru - Di 05.11.02 23:12

jetzt sinn wir schon zwei :beer: