会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
此处所列的文章均是我自己从国外的网站摘抄并翻译的,由于英文水平有限,里面肯定有不少错漏.翻译这些东西没有其他的什么用途,只是提高自己的英语阅读能力和编程技术水平而已
AppleAndPear
博客园
首页
管理
2010年11月5日
Pchar和String一样当作数组一样使用的例子。
摘要: procedure Move( const Source; var Dest; count : Integer );{$IFDEF PUREPASCAL}var S, D: PChar; I: Integer;begin S := PChar(@Source); D := PChar(@Dest); if S = D then Exit; if Cardinal(D) > Cardinal(...
阅读全文
posted @ 2010-11-05 08:48 AppleAndPear
阅读(195)
评论(0)
推荐(0)
编辑