'$'+'6F'总是出错(50分)

N

neogene

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #1

'$'+'6F'总是出错
'$' is not a valid integer value
buf :=widechar(StrToint('$'+'6F');
先将6F换成十六进制，通过widechar转换成字符。
为什么总是出错。
高手回信到信箱。

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #2

buf :=Chr(StrToint('$'+'6F'));

 

N

neogene

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #3

不对呀
还是出错。

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #4

var Buf:Array[0..100] of char;
begin
buf[1] :=Chr(StrToint('$'+'6F'));

 

时

时报平

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #5

function ASCGetStr(const S: string): string;
var
I,j: Integer;
str : string;
len : integer;
int_var : integer;
begin
J := 1;
len := Length(S) div 2;
for I := 1 to len do
begin
str := copy(s,j,2);
j := J + 2;
Result := Result + Chr(StrToInt('$'+str));
end;
end;

 

N

neogene

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #6

但是我要将buf转成string
用widechartostring
char和widechar怎么区别

 

Y

yl0971

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #7

edit1.Text := chr($6f);

 

Y

yl0971

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #8

哦，看错了。不好意思，chr（strtoint（‘6f'））；

 

Z

zurich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #9

WideString：与String类似，不过是基于WideChar字符类型（UniCode字符集），用了存储Unicode字符。引入这种类型，主要是为了支持OLE编程。

 

嫁

嫁给cpu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #10

'$6F'转换的结果是不是o啊?

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #11

function HexToInt(Hex: string): Integer;
var
I, Res: Integer;
ch: Char;
begin
Hex := AnsiReplaceText(Hex, '$', '');
Res := 0;
for I := 0 to Length(Hex) - 1 do
begin
ch := Hex[I + 1];
if (ch >= '0') and (ch <= '9') then
Res := Res * 16 + Ord(ch) - Ord('0')
else if (ch >= 'A') and (ch <= 'F') then
Res := Res * 16 + Ord(ch) - Ord('A') + 10
else if (ch >= 'a') and (ch <= 'f') then
Res := Res * 16 + Ord(ch) - Ord('a') + 10
else raise Exception.Create('Error: not a Hex String');
end;
Result := Res;
end;

HexToInt('$6f');

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #12

不过现在认真看，不知道你想干吗～～～