//方法如下!
var a:pchar;
b:string;
b:=string(a);
var a:pchar;
b:string;
b:=string(a);
解决方案 »
- 各位大侠帮帮忙
- delphi中关于数据库的虚读的问题
- 我从进程中知道有两个QQ在运行,但如何知道号吗?
- TreeView节点移动的问题
- 公司要写客户关系关系系统,哪个能提供点业务需求方面的资料
- 如何在Memo或其他控件中只选择鼠标点中的字符(只选一个!!,即鼠标点中的字符),象ultraedit一样。
- 求助,关于adodataset批量提交速度越来越慢的问题。
- 如何判断是否已经联到 internet?
- 哪一个delphi网站是最好的!各位讨论一下:)
- DELPHI动态创建的按钮,单击事件为什么无效
- 请问怎样在DELPHI中调用自己写的ORACLE的包中的过程mypack.myproc(a out char_array)(返回一数组)
- 关于捕获dos程序结束的问题!
function PCharToStr(CStr: PChar): string;
begin
if CStr = nil then
Result := ''
else
begin
{$IFDEF WIN32}
SetLength(Result, StrLen(CStr));
Move(CStr^, Result[1], Length(Result));
{$ELSE}
Result := StrPas(CStr);
{$ENDIF}
end;
end;
{转换PChar为String}