delphi - delphi7要求的对象或类类型

Question

我尝试将字符串值转换为字符数组。我写了下面的代码但是得到了错误

[Error] Unit1.pas(35): Record, object or class type required

在这一行部分 a := s.ToCharArray;

procedure TForm1.Button1Click(Sender: TObject);
 var
 a: array of char;
 s: String;
begin
 s:= Edit1.Text;
 a := s.ToCharArray;
end;

有什么问题？

Answer 1

在 Delphi 7 中没有字符串助手，因此您会遇到编译错误。改用这个

SetLength(a, Length(s));
Move(Pointer(s)^, Pointer(a)^, Length(s) * SizeOf(s[1]));

现在，SizeOf(s[1]) 在 Delphi 7 中是 1，因此乘法不是绝对必要的，但这确实意味着您的代码可以正常工作如果您转向 Unicode Delphi。

或者，如果 Move 的使用不合您的口味，请使用循环来复制字符

SetLength(a, Length(s));
for i := 1 to Length(s) do
  a[i - 1] := s[i];