李 李子 Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-04 #1 我想把一个PCHAR指针指向的内存区域的内容存入一个STRING变量,请问具体该怎么做,还有,谁有PASCAL指针部分的详细资料,请给我一份,谢谢。
P Pipi. Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-04 #4 如果 Pchar 指向的只是内存区域(指向一片buffer),而不是 NULL Terminated string 要用 SetString
M mutant Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-30 #7 Str:=StrPas(Pchar); 注意char以#0作为字符串的结束标志. 如果字符串中间出现#0,后面的内容被忽略 可以用内存移动 Move(Pcahr,@String,Sizeof(String));
Str:=StrPas(Pchar); 注意char以#0作为字符串的结束标志. 如果字符串中间出现#0,后面的内容被忽略 可以用内存移动 Move(Pcahr,@String,Sizeof(String));
H hz Unregistered / Unconfirmed GUEST, unregistred user! 2000-03-31 #8 var pS : pChar; S : string; I : integer; begin S := ''; I := 0; while pS <> #0 do begin S := S + pS; I := I + 1; end; end;
var pS : pChar; S : string; I : integer; begin S := ''; I := 0; while pS <> #0 do begin S := S + pS; I := I + 1; end; end;
L liuchuanbo Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-01 #9 如 hz 的算法,建立一函数: function pchartostr(strchar):string; var i:word; resul:string; begin i:=0; resul:=''; while str<>#0 do begin resul:=resul+str; inc(i); end; pchartostr:=resul; end;
如 hz 的算法,建立一函数: function pchartostr(strchar):string; var i:word; resul:string; begin i:=0; resul:=''; while str<>#0 do begin resul:=resul+str; inc(i); end; pchartostr:=resul; end;