为什么这样有错 ?(50分)

swj · 2002-03-27

我手边没有书，真不好意思
程序如下
procedure TForm1.Button1Click(Sender: TObject);
var
s

char;
n:cardinal;
t:string;
begin
GetComputerName(s,n);
t:=strPas(s);
end;
结果报错，我调试了一下发现string t最后竟然为空字符串，可是s却是一个字符串？

taozhiyu · 2002-03-27

s,n是多少

卷起千堆雪tyn · 2002-03-27

记得先分配内存：?

GetMem(s,255);

最后释放：?FreemMem(s,255);

kingdeezj · 2002-03-27

procedure TForm1.Button1Click(Sender: TObject);
var
s

char;
n:cardinal;
t:string;
begin
n:=255;//可任意
s:=stralloc

;
GetComputerName(s,n);
t:=strPas(s);
end;

jrq · 2002-03-27

pchar的问题！
首先要申请获得内存，才能用，用完释放！

swj · 2002-03-27

接受答案了.