Stopur

Jep, her har du et løsningsforslag:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    EditTid: TEdit;
    ButtonStart: TButton;
    ButtonStop: TButton;
    ButtonClear: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ButtonClearClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  editTid.Text := IntToStr(StrToInt(Edittid.Text) + 1);
end;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
  timer1.Enabled := true;
end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
  timer1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edittid.Text := '0';
  edittid.ReadOnly := True;
end;

procedure TForm1.ButtonClearClick(Sender: TObject);
begin
  edittid.Text := '0';
end;

end.


Du kan selv sætte intervallet i timerens properties.

Mvh
Retep

retep: Din løsning holder ikke (selv om du satte timerens interval til 1000=1sek som ikke kan ses af din kode...). Hvis systemet får travlt kan du ikke regne med at din timer fyrer med nøjagtigt interval. Eventen vil bare blive lagt i kø...

Anvend i stedet function GetTickCount: DWord; (Unit windows). som returnerer antallet af millisekunder siden windows blev startet

erklær variabel ATick: DWord;

på start sættes ATick := GetTickCount;

På stop sættes ATick := GetTickCount - ATick;

For nu at vise stopurett fremskridt kan du lave en timer der kører med eks 50 som interval.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  editTid.Text := FloatToStr(GetTickCount - ATick);
end;

Denne tid vil være nøjagtig;

Det virker fint psv men formatet kunne være bedre hvordan angives det i eks. edittid.text

Nedenstående eksempel er ikke 100% men den viser alligevel hvordan du kan gøre det. Variablen "fPollElapsed" indeholder tiden i sekunder" og denne "omregnes" til timer, minutter og sekunder".

var
  iHour : Integer;
  iMin  : Integer;
  iSec  : Integer;
begin
  fPollElapsed := iValue;
  iHour  := iValue div (60*60);
  iValue := iValue - (iHour * 60 *60);
  iMin  := iValue div 60;
  iSec  := iValue - (iMin*60);
  LabelPollElapsed.Caption := Format('%.2d:%.2d:%.2d',[iHour,iMin,iSec]);
  Application.ProcessMessages;
end;

madshenrik: For at lave det til sekunder skal du konvertere værdien divideret med 1000.

(GetTickCount - ATick) / 1000; // Antal sekunder...

Du kan i hjælpen finde hjælp på funktionen Str som kan give dig et mere formateret output, eks:

Str(((GetTickCount - ATick) / 1000):8:2, editTid.Text)

vil fylde editTid1.text med antallet af sekunder angivet med 2 decimaler.

psv ved du hvordan man får formattet til at ligne timetostr formattet helt nøjagtigt.

hov altså noget i retning af time:minut:sekund

Well...

Text := TimeToStr((GetTickCount-ATick/1000)/(24*60*60))

??

Det virker fint...

Hvad med point? Kan vi få dem?

Jeg mener mindst at jeg har gjort mig fortjent til 1 point  ;-)

Fit med mig... bare spørgsmålet bliver afsluttet :-)