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

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

8 个解决方案

#1

arr:=pchar(str);

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

#2

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

#3

var
  str: string;
  c: Char;

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

#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

#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;

#6

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

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

#7

OK!谢谢

#8

看不太懂。

#1