1.string转换成pchar
可以使用pchar进行强制类型转换,也可以使用StrPCopy函数
- var
- s:string;
- p,p1:PChar;
- begin
- s:='Hello Delphi';
- p:=PChar(s);
- ShowMessage(p);
- p1:=StrAlloc(Length(s)+1);
- StrPCopy(p1,s);
- ShowMessage(p1);
- StrDispose(p1);
- end;
2.pchar转换成string
pchar可以直接当string用,也可以用strpas函数转换一下
- var
- s,s1,s2:string;
- p:PChar;
- begin
- s:='Hello Delphi';
- p:=PChar(s);
- ShowMessage(p);
- s1:=p;
- ShowMessage(s1);
- s2:=StrPas(p);
- ShowMessage(s2);
- end;
3.char数组转换成string
使用StrPas函数获取数组的首地址
- var
- c:array [0..11] of Char;
- s:string;
- begin
- c[0]:='H';
- c[1]:='e';
- c[2]:='l';
- c[3]:='l';
- c[4]:='o';
- c[5]:=' ';
- c[6]:='D';
- c[7]:='e';
- c[8]:='l';
- c[9]:='p';
- c[10]:='h';
- c[11]:='i';
- s:=StrPas(@c[0]);
- ShowMessage(s);
- end;
4.string转char数组
使用move或者copymemory函数
- var
- s:string;
- c:array of Char;
- i:Integer;
- begin
- s:='Hello Delphi';
- SetLength(c,Length(s));
- //Move(s[1],c[0],Length(s));//move和CopyMemory都行
- CopyMemory(@c[0],PChar(s),Length(s));
- for i:=Low(c) to High(c) do
- begin
- ShowMessage(string(c[i]))
- end;
- end;
5.char数组转pchar
- var
- c:array [0..11] of Char;
- p:PChar;
- begin
- c:='Hello Delphi';
- //p:=@c[0];
- p:=PChar(@c[0]);
- ShowMessage(StrPas(p));
- end;
6.pchar转char数组
使用move或者CopyMemory函数
- var
- s:string;
- p:PChar;
- c:array of Char;
- i:Integer;
- begin
- s:='Hello Delphi';
- p:=PChar(s);
- SetLength(c,Length(s));
- //Move(p^,c[0],Length(s));//move和CopyMemory都行
- CopyMemory(@c[0],p,Length(s));;
- for i:=Low(c) to High(c) do
- begin
- ShowMessage(string(c[i]))
- end;
- end;