Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 30. Aug 2004
  also, ich hab das mal etwas anders gelöst, nebenbei noch ne fehler-abfrage gemacht, es sollte jetzt klappen:
  
  var
  Form1: TForm1;//erst mal hab ich deine globalen variablen gelichtet
  vorhanden, prostunde, benoetigt:double;
  laufzeit:integer;
  implementation
  
  {$R *.dfm}
  procedure TForm1.Timer1Timer(Sender: TObject);
• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 30. Aug 2004
  hmm, bei den eingabewerten hab ich auch einen fehler...moment
  
  nein, ich will einfach das der timer nicht OnEdit3Change aktiviert wird sondern wenn der user aufn button klickt...
  
  ahh, hier:
  vorhanden:= strtofloat(Edit1.Text);
  prostunde:= strtofloat(Edit2.Text);
  benoetigt:= strtofloat(Edit3.Text);
  
  dec(zeitsekunden);//runterzählen
• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 30. Aug 2004
  bei mir funzt es...
  
  AABBEERR
  
  MACH DA EINEN BUTTON REIN
  WELCHER ARME USER SOLL DEN AHNEN DAS ES 1 SEKUNDE NACH ÄNDERUNGEN IN EDIT§ ZU EINER FEHLERMELDUNG KOMMT WEIL ER NICHT SCHNELL GENUG GETIPPT HAT
  *schüttel armen tavik bis er button hinmacht und brüll in dabei an*
  
  (sorry fürs anbrüllen)
• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 30. Aug 2004
  so:
  
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  dec(zeitsekunden);
  vorhanden:= strtofloat(Edit1.Text);
  prostunde:= strtofloat(Edit2.Text);
  benoetigt:= strtofloat(Edit3.Text);
  
  fehlend:= benoetigt - vorhanden;
• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 29. Aug 2004
  also
  
  du gehst bei den komponenten in die kategorie system...
  da is ne uhr, der TTimer
  den klotzt du auf deine form (den sieht man nachher eh nicht)
  du stellst bei dem das intervall auf 1000 (ms=1 sekunde)
  du stellst enabled auf false (dies bewirkt das er nicht sofort losläuft...)
  nun machst du einen doppelklick drauf, du landest im quelltext, in einer procedure namens Timer1onTimer (oder...
• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 29. Aug 2004
  dazu nimmst du jetzt den richtigen timer...
  
  in der leiste system ist eine kompo timer...
  intervall auf 1000 (=1 sek)
  die variable sekunde bei jedem timer-ereignis 1 runter und meine procedure wieder machen...
  
  achso, am anfang timer disablen und dann wenn er initialisiert wird enablen
  
  hoffe du kommst damit zurecht
• Forum: Object-Pascal / Delphi-Language

  Re: Sekunden an einen Timer übergeben

    Delphi
    by glkgereon, 29. Aug 2004
  ich glaube folgendes:
  du meinst du hast eine art edit oder so wo du die zeit drin anzeigen willst....
  
  an dieses editfeld (den "timer") willst du eine integer-uhrzeit (Tdatetime?) übergeben und anzeige lassen...
  
  so, wenn das soweit richtig war machst du dies:
  
  var
  zeit:TDateTime;
  begin