我正在尝试制作一个聊天应用程序,它将以如下形式将消息发布到备忘录中:
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);
关于如何解决这个问题有什么建议吗?
最佳答案
dwUserNameLen
中返回的值 includes the null-terminator 。因此,您将其包含在文本
中。当字符串发送到 TMemo
后面的 Windows 编辑控件时,该字符串将作为空终止字符串传递。因此,用户名中的杂散 null 会终止数据传输。
像这样更改代码:
SetLength(sUserName, dwUserNameLen-1);
您还应该检查 GetUserName
的返回值,以防出现错误,但我会将详细信息留给您。
关于string - memo.lines.add 的问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8218628/