德尔福：缺少运算符或分号

Question

我使用的是Indy 10（TIdTcpServer），我收到以下错误：

[DCC Error] MainForm.pas(88): E2066 Missing operator or semicolon

尝试运行此代码时：

procedure TForm1.SendMessage(Data: String; Client: Integer);
var
  List: TList;
  AContext: TIdContext;
begin
  List := idTcpServer1.Contexts.LockList;
  AContext(List[0]).Connection.IOHandler.WriteLn(Data);  // Line 88
end;

我无法弄清楚我错过了什么;任何帮助？

Answer 1

虽然我无法解释您所获得的错误，但您的代码完全错误。

将其更改为：

procedure TForm1.SendMessage(Data: String; Client: Integer);
var
  List: TList;
  AContext: TIdContext;
begin
  List := idTcpServer1.Contexts.LockList;
  AContext := TIdContext(List[0]);
  AContext.Connection.IOHandler.WriteLn(Data);
end;

您对非类型的类型转换的错误使用可能会使编译器感到困惑。如果这不能解决问题，请编辑您的问题，以便为您发布的内容添加更多代码（在您发布的内容之前，这十几行会有所帮助）。