random()

[himitsu]

gib mal 'nen Buchstaben ein ... dann gibt's wieder 'ne Fehlermeldung
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 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;