random()

[Dr4ke]

Wie stelle ich es an das random() min. 1 raussucht und nicht 0?

[Klaus01]

Delphi-Quellcode:

random(maxZahl) +1

oder randomRange

grüße
Klaus

[Hador]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

random(maxZahl) +1

Naja eigentlich

Delphi-Quellcode:

Random(MaxZahl - 1) + 1

oder

Delphi-Quellcode:

Succ(Random(Pred(MaxZahl)))

[Dr4ke]

Ahh tricky ;) Danke .. Aber ich hab noch ein Problem und möchte nicht gleich nen neuen Thread aufmachen.

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
ergebnis : integer;
begin
Addieren;
ergebnis := StrToInt(edtAnzahl.Text) + Addieren;
edtAnzahl.Text := IntToStr(ergebnis);
end;

function TForm1.Addieren : integer;
begin
Addieren := random(6)+1;
end;

Sollte recht verständlich sein .. Beim Button-klick wird eine Zufallszahl zwischen 1 und 6 generiert und zum Wert im Textfeld hinzugezählt. Jedoch erhalte beim Klick folgende Fehlermeldung:

Delphi-Quellcode:

" ist kein gültiger Integerwert.

Woran könnte das liegen?

[Apollonius]

In deinem Textfeld steht gar nichts, es sollte aber eine Zahl darin stehen. Außerdem kannst du dir den ersten Aufruf von Addieren in dieser Form schenken, da er letztlich keinen Effekt hat.

[Dr4ke]

Zitat:

Außerdem kannst du dir den ersten Aufruf von Addieren in dieser Form schenken, da er letztlich keinen Effekt hat.

Aber ja, sonst habe ich doch keine Zufallszahl?


Und danke für die Hifle mit dem Textfeld. Ich werde jetzt einfach ne 0 reinschreiben, oder gibt es eine sauberere möglichkeit?

[SnuffMaster23]

Probier mal

Delphi-Quellcode:

function TForm1.Addieren : integer;
begin
  Result := random(6)+1;
end;

Addieren := random(6)+1; ist BASIC-Syntax ;)

[Dr4ke]

Ich habe den Utnerschied jetzt nicht verstanden .. Ob ich nun das Ergebnis in Result oder im Rückgabewert der function speicher .. Ist das nicht egal?

[SnuffMaster23]

Result ist der Rückgabewert der Funktion ;)
Das Ergebnig dem Funktionsnamen zuzuweisen geht in Delphi (glaub ich) nicht oder wird jedenfalls nicht empfohlen.

Aber den ersten Aufruf kannst du dir wirklich sparen, der Funktionswert verschwindet ja im Nirvana.

[Dr4ke]

Zitat:

Result ist der Rückgabewert der Funktion Wink

Oh achso ;D

Zitat:

Das Ergebnig dem Funktionsnamen zuzuweisen geht in Delphi (glaub ich) nicht oder wird jedenfalls nicht empfohlen.

Es geht schon. Warum es nicht empfohlen wird weiß ich nicht.

Zitat:

Aber den ersten Aufruf kannst du dir wirklich sparen, der Funktionswert verschwindet ja im Nirvana.

Kann mir das mal jmd. näher erklären? Wenn ich das erste Addieren; weglasse habe ich keine Zufallszahl die ich addieren kann ..


Und: Gibt es eine sauberere Lösung als das ich ins Textfeld ne 0 am Anfang schreibe damit ich keinen Error kriege?

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
ergebnis, tmp : integer;
begin
tmp := StrToInt(edtAnzahl.text);

if tmp = 0 then
  ergebnis := Addieren
else
  ergebnis := tmp + Addieren;

edtAnzahl.Text := IntToStr(ergebnis);
end;

function TForm1.Addieren : integer;
begin
  Result := random(6)+1;
end;

Vermutlich willst du das.

[Dr4ke]

Eben nicht ;D

Wenn das Textfeld leer ist und man "würfelt" kriegt man ne Fehlermeldung: " ist kein gültiger Integerwert.

Wenn ich vorher ne 0 reinschreibe gehts. Wie kann ich es anstellen das es leer ist und trotzdem kein Error kommt?

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var 
  ergebnis, tmp : integer;
begin
  if Trim(edtAnzahl.Text) = '' then
    tmp := 0
  else
    tmp := StrToInt(edtAnzahl.Text);

  ergebnis := tmp + Addieren;

  edtAnzahl.Text := IntToStr(ergebnis);
end;

[Klaus01]

oder so:

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
  ergebnis,ErrorCode : integer;
begin
  val(edtAnzahl.text,ergebnis,ErrorCode);

if ErrorCode <> 0 then
  ergebnis := Addieren
else
  ergebnis := ergebnis + Addieren;

edtAnzahl.Text := IntToStr(ergebnis);
end;

function TForm1.Addieren : integer;
begin
  Result := random(6)+1;
end;

Grüße
Klaus

[brechi]

Zitat:

Zitat von SnuffMaster23

Probier mal

Delphi-Quellcode:

function TForm1.Addieren : integer;
begin
  Result := random(6)+1;
end;

Addieren := random(6)+1; ist BASIC-Syntax ;)

Addieren := random(6)+1;
ist normale Pascal Syntax und macht keinen Unterschied zu Result := ...

Result gibt es erst ab Turbo Pascal ;)

[himitsu]

gib mal 'nen Buchstaben ein ... dann gibt's wieder 'ne Fehlermeldung :zwinker:
dann lieber so ^^

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var 
  ergebnis : integer;
begin
  ergebnis := StrToIntDef(edtAnzahl.Text, 0) + Addieren;

  edtAnzahl.Text := IntToStr(ergebnis);
end;

In Zuweisung geht schon an den Funkionsnamen, nur kann man da nichts auslesen

Zitat:

Zitat von SnuffMaster23

Das Ergebnig dem Funktionsnamen zuzuweisen geht in Delphi (glaub ich) nicht oder wird jedenfalls nicht empfohlen.

Code:

function TForm1.Addieren : integer; 
begin 

  Addieren := 1;
  Addieren := [color=#ff0000][b]Addieren[/b][/color] + 1;  // beim Roten wird die Function
                             // aufgerufen und nicht das Ergebnis ausgelesen
  Result := 1;
  Result := Result + 1; 

end;

[Die Muhkuh]

Zitat:

Zitat von himitsu

gib mal 'nen Buchstaben ein ... dann gibt's wieder 'ne Fehlermeldung :zwinker:
dann lieber so ^^

Auch nicht perfekt, man sollte erst gar nicht zulassen, dass man Buchstaben eintippen kann ;-)

[Dr4ke]

Man kann keine Buchstaben eingeben, das Textfeld ist deaktiviert. ;)

So, mein Problem ist gelöst, danke an alle.