Question

delphi 变量赋值

a:pchar ;
b :olevariant;
getmem(a,1000);
已通过函数把A数据读出 ,如何把a的数据赋给b ,而且不丢失数据.

Answer 1

不需要Getmem，pchar本身就是指针

var
a:pchar ;
b :olevariant;
i:integer;
begin
a:='abcdefg';
for i:=0 to length(a) do
begin
b:=b+a^;
Inc(a);
end;
edit1.Text:=b;