String -> PChar

mingyeh 2002-08-31 07:30:07

需要调用一个API
用字符串拼参数的时候提示类型不兼容

...全文

18 11 打赏收藏转发到动态举报

写回复

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

shuixin13 2002-09-05

打赏
举报

回复

UP

lance09 2002-09-05

打赏
举报

回复

同意，兄弟们说的

lth_81 2002-09-05

打赏
举报

回复

使用StrPCopy(Dest:PChar,Source:String);比较安全，楼上的说法我试过，但是有乱码，我想应该是指针的问题。

lovedandan 2002-09-01

打赏
举报

回复

PChar(yourstring)

firstCCC 2002-09-01

打赏
举报

回复

应该贴出代码

knock 2002-09-01

打赏
举报

回复

一个pchar()就转换了啊

qdlyly 2002-08-31

打赏
举报

回复

pchar('hehe1'+'hehe2');

wxyq 2002-08-31

打赏
举报

回复

&('hehe1'+'hehe2');

fwwxxjingling 2002-08-31

打赏
举报

回复

关注一下！！
把你的代码贴出来吧！！

netlib 2002-08-31

打赏
举报

回复

pchar('hehe1'+'hehe2');

dongxsoft 2002-08-31

打赏
举报

回复

pchar(str1+str2)

Delphi 以实例演示String类型和PChar类型使用的区别，演示了PChar静态分配空间和PChar动态分配空间：　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 PStr:array [0..100] of Char; 　　begin 　　 StrPCopy(PStr,'String类型和PChar类型使用的区别'); 　　 ShowMessage(PStr); 　　end; 　　procedure TForm1.Button2Click(Sender: TObject); 　　var 　　 PStr:PChar; 　　begin 　　 GetMem(PStr,100); 　　 StrPCopy(PStr,'String类型和PChar类型使用的区别'); 　　 ShowMessage(PStr); 　　end;

delphi中String，PChar，PByte，Array of Char，Array of Byte 之间的互相转换

Delphi2007之前的API繁简转函数在Delphi2009版本出现后不能用，原因在于之前版本的String默认为AnsiString，而Delphi2007之后的String默认为WideString，同样，PChar指针也就为PAnsiString，所以调用Windows API函数如：MultiByteToWideChar 会出现编译出错，原因是类型不对，也不能强制转换，以下是本人修改的网上流行的繁简转函数，测试通过，并完全正常使用！

function GBCht2Chs(GBStr: string): AnsiString; function GBChs2Cht(GBStr: string): AnsiString; implementation function GBCht2Chs(GBStr: string): AnsiString; {进行GBK繁体转简体} var Len: integer; pGBCHTChar: PChar; pGBCHSChar: PChar; begin pGBCHTChar := PChar(GBStr); Len := MultiByteToWideChar(936, 0, pGBCHTChar, -1, nil, 0); GetMem(pGBCHSChar, Len * 2 + 1); ZeroMemory(pGBCHSChar, Len * 2 + 1); //GB CHS -> GB CHT LCMapString($804, LCMAP_SIMPLIFIED_CHINESE, pGBCHTChar, -1, pGBCHSChar, Len * 2); result := string(pGBCHSChar);

简约 Parsimony是标准ML的解析器组合器库。它具有以下特点：可插拔输入。源位置跟踪。广泛的示例代码。范例会话代替“你好，世界！” 例如，下面是在交互式SML / NJ会话中使用Parsimony的示例（根据需要取消/编辑输出）： > sml -m parsimony.cm - structure ps = Parsimony(ParsimonyStringInput); structure ps : PARSIMONY - fun str s = ParsimonyStringInput.fromString s; val str = fn : string -> ParsimonyStringInput.input - ps.run (ps.pchar #"a" ) (str " abc " ); val it = Success ( #"a" ,-) :

5,392

社区成员

262,732

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章