so:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(zeitsekunden);
vorhanden:= strtofloat(Edit1.Text);
prostunde:= strtofloat(Edit2.Text);
benoetigt:= strtofloat(Edit3.Text);
fehlend:= benoetigt - vorhanden;
zeitstunden:= fehlend / prostunde;
zeitsekunden:= round(zeitstunden * 3600);
h:= zeitsekunden
div (60 * 60);
zeitsekunden:= zeitsekunden - h*60*60;
m:= zeitsekunden
div 60;
zeitsekunden:= zeitsekunden - m*60;
s:= zeitsekunden;
Edit4.Text:= '
h: '+inttostr(h)+'
min: '+inttostr(m)+'
sec: '+inttostr(s);
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
also den berechnungs/ausgabecode einfach nur umkopieren!!!
jetzt isses zwar so, das die anzeige erst 1 sek nach buttonclick geupdated wird, aber das machste jetzt selber!!!