проблемы с 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 , включает нулевой терминатор .И вы, таким образом, включаете его в text.Когда строка отправляется в элемент управления редактирования Windows за TMemo, строка передается как строка с нулевым символом в конце.Таким образом, случайный ноль из имени пользователя прекращает передачу данных.

Измените код следующим образом:

SetLength(sUserName, dwUserNameLen-1);

Вы также должны проверить возвращаемое значение GetUserName в случае, если естьошибка, но я оставлю эту деталь вам.