settime是一种函数名。
简介
函数名: settime
功 能: 设置系统时间
程序例子
Uses Graph;
Var
Gd,Gm.Integer;
y,size:Integer;
Begin
Gd:=Detect;
If GraphResult<>grOK Then
Halt(1);
y:=0;
For size:=1 To4 Do
Begin
SetTextStyle(DefaultFont,HorzDir,size);
OutTextXY(0,y,'Size=, +Chr(size+48));
Inc(y,TextHeigh('H')+1);
End;
Readin;
CloseGraph;
End.