var
i : integer;
begin
for i := 33 to 126 do
memo1.Lines.Add(inttostr(i) + ' : ' + intToHex(i,0) + ' : ' + char(i));
end;
i : integer;
begin
for i := 33 to 126 do
memo1.Lines.Add(inttostr(i) + ' : ' + intToHex(i,0) + ' : ' + char(i));
end;
解决方案 »
- ???DBGridEH 如何得到某类可编辑后单元格的值???
- TMemo控件如何显示滚动条
- 关于一个udp的问题,请大家帮我看看怎么解决
- 游戏“连连看”的算法!
- 菜鸟问超级菜问题,好心人帮帮忙。。。
- 急>>>用Delphi下用OleContiner保存的Word数据,怎样在.net下生成Word文件。。。。急
- 连接SQL SERVER2000错误,真是烦!!!
- 如何做一个窗口永远在其它窗口之顶(y轴方向的而不是z方向的),连桌面图标都自动下移
- 载操纵word的时候出现:被呼叫方拒绝接受呼叫的提示??
- 100分难题!求高手解答
- ql的问题,select * from table where date1>=''01-10-10'' 到底行不行的
- sql 语句问题
呵呵var
i : integer;
begin
for i := $21 to $7E do
memo1.Lines.Add(format('$%X',[i]) + ' : ' + char(i));
end;
为'A B C D E F G H' ?
'H I J K L'?
i : integer;
begin
for i := $21 to $7E do
memo1.Lines.Add(format('$%X',[i]) + ' : ' + char(strtointdef(inttostr(i),0)));
/////////////////
memo1.Lines.Add('=========' + #13#10 + char(strtointdef('$'+'48',0)));
end;