Timer Problem

[angos]

Hi,

hab mal ein paar Kommentare eingefügt.

Zitat von Darksniper:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var H,M,S,SZ:Integer;
begin
H:= 60*60*StrtoInt(Edit1.Text); // Wann wird Edit1.Text gefüllt??? Setze hier doch mal einen Haltepunkt und schau dir an was passiert
M:= 60*StrtoInt(Edit2.Text); // Wann wird Edit2.Text gefüllt??? 
S:= StrtoInt(Edit3.Text); // Wann wird Edit3.Text gefüllt???     
SZ:=H+M+S;                       
Label5.Caption:=IntToStr(SZ);  // Wenn die Edit´s nicht gefüllt werden, steht Label5 immer auf 0   
Timer1.Enabled := true;          
Button1.Enabled:=false;          
Button3.Enabled:=true;           
end;

procedure TForm3.Timer1Timer(Sender: TObject);
var sekunden,minuten,Stunden :Real;
    S1,EM,ES,EH,H,M,S: Integer;
begin                                         
S:=StrtoInt(Label5.caption)-1;  //hier kommt das 
Label5.caption:=InttoStr(S1);   //wo ich mir nicht ganz
S1:=StrtoInt(Label5.caption);   //sicher bin ob das geht
Stunden:=(S1)/60/60;
minuten:=(stunden-Trunc(stunden))*60;
sekunden:=(minuten-Trunc(minuten))*60;
EH:=trunc(Stunden);
EM:=Trunc(MInuten);
ES:=Trunc(Sekunden);
Label1.caption:=InttoStr(EH)+':'+InttoStr(EM)+':'+InttoStr(ES); 
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Button1.Enabled:=true;
Button3.Enabled:=false;
Timer1.Enabled:=false;
Label5.Caption:='00:00:00';
Edit1.Text:='00';
Edit2.Text:='00';
Edit3.Text:='00';
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if Timer1.Enabled=true then
   Timer1.Enabled:=false;
if Timer1.Enabled=false then
   Timer1.Enabled:=true;
end;

Es wäre auch noch schön zu wissen, was überhaupt im Timer passiert
Und was verdammt viel hilft ist eine ordentliche Sourcecodeformatierung -> Styleguide

Grüße