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

Question

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

Answer 1

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

Answer 2

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

Answer 3

var
  str: string;
  c: Char;  ....
  ...
  c := str[i];
  ...

Answer 4

是不是这个意思~
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

Answer 5

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;

Answer 6

用楼主所说的方法转换出来的是Pchar类型，这种类型Ord()函数不支持啊！我要的是可以转换成Ascii码的类型。
晕.....
这指针弄好了很爽的!