Ngày tải lên :
29/06/2013, 01:27
... WriteSt(x1,k,Attr,#179+Replicate(# 32, x2-x1-1)+#179);
WriteSt(x1,y2,Attr,#1 92+ Replicate(#196,x2-x1-1)+ #21 7);
End;
Procedure WinSh(x1,y1,x2,y2,Attr: Byte; Tit: String; Shd:
Boolean);
Begin
BoxSh(x1,y1,x2,y2,Attr,Shd);
... BoxSh(x1,y1,x2,y2,Attr: Byte; Shd: Boolean);
Var k: Byte;
Begin
if Shd then
SetAttr(x1+ShdX,y1+ShdY,x2+ShdX,y2+ShdY, ShdAttr);
WriteSt(x1,y1,Attr, #21 8+Replicate(#196,x2-x1-1)+#191);
for k:=y1+1 to y2-1 ... hoả trong Pascal 4-10
Pascal Nỏng cao (Advanced Pascal) Hoaỡng Hổợu Haỷnh
Inc(VOfs ,2) ;
end;
End;
Procedure WriteStC(x1,y,x2,Attr: Byte; S: String);
Var x: Byte;
Begin
x:=((x1+x2) div 2) - (Length(S)...