Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Philipp stiiiiiiiiiiiiiiiiiiiiiiiier

By: a guest on May 22nd, 2012  |  syntax: Delphi  |  size: 0.56 KB  |  hits: 21  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.  
  2.  
  3.  
  4.  
  5. // Button 1 zum vergleichen
  6. n:= strtoint ( edit1.text);
  7.  if n< x_zufall then
  8.    label1.caption := 'Deine Zahl ist kleiner als die gesuchte Zahl';
  9.    zaehler:= zaehler + 1 ;
  10.      if n > x_zufall then
  11.       label1.caption := 'Deine Zahl ist größer als die gesuchte Zah';
  12.        if n = x_zufall then
  13.         label1.caption := ' Du haste es geschaft und so viele Runde gebraucht :';
  14.         label2.caption := inttostr(zaehler);  
  15.  
  16. // Button 2 zum Starten
  17.  
  18. randomize;
  19.  x_zufall := random(random(1000)) ;
  20.  label1.caption := 'Los gehts!';
  21.  Zaehler := 0 ;
create a new version of this paste RAW Paste Data