在Delphi如何将一个string类型转换为Char类型？

[listen_snow]

在全文检索中寻找到的所有相关主题，不知什么原因全部打不开，只有另开一贴问一下。

[helodd]

arr:=pchar(str);

for i:=0 to length(str)-1 do
arr[i]:=str[i];

[listen_snow]

用楼主所说的方法转换出来的是Pchar类型，这种类型Ord()函数不支持啊！我要的是可以转换成Ascii码的类型。

[阿呆_]

var
str: string;
c: Char;

....
...
c := str[i];
...

[helodd]

是不是这个意思~
var
c1:char;
c2:char;
ca:array[100] of char;
str:string;
begin
str:='abc';
c1:=str[1];
c2:=str[2];

CopyMemory(@str[1],@ca,length(str)-1); --复制字串到字符数组
end

[Dlwxn]

procedure TForm1.Button2Click(Sender: TObject);
var
s: String;
c: Char;
i: Integer;
begin
s:= '123';
for i := 1 to Length(s) do
begin
c := s[i];
ShowMessage(IntToStr(ord(c)));
end;
end;

[crbb]

用楼主所说的方法转换出来的是Pchar类型，这种类型Ord()函数不支持啊！我要的是可以转换成Ascii码的类型。


晕.....
这指针弄好了很爽的!

[listen_snow]

OK!谢谢

[heisedeouran]

看不太懂。