memo.lines.add的问题

Question

我正在尝试制作一个聊天应用程序，它会将消息发布到备忘录中，形式如下：

USERNAME-> Message

但它会在我的备忘录中张贴：

USERNAME

这是我的代码：

const
  cnMaxUserNameLen = 254;
var
  sUserName: string;
  dwUserNameLen: DWORD;
  text : string;
begin
  dwUserNameLen := cnMaxUserNameLen - 1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);

  text:= sUserName + '-> ' + edit1.Text;
  memo1.Lines.Add(text);

有关如何修复它的任何建议吗？

Answer 1

dwUserNameLen includes the null-terminator中返回的值。因此，您将其纳入text。当字符串发送到TMemo后面的Windows编辑控件时，该字符串将作为以null结尾的字符串传递。因此，用户名中的迷路null会终止数据传输。

更改代码如下：

SetLength(sUserName, dwUserNameLen-1);

如果出现错误，您还应该检查GetUserName的返回值，但我会将该详细信息留给您。