procedure TForm1.ButtonClick(Sender: TObject);
var
C:Char;
begin
C:=Chr(59); //ASCII码对应表; #10#13; #号+数字就=ASCII码; //Chr函数将数字转换为ASCII码;
ShowMessage(C);
end;
ASCII码表:http://wenku.baidu.com/view/59ecdc68a45177232f60a2cc.html
procedure TForm1.ButtonClick(Sender: TObject);
var
C:Char;
begin
C:=Chr(59); //ASCII码对应表; #10#13; #号+数字就=ASCII码; //Chr函数将数字转换为ASCII码;
ShowMessage(C);
end;
ASCII码表:http://wenku.baidu.com/view/59ecdc68a45177232f60a2cc.html