string - 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 。因此，您将其包含在文本中。当字符串发送到 TMemo 后面的 Windows 编辑控件时，该字符串将作为空终止字符串传递。因此，用户名中的杂散 null 会终止数据传输。

像这样更改代码:

SetLength(sUserName, dwUserNameLen-1);

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