请提供如何显示字符或数字的ASCII码的函数(100分)

黄

黄海庆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #1

请提供如何显示字符或数字的ASCII码的函数

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #2

ord()

 

T

Town

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #3

两个互相对应的函数。
Ord()
Chr()

 

B

bbs_delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #4

同意楼上的

 

L

lew

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #5

ShowMessage(inttostr(integer('a')));

显式 ： 97

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #6

大概要用到chr()和ord()吧

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #7

1. 得到
Function _AscII(_Ch:Char):Byte;
Begin
Result:=Ord(_Ch);
End;

2. 显示:
_Ch:='5';
ShowMessage('Char '+_Ch+',ASCII='+IntToStr(_AscII(_Ch)));

3. 给分吧！

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #8

caption := format('%d',[byte('8')]);
可以用ord代替byte

 

D

dpfans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #9

来个简单一点的
在窗体上放一个LABEL 在FORM的ONKEY事件上写上如语句
label1.caption:=inttostr(ord(key))
这样你按什么键LABEL1就会显示相应的ASCII值

 

G

GZCYP

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-12

• #10

来晚了。

 

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #11

ACSII与十六进制转换
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

str1:string;
str2:string;
cov:array of byte;
a,len,i:byte;
begin
str1:=edit1.Text ;
str2:='';
len:=strlen(pchar(str1));
setlength(cov,len);
for i:=1 to len do
begin
cov:=ord(str1);
end;
for i:=1 to len do
begin
str2:=str2+ inttohex(cov,2)+' ';
end;
edit2.Text :=str2;
end;
end.

 

S

suyude

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-13

• #12

ACSII与十进制转换

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var

str1:string;
str2:string;
cov:array of byte;
a,len,i:byte;
begin
str1:=edit1.Text ;
str2:='';
len:=strlen(pchar(str1));
setlength(cov,len);
for i:=1 to len do
begin
cov:=ord(str1);
end;
for i:=1 to len do
begin
str2:=str2+ inttostr(cov)+' ';
end;
edit2.Text :=str2;
end;
end.

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-11

• #13

接受答案了.