时间转换

procedure TForm1.FormCreate(Sender: TObject);
begin
    edtHour.Clear;
    edtMinutes.Clear;
    edtHs.Clear;
    edtSec.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
try
   if edtHour.Text<>‘‘    then edtMinutes.Text:= IntToStr(strtoint(edtHour.Text)*60);
   if edtMinutes.Text<>‘‘ then edtSec.Text:= IntToStr(strtoint(edtMinutes.Text)*60);
   if edtSec.Text<>‘‘     then edtHs.Text:= IntToStr(strtoint(edtSec.Text)*1000);

    Self.Caption:=‘Form1‘;
except
    Self.Caption:=‘数据输入错误‘;
end;
end;