/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Timer
Fra : Henning Madsen


Dato : 28-01-01 00:09

Tak for svaret Thomas P
Jeg kan godt forstå det er umugligt at se fejlen uden at se programmeringen,
derfor
dette lille programeksempel.
Ved brug af 1. If linie er alt ok, men ved brug af 2. linie sker der intet
med Timer2,
hvorfor ?? Jeg bruger selvfølgelig kun den ene If sætning af gangen.

Slutresultatet skulle gerne blive en Timer2 der når Timer1 har nået f.eks.
10 så starter Timer2 og tæller f,eks. til 20.

2.If sætning burde efter min mening virke, så der er nok noget jeg har
kraftigt misforstået.

var
Form1: TForm1;
T1Minutter : Integer;
T2Minutter : Integer;
implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
T1Minutter := 0;
T2Minutter := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
T1Minutter := T1Minutter + 1;
Edit1.Text := IntToStr(T1Minutter);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
If T1Minutter >= 10 Then Stopper når Timer1 har nået 10 OK
If T1Minutter <= 10 Then Starter når Timer1 har nået 10 Der sker intet
Begin
Timer2.Enabled := False;
end
Else
Begin
Timer2.Enabled := True;
T2Minutter := T2Minutter + 1;
Edit2.Text := IntToStr(T2Minutter);
End;
end;
end.
Håber nok engang at I kan hjælpe mig videre ??
På forhånd tak
hilsen
Henning.





 
 
Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408926
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste