Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Hänge bei units und umsetzung fest

    Delphi
    by Corpsman, 3. Feb 2008
  Lol,
  
  Du rufst dice auf, jeder Aufruf erzeugt einen neuen Zufallswert, willst du mit dem Wert noch mehr machen, so must du ihn zwischenspeichern.
  
  In etwa so :Procedure Tfenster_frm.dice_btnClick(Sender: TObject);
  Var
  Dice_result: Integer;
  Begin
  Dice_result := dice;
  Case Dice_result Of
• Forum: Object-Pascal / Delphi-Language

  Re: Hänge bei units und umsetzung fest

    Delphi
    by Corpsman, 2. Feb 2008
  Ui Ui du hast noch nicht viel programmiert, was.
  
  Also Procedure dice();
  Begin
  randomize;
  Zahl := trunc(random(6)) + 1;
  Case Zahl Of
  1: fenster_frm.Image1.Picture.LoadFromFile('one.bmp');
  2: fenster_frm.Image1.Picture.LoadFromFile('two.bmp');
  3: fenster_frm.Image1.Picture.LoadFromFile('tree.bmp');