Nedtælling med store tal!?

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  Count: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
// Sætter count til 30.
Count := 30;

// Skriver til label.
Label1.Caption := IntToStr(Count);

// Starter timer.
Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (count = 0) then begin
// Lukker.
Close;
end
else begin
// Trækker 1 fra count.
Count := Count - 1;
Label1.Caption := IntToStr(Count);
end;

end;

end.

Så kan du selv vælge hvor stort din label skal være..

Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

Det sted hvor du for en fejl ved:

procedure FormCreate(Sender: TObject);

Ved jeg hvorfor. Du har nemlig skrevet det 2 gange:

procedure FormCreate(Sender: TObject);
procedure FormCreate(Sender: TObject);

Derfor bøg du slette en af dem også virker den!
(Håber jeg )




Inttostr:
Denne kode er sådan set bare en kode der konventere en integer (int) (heltal) om til en string.

Eks:

var
I : Integer;
S : String;
begin
I := 1234;
S := IntToStr(I);
end;


Her har du en integer (heltal). En integer kan kun indeholde helle tal altså eks. 41 og 2 men ikke 19,2.
En integer køre på et helt andet måde end string og kan derfor normalt ikke tale sammen.
Men kort sagt sørger IntToStr at nærmest konventere Integerens indenhold om til en tekst som en string kan konventere og derefter kopire den til stringen som i dette eks. er S.

________

Jeg vil også sige at inttostr og alt det der er svært at forstå. Derfor har jeg også for længe siden spurt om noget at det samme.

Her er min forum...
Der ligger der en fantastisk forklaring!:
http://www.udvikleren.dk/thread.php?techid=&f=2&t=1726







Shafh
Shafh@stofanet.dk
Theis F. Hinz

Min Storebror har altid sagt:
At lave en Amarmad er det samme som at blande mælk med fløde.

Så ved i det

Altså, detmed mappe skjuling skal nk kun foregå med en mappe: Han skal bare skivre stien og trykke Skjul, og den skjuler, han kan også trykke Not skjul, så den bliver (hehe) ikk skjult!

Tjekker det lige ud!!

Må sq indrømme jeg jeg ikk kan huske særlig meget Delphi mere!
Vil du forklarer noget mere om følgende:

 procedure FormCreate(Sender: TObject);
        procedure Timer1Timer(Sender: TObject); 

<<(linie:13) Hvis jeg skriver den med formcreate ind, så får jeg en fejl ved det sidste end.
Hvis jeg sletter den får jeg:

 procedure TForm1.FormCreate(Sender: TObject); 

<<(linie:29) får jeg fejl ved denne her

 Form1: TForm1;
        Count: Integer; 

 Label1.Caption := IntToStr(Count); 

<< her spørger jeg hvad: IntToStr(Count); betyder

 Form1: TForm1;
        Count: Integer; 

< Sætter Count til at den må indeholde tal.

 Label1.Caption := IntToStr(Count); 

< Count er en tal værdi, her bliver den converetet til en string værdi


Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

Mange tak!

Men jeg får stadig den der fejl!

Pröv lige at poste din kode, sä man kan se pä den.

TSat

Jeg har testet det og det virker.........
Med venlig hilsen
Frede_Manden
http://www.frederik-skov.dk

Jeg har testet det og det virker.........

Nu tror jeg jeg ved hvad problemet er! Jeg aner ikk hvad formcreate er! Hvad er det?