第一阶段:ASCII阶段,(American Standard Code for Information Interchange, “美国信息交换标准码),计算机当时只支持英语,字符在计算机中都是以0和1的方式存储的。象a、b、c、d这样的52个字母(包括大写)、以及0、1、2等数字还有一些常用的符号(例如*、#、@等)在计算机中存储时也要使用二进制数来表示,而具体用哪些二进制数字表示哪个符号,就必须要有一定的规则,于是美国有关的标准化组织就出台了所谓的ASCII编码,统一规定了上述常用符号用哪个二进制数来表示。(来自百度百科),ASCII码规定每个字符例如“a”使用1个字节来表示,也就是8为的二进制组合,那么就有00000000-11111111一共256种组合,也就是可以表示256个不同的字符。
implementation
var
NM: Array[1..94, 1..94] of String;
Function QWtoNM(X, Y: Integer): String;
Begin
SetLength(Result, 2);
Result[1] := Char(Ord(X+160));
Result[2] := Char(Ord(Y+160));
end;
Procedure InitAllNM();
var
i, j: Integer;
Begin
for i := 1 to 94 do
Begin
for j := 1 to 94 do
Begin
NM[i, j] := QWtoNM(i, j);
end;
end;
end;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
var
sTitle, sRow: String;
i, j: Integer;
begin
InitAllNM();
for i := 1 to 94 do
Begin
sRow := '';
Memo1.Lines.Add('第' + IntToStr(i) + '区汉字');
Memo1.Lines.Add('---------------------------');
for j := 1 to 94 do
Begin
sRow := sRow + NM[i][j] + ' ';
end;
Memo1.Lines.Add(sRow);
Memo1.Lines.Add('---------------------------');
end;
end;