Delphi插入字符串时出现问题，类型不兼容错误

Question

procedure TTelephoneNumberConverter.btnConvertClick(Sender: TObject);
var
  number: string;
  dupe: string;
  converted: string;
begin
  number := edtInput.Text ;
  dupe := Copy(number, 4, 1) ;
  converted := Insert(dupe , number , 4 ) ;
  pnlOutput.Caption := converted;
end;

好的，我只是对Delphi 2010以及将字符串插入其他字符串有一个简单的问题。 这小段代码的目的是将第四个字符放在特定字符串中，并将其复制并添加到该特定字符旁边，例如12345-> 123445

唯一的问题是我不断收到错误消息：

不兼容的类型“字符串”和“过程，无类型的指针或无类型的参数”。

我可能缺少一些小而愚蠢的东西，但是如果有人可以回答我的问题，我将不胜感激。

Answer 1

Insert是修改其第二个参数的过程。

它的签名是：

procedure Insert(Source: string; var Dest: string; Index: Integer);

您看到的编译器错误是因为Insert不返回任何内容，因此不能是赋值的rhs。

因此，您的代码应为：

converted := number;
Insert(dupe, converted, 4);

Copy对于单个角色来说是多余的。 使用[]代替：

dupe := number[4];