Turbo Pascal - символы рамок

bormant — Sat, 30 Jan 2021 19:41:02 GMT

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
unit FrameChr;
interface
 
type
  TFrameChars = String[11];
const
  fcHorz=1; fcVert=2;             { - |   }
  fcUpLt=3; fcUpCt=4;  fcUpRt=5;  { + + + }
  fcMdLt=6; fcMdCt=7;  fcMdRt=8;  { + + + }
  fcDnLt=9; fcDnCt=10; fcDnRt=11; { + + + }
  fcSingle: TFrameChars = #$C4#$B3#$DA#$C2#$BF#$C3#$C5#$B4#$C0#$C1#$D9;
  fcDouble: TFrameChars = #$CD#$BA#$C9#$CB#$BB#$CC#$CE#$B9#$C8#$CA#$BC;
  fcSglDbl: TFrameChars = #$C4#$BA#$D6#$D2#$B7#$C7#$D7#$B6#$D3#$D0#$BD;
  fcDblSgl: TFrameChars = #$CD#$B3#$D5#$D1#$B8#$C6#$D8#$B5#$D4#$CF#$BE;
 
procedure Frame(x, y, w, h: Integer; const fc: TFrameChars);
 
implementation
 
uses Crt;
 
procedure Frame(x, y, w, h: Integer; const fc: TFrameChars);
var i: Integer;
begin
  Dec(w); Dec(h);
  for i:=1 to h-1 do begin
    GotoXY(x,  y+i); Write(fc[fcVert]);
    GotoXY(x+w,y+i); Write(fc[fcVert]);
  end;
  GotoXY(x,y);
  Write(fc[fcUpLt]); for i:=1 to w-1 do Write(fc[fcHorz]); Write(fc[fcUpRt]);
  GotoXY(x,y+h);
  Write(fc[fcDnLt]); for i:=1 to w-1 do Write(fc[fcHorz]); Write(fc[fcDnRt]);
end;
 
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses Crt, FrameChr;
 
procedure frTest(const fc: TFrameChars);
begin
  WriteLn(fc[fcUpLt],fc[fcHorz],fc[fcUpCt],fc[fcUpRt]);
  WriteLn(fc[fcVert],' ',       fc[fcVert],fc[fcVert]);
  WriteLn(fc[fcMdLt],fc[fcHorz],fc[fcMdCt],fc[fcMdRt]);
  WriteLn(fc[fcDnLt],fc[fcHorz],fc[fcDnCt],fc[fcDnRt]);
end;
 
begin
  frTest(fcSingle);
  frTest(fcDouble);
  frTest(fcSglDbl);
  frTest(fcDblSgl);
end.

Форум программистов и сисадминов Киберфорум - Блоги - bormant

Turbo Pascal - символы рамок