拿分喽，关于pchar 和string 类型的问题,100大洋(100分)

X

xihahi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #1

我有以下程序段：
var
s:string;

s:=copy(windir,0,3);
if GetVolumeInformation(s,Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
wybz:=IntToStr(SerialNum^);
编译时提示 s 是string 类型,与pchar不匹配，
但把程序改成如下之后，可以运行,得到正确的结果：
s:=copy(windir,0,3);
if GetVolumeInformation('c:/',Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
wybz:=IntToStr(SerialNum^);
'c:/' 不一样是字符串吗？为什么'c:/' 可以运行而 s 就会编译错误

 

P

pegasus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #2

这个道理是这样的：
‘C:/Windows'是一个（无类型)常量，系统可以根据需要转化它的类型
但是变量的类型在Pascal中是要强制转换的。

 

J

jghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #3

s 是string 变量，系统不会将其自动转为pchar，但pchar变量却能自动转为string 变量；
而'c:/'是常量，系统能将其自动转为pchar处理。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #4

PChar通常是作为ASCIIZ来使用的。

 

J

jjazz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #5

GetVolumeInformation(PCHAR(s),Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
wybz:=IntToStr(SerialNum^);

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #6

用 pChar(s)转化一下
GetVolumeInformation(pchar(s),Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0)

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-11

• #7

可惜了， 太晚了。 (

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-21

• #8

多人接受答案了。