Let spørgsmål til nørden

smid en timer komponet og dobbelklik på det så der i skriver du bare.

label1.caption := IntToStr(StrToInt(label1.caption) + 1);

og du skal sætte label1.caption til at være 0 under formcreate...

/ZIRON

under system menuen vælget du Ttimer.

add den på din form, default er 1000 ms hvilket jo også er et sec.

//Fra min unit:

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Count:integer; //***

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

begin
caption := inttostr(Count);
Count := Count+1
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Count := 0;
end;

end.

Tak for hjælpen, du får pointene for at være hurtigst med en løsning!

det var da så lidt, og takker for piont :)

/ZIRON

Og så lige en kommentar, afaik er TTimer rimlig upræcis, og vil i dit tilfælde tabe en del sekunder.

En løsning vil være at bruge noget GteTickCount måske.