将字符串分配给字符数组

Question

问题一

我

var example : array[0..15] of char;

想将输入中的值分配给该变量

example := inputbox('Enter Name', 'Name', '');

---

在高分单元中，我有记录和数组

type
points = record
var
  _MemoryName : array[0..15] of char;
  _MemoryScore : integer;
end;

var
rank : array[1..3] of points;

---

var s: string;
 a: packed array[0..15] of char;

highscoresdata.position[1]._MemoryName := StrPLCopy(a, s, Length(a)) ;

返回 -> (186): E2010 不兼容类型：'array[0..15] of Char' 和 'PWideChar'

var s: string;
 a: packed array[0..15] of char;

             s := InputBox('caption', 'Caption', 'Caption');
             FillChar(a[0], length(a) * sizeof(char), #0);
             Move(s[1], a[0], length(a) * sizeof(char));
      scores.rank[1]._MemoryName := <<tried both s and a>> ;

返回 (189): E2008 不兼容类型

Answer 1

问题一

方法有很多。一是：

procedure TForm1.FormCreate(Sender: TObject);
var
  s: string;
  a: packed array[0..15] of char;
begin
  s := InputBox(Caption, Caption, Caption);
  assert(length(s) <= 16);
  FillChar(a[0], length(a) * sizeof(char), #0);
  Move(s[1], a[0], length(s) * sizeof(char));
end;

但我怀疑，对于你原来的问题可能有一个更优雅的解决方案。

问题二

每当您希望函数/过程没有特定参数时，您应该意识到项目的设计可能存在问题。然而，Sender 参数是多余的并不罕见，因为由于 VCL 的设计（特别是 TNotifyEvent），它们几乎无处不在。如果您知道接收过程不关心 Sender 参数，只需给它任何东西，例如 Self 或 nil。

问题三

考虑这段代码：

procedure TForm4.FormCreate(Sender: TObject);
var
  a: packed array[0..15] of char;
  b: packed array[0..15] of char;
begin
  a := b;
end;

这不起作用。你不能像对待字符串一样对待数组；特别是，您不能像这样分配静态数组 (a := b)。

相反，您必须执行类似...

Move(b[0], a[0], length(a) * sizeof(char));

...或者只是循环并一次复制一个值。但是，如果您声明静态数组类型，则上述简单赋值 (a := b) 确实有效：

type
  TChrArr = packed array[0..15] of char;

procedure TForm4.FormCreate(Sender: TObject);
var
  a: TChrArr;
  b: TChrArr;
begin
  b := a;
end;

Answer 2

Andreas 已为您解答了问题 1。

问题 2

我会安排您的事件处理程序调用另一个方法：

procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  RespondToEditControlKeyPress;
end;

这样您就可以直接调用 RespondToEditControlKeyPress。

我猜您想在不带参数的情况下调用它，因为您希望在修改编辑控件的文本时运行代码。您也许可以使用 OnChange 事件来代替。 OnChange 可能更合适，因为按键并不是将文本输入编辑控件的唯一方法。

---

顺便说一句，最好在 Stack Overflow 上一次问一个问题。

Answer 3

用于将字符串类型值复制到字符数组类型值的快速方法。我建议使用这样的小辅助函数：

procedure StrToCharArray( inputStr:String; var output; maxlen:Integer);
type
    ArrayChar = Array[0..1] of Char;
begin
  StrLCopy( PChar(@ArrayChar(output)[0]),PChar(inputStr),maxlen);
end;

每次调用它时，传入要复制的最大长度。请记住，如果缓冲区长度为 15，则应传入 14 作为 maxlen，以便为终止 nul 字符留出空间（如果您打算始终终止字符串）：

StrToCharArray( UserInputStr,  MyRecord.MyField,  14 );

此函数将确保复制到记录中的数据以空终止，假设这就是您想要的。请记住，在固定长度字符数组中，由您决定规则是什么。空终止？完全用空格或空字符填充......字符串和字符数组是如此不同，以至于存在多种可能的方式在两者之间进行转换。

如果您不打算用 nul 终止字符串，那么您应该使用其他人的答案中显示的 FillChar+Move 组合。

Answer 4

显而易见的答案是当然。
不要使用压缩的字符数组。

请改用字符串。
如果您使用 ansiststring，1 个字符将始终占用 1 个字节。
如果您使用 shortstring 同上。

Ansistring 与 Pchar 兼容，Pchar 是指向 char 压缩数组的指针。

所以你可以写

function inputbox(a,b,c: ansistring): pchar;
begin
  Result:= a+b+c;
end;

var s: ansistring;
begin
  s:= inputbox('a','b','c');
end;

一些建议
看起来您正在将代码从 c 转换为 Delphi。

char 压缩数组 与旧的 (1995) shortstring 完全相同，减去 shortstring 开头的长度字节。

我能想到使用压缩字符数组的唯一原因是当您从磁盘读取数据或从磁盘读取数据时，并且您有不想更改的遗留代码。

我将保留遗留代码以从磁盘读取和写入，然后将数据传输到 ansisstring 中，并且从那里仅使用 ansisstring。

这太简单了，Delphi 为您做一切。
而且... ansisstring 速度更快，自动创建和销毁，可以具有任意长度（最多 2GB），使用更少内存 - 因为仅存储相同的字符串一次（这意味着 stringa:= stringb ，其中字符串为 20 个字符，使用 ansistrings 比使用 char 数组至少快 5 倍）。
当然最重要的是，ansiststring 不可能出现缓冲区溢出错误。

unicodestring怎么样？
Unicodestring 很好用，但有时在 char 压缩数组 和 unicodestring 之间转换时会发生字符转换，因此我建议在这种情况下使用 ansistring。

Answer 5

实际上，您尝试做的事情是不可能的：

  highscoresdata.position[1]._MemoryName := StrPLCopy(a, s, Length(a));

尝试将指针（StrPLCopy 的结果，Delphi 的最后几个版本中的 PWideChar）分配给数组，这确实是不可能的。你不能像这样复制一个数组。我会这样做：

  StrLCopy(highscoresdata.position[1]._MemoryName, PChar(s),
    Length(highscoresdata.position[1]._MemoryName));

这应该可行，并且在我看来，这是将字符串复制到字符数组的最简单的解决方案。没有必要使用 a 作为某种中间体，并且使用 Move 在我看来是相当低级的，因此有点棘手（很容易忘记乘以字符的大小，它是未经检查的，它不会添加 #0 等），尤其是当您不知道自己到底在做什么时。

该解决方案甚至适用于 Delphi 2009 之前的 Delphi 版本，因为它不依赖于字符的大小。

FWIW，我不会使用打包数组。 Packed 在当前的 Delphi 中没有意义，但可能会混淆编译器并使类型不兼容。