关于DELPHI数组,指针,字符串转换的例子!(转)
2014-07-04 15:08
351 查看
var
aa: array [0..5] of Char;
bb:Pointer;
cc:string;
dd:PChar;
procedure TForm1.Button1Click(Sender: TObject);
begin
dd:='abcdef';
//以下是pchar内容转数组
FillChar(aa,length(dd),#0);
Move(dd^,aa,SizeOf(aa));
//以下是数组传递到指针
bb:=GetMemory(SizeOf(aa));
Move(aa,bb^,SizeOf(aa));
//以下是指针内容传递给字符串
SetLength(cc,SizeOf(aa));
Move(bb^,cc[1],SizeOf(aa));
FreeMemory(bb);//这个是释放内存
//以下是数组转pchar
dd:='';
dd:=PChar(@aa);
MessageBox(0,PChar('cc: '+cc),PChar('dd: '+dd),0);
end;
aa: array [0..5] of Char;
bb:Pointer;
cc:string;
dd:PChar;
procedure TForm1.Button1Click(Sender: TObject);
begin
dd:='abcdef';
//以下是pchar内容转数组
FillChar(aa,length(dd),#0);
Move(dd^,aa,SizeOf(aa));
//以下是数组传递到指针
bb:=GetMemory(SizeOf(aa));
Move(aa,bb^,SizeOf(aa));
//以下是指针内容传递给字符串
SetLength(cc,SizeOf(aa));
Move(bb^,cc[1],SizeOf(aa));
FreeMemory(bb);//这个是释放内存
//以下是数组转pchar
dd:='';
dd:=PChar(@aa);
MessageBox(0,PChar('cc: '+cc),PChar('dd: '+dd),0);
end;
相关文章推荐
- 关于DELPHI数组,指针,字符串转换的例子!(转)
- DELPHI数组,指针,字符串转换的例子
- 动态数组和指针转换(DELPHI)
- 关于字符串常量指针和字符串数组的区别
- 关于c语言中的字符数组和字符串指针
- *Delphi的字符串、PChar和字符数组之间的转换
- Delphi字符串、PChar与字符数组之间的转换
- 关于数组名与指针的相互转换
- Delphi 字符、字符串、字符数组和字符指针及其相关函数
- 关于数组与指针的应用及区别-针对字符串去左边多余的‘0’字符
- Delphi的字符(Char), 字符串(String), 字符串指针( PChar ), 字符数组 array of char
- 关于日期转换成字符串和字符串转换成日子的例子
- 关于动态数组指针操作的两个例子
- 关于字符串 字符数组 字符型指针的问题
- 关于字符串数组,指针定义数组
- 关于动态数组、静态数组转换为字符串的一些问题 - 给 "厨师" 的回复
- Delphi字符串、PChar与字符数组之间的转换
- 字符串数组和字符串指针(有关于指针的思考)
- delphi中的字符串,字符串数据,字符串指针的转换以及不同字符串格式的转换
- 关于List,字符串,数组的相互转换总结