反饋

settime

settime是一種函數名。

settime簡介

函數名: settime

功能: 設置系統時間

Uses Graph;

Var

Gd,Gm.Integer;

y,size:Integer;

Begin

Gd:=Detect;

InitGraph(Gd,Gm,");

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.^[1]

參考資料

詞條統計