if og timer gør ikke som forventete

Du skal da huske at skrive else imellem vær gang!



Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Make you glad to change the world

Lyder godt men NEJ , det virker ikke !

tarsankode

Her hos mig virker koden fint nu?

Så jeg ville næsten tro det var dig der gjorde noget forkert

Kan du evt. poste hele din unit her så jeg kan se hvad du gør galt?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

[Redigeret d. 04/06-05 00:47:38 af Rune Jensen (RoZ)]

Jeg har spurt andre steder, det håber jeg er OK ? : )

En har næsten fået den lavet som sådan :

var
Form1: TForm1;
i: integer;

implementation

{$R *.dfm}

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

procedure TForm1.Timer1Timer(Sender: TObject);

begin
i := i+1000;
Label1.Caption:=IntToStr(i);
if i = 25000 then Label1.Caption := 'tid1'
else if i = 50000 then Label1.Caption := 'tid2';
if i >= 80000 then
begin
Label1.Caption:= 'tid3';
i:= 0;
end;
end;

end.

MEN NEJ !

den bliver stående på tid3 ... så nej ikke endnu virkder det.
Mærkeligt at det kan volde så mange problemer ? : )

VH
tarsankode

Jeg har spurt andre steder, det håber jeg er OK ? : )

En har næsten fået den lavet som sådan :

var
Form1: TForm1;
i: integer;

implementation

{$R *.dfm}

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

procedure TForm1.Timer1Timer(Sender: TObject);

begin
i := i+1000;
Label1.Caption:=IntToStr(i);
if i = 25000 then Label1.Caption := 'tid1'
else if i = 50000 then Label1.Caption := 'tid2';
if i >= 80000 then
begin
Label1.Caption:= 'tid3';
i:= 0;
end;
end;

end.

MEN NEJ !

den bliver stående på tid3 ... så nej ikke endnu virkder det.
Mærkeligt at det kan volde så mange problemer ? : )

VH
tarsankode

Hehe det skulle helst heller ikke volde så mange problemer. Ret simpel opgave.

Men her er ihvertfald den præcise kode som virker for mig:

Kode 

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  i: integer;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i := i+1000;

if i = 25000 then Label1.Caption := 'tid1'
else if i = 50000 then Label1.Caption := 'tid2'
else if i = 80000 then
begin
Label1.Caption:= 'tid3';
i:= 0;
end;
end;

end.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Du har ret, den virker men kun EN gang, første
gang, derefter ser det ud som om den
er læst ind i hukommelsen og ikke
kan bruges mere ..




tarsankode

Du har ret, den virker men kun EN gang, første
gang, derefter ser det ud som om den
er læst ind i hukommelsen og ikke
kan bruges mere ..

tarsankode

Ved mig kører den igen og igen...

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------