Studieportalen.dk
if t < 0 then t := 0;
Timer.Text := FloatToStr(int(t))+' timer '+inttostr(round((t-int(t))*60))+' minutter ';
end;
For Sletalt-button:
procedure TForm1.SletaltClick(Sender: TObject);
begin
{alle edit-felterne renses for indtastninger}
vaegt.clear;
tid.clear;
promille.clear;
timer.clear;
{alle SpinEdits nulstilles}
s1.value:=0;
s2.value:=0;
s3.value:=0;
s4.value:=0;
s5.value:=0;
end;
For Hjælp-button:
procedure TForm1.Button2Click(Sender: TObject);
{viser hjælpe formen som en showmodal; man skal altså lukke formen før man igen kan benytte
programmet}
begin
Form2.showmodal;
end;
Listning af hovedprogram (DPR-fil):
Lisning af programkode (PAS-fil):
unit Unit1;
interface
uses