EncodeTime
Adam Boduch
EncodeTime
Moduł: SysUtils
Prosty przykład użycia:
procedure TMyForm.MyButtonClick(Sender: TObject);
var
MyTime : TDateTime;
begin
MyTime := EncodeTime(13, 9, 20, 100);
Label1.Caption := TimeToStr(MyTime);
end;
Jeżeli podane zostaną złe parametry, funkcja wykona wyjątek EConvertError
.
Zobacz też: