Zufallszahl

hi bin grad dabei nen kleines übungsprogramm was ich letzens inner berufsschue in c++ geschrieben habe in pascal zu schreibeiben ...
Code:
procedure TForm1.bstartClick(Sender: TObject);
begin
     //alles sichtbar/unsichtbar machen
     bstart.visible := False;
     bstop.visible :=True;
     tzufalszahl.visible := True;
     timer.enabled := True;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
     tzahl.text := IntToStr(StrToInt(tzahl.text)+1);
end;

procedure TForm1.bstopClick(Sender: TObject);
var
   hilfszahl : integer;
   e         : integer;
   i         : integer;
   hilfsname : string;
   tausch    : string;
begin
     //alles sichtbar/unsichtbar machen
     bstart.visible := True;
     bstop.visible := False;
     tzufalszahl.visible := False;
     timer.enabled := False;
     
     //Differenz und Name in Tabelle übernehmen

     hilfszahl :=(strtoint(tzufalszahl.text) - strtoint(tzahl.text));
     if hilfszahl < 0 Then
     begin
          hilfszahl := hilfszahl * (-1);
     end
     else
     begin
          hilfszahl := hilfszahl;
     end;
     lbdifferenz.items.add(inttostr(hilfszahl));
     if tname.text = '' Then
     begin
          hilfsname := 'Unbekannt';
     end
     else
     begin
          hilfsname := tname.text;
     end;
     lbname.items.add(hilfsname);
     
     //Zahl auf 0 setzen
     tzahl.text := '0';
     
     //Daten anhand der linken Tabelle alphabetisch sortieren
  if lbdifferenz.Items.Count >1 then
  begin
   E := 1;
   WHILE E>0 DO BEGIN
   E := 0;
    FOR I := 0 TO lbdifferenz.Items.Count-2 DO
    begin
     if lbdifferenz.Items[I] > lbdifferenz.Items[I+1] then
     begin
      tausch:=lbdifferenz.Items[I];
      lbdifferenz.Items[I]:=lbdifferenz.Items[I+1];
      lbdifferenz.Items[I+1]:=tausch;
      tausch:=lbname.Items[I];
      lbname.Items[I]:=lbname.Items[I+1];
      lbname.Items[I+1]:=tausch;
      e:=1;
     END;
    END;
   END;
  END;
end;

procedure TForm1.tbschwierigkeitChange(Sender: TObject);
begin
     //Timer Geschwindigkeit einstellen (standart 50ms)
     if tbschwierigkeit.position = 1 Then
     begin
     Timer.interval := 100;
     end;
     if tbschwierigkeit.position = 2 Then
     begin
     Timer.interval := 90;
     end;
     if tbschwierigkeit.position = 3 Then
     begin
     Timer.interval := 80;
     end;
     if tbschwierigkeit.position = 4 Then
     begin
     Timer.interval := 70;
     end;
     if tbschwierigkeit.position = 5 Then
     begin
     Timer.interval := 60;
     end;
     if tbschwierigkeit.position = 6 Then
     begin
     Timer.interval := 50;
     end;
     if tbschwierigkeit.position = 7 Then
     begin
     Timer.interval := 40;
     end;
     if tbschwierigkeit.position = 8 Then
     begin
     Timer.interval := 30;
     end;
     if tbschwierigkeit.position = 9 Then
     begin
     Timer.interval := 20;
     end;
     if tbschwierigkeit.position = 10 Then
     begin
     Timer.interval := 10;
     end;
end;
....
jedenfals soll in tzufalszahl halt ne zufalszahl reinkommen wenn man bstart drückt aber wie kann ich eine zufalszahl erstellen? in c++ hatte ich das in abhängigkeit zum datum/uhrzeit gemacht.
 
ich denke mal folgendes wäre einfacher:

Code:
#include <stdio.h>

int main()
{
float var;
var = rand()%100;
printf("var: %f",var);
return 0;
}

als c++ lösung!
 
Zurück
Oben