文档章节

PChar 类型的又一些用法

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 112
阅读 1
收藏 0
//使用 PChar^
var
  p: PChar;
begin
  p := PChar('abcd');
  ShowMessage(p);    {abcd}
  ShowMessage(p^);   {a}
  p := p + 2;
  ShowMessage(p^);   {c}
  Dec(p);
  ShowMessage(p^);   {b}
  ShowMessage(p);    {bcd}
end;

 
 
 
 
 

 

 

  
//遍历 PChar 中的字符 var p: PChar; begin p := PChar('abcd'); while p^ <> #0 do begin ShowMessage(p^); {分别显示: a、b、c、d} Inc(p); end; end;
//替代缓冲区与内存分配的简单方法 var p: PChar; begin p := PChar(StringOfChar(#0, 255)); GetWindowsDirectory(p, 255); {譬如获取 Windows 目录} ShowMessage(p); {C:\WINDOWS} end;

本文转载自:http://www.cnblogs.com/del/archive/2008/04/06/1139594.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
iOS开发学习之关键字Typedef的用法详解

用法一 使用Typedef定义一种类型的别名,而不只是简单的宏替换。可以用作同时声明指针型的多个对象。比如: char* pa, pb; // 这多数不符合我们的意图,它只声明了一个指向字符变量的指针,和...

水一样的人儿
2016/05/04
36
0
delphi pchar char byte string转换问题

delphi pchar char byte string转换问题 注:Delphi中的Char,PChar,PByte,Byte,String的相互转换,您是不是也遇到过,为此头疼过吗?你要是明白了他们的原理就会轻松了。 话题064840的标题是...

鹅倌
2017/01/06
0
0
用好Delphi中的字符串

用好Delphi中的字符串日期:2005年10月18日 作者: 人气:17184 查看:[大字体 中字体 小字体]一:各种字符串  字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参...

vga
2016/08/09
14
0
从struct到typedef

1.struct的用法 1.1 : 先定义结构体类型,再定义结构体结构体变量 struct结构体类型名 { //成员列表 }; 如: //定义point结构体类型 struct point { int x; int y; }; 定义两个变量: struct...

HeroHY
03/04
8
0
C语言难点专题——const

1. const对值类型的数据修饰: 如基本类型(int, double, char), struct, array 值类型的数据,const放置在前面和后面都一样。 对于struct和 Array类型的数据, 跟java的类对象不同,由于jav...

晨曦之光
2012/03/09
69
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

HTTPS is easy

HTTPS is easy https://www.troyhunt.com/https-is-easy/ HTTPS is easy! In fact, it's so easy I decided to create 4 short videos around 5 minutes each to show people how to enable ......

openthings
26分钟前
0
0
bugList 2

用户端: 1. 上传文件时,当选择:彩色-A3-双面时,第二个图片有bug 应改为 和第一个图片的类型相同 2. 确认打印时,三个下拉选目前有bug 应改为:根据后台配置的商家,group by计算出不同城...

勇恒
28分钟前
2
0
keras cnn 网咯 mnist 分类

搭建貌似比tf是简单很多。。。。。 from keras.datasets import mnistfrom keras.utils import np_utilsfrom keras.models import Sequentialfrom keras.layers import Dense, Activat......

阿豪boy
31分钟前
0
0
解决 /var/run/nginx.pid failed

nginx: [error] open() "/var/run/nginx.pid" failed (2: No such file or directory) sudo nginx -c /etc/nginx/nginx.conf nginx -s reload...

驛路梨花醉美
32分钟前
0
0
nginx负载均衡-ssl原理-生成ssl密钥对-nginx配置ssl

nginx负载均衡: 1.创建配置文件 vim /usr/local/nginx/conf/vhost/load.conf #添加以下内容: upstream qq_com #名字自定义,借助此模块定义多个IP,后面...

ZHENG-JY
33分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部