random()

[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.