我这样写的,为何不行?
function GetGUIDStr:string;
var
p:pbyte;
i:integer;
begin setlength(result,16); cocreateguid(guid);
p:=@guid;
for i:=1 to 16 do
begin
result[i]:=chr(p^);
inc(p);
end;
p:=nil;
end;
function GetGUIDStr:string;
var
p:pbyte;
i:integer;
begin setlength(result,16); cocreateguid(guid);
p:=@guid;
for i:=1 to 16 do
begin
result[i]:=chr(p^);
inc(p);
end;
p:=nil;
end;
SysUtils;function GUIDToString(const ClassID: TGUID): string;