Delphi:缺少运算符或分号

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;

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