[0111]

Эта функция возвращает имя пользователя текущего компьютера:

Код:

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

Админ: Пользуемся тегами для оформления кода!

судя по этой строчке function GetCurrentUserName: string; это строка, но....
если я хочу к этой строке прикрепить ещё текст, работает только в начале, а в конце нет.

Пример:

ShowMessage ('text' + GetCurrentUserName); // такой вариант работает.
ShowMessage (GetCurrentUserName + 'text'); // такой вариант НЕ РАБОТАЕТ.

Пожалуйста объясните почему не работает, и подскажите как сделать чтоб работал. Спасибо