[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'); // такой вариант НЕ РАБОТАЕТ.

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

[angvelem]

Добавь переменную

Код:

var
  St : String;
begin
...
  St := GetCurrentUserName + 'text';
  ShowMessage(St);
...

[0111]

Через переменную не работает тоже (получается просто имя пользователя без текста).
Единственное нашёл способ пока что, это назначь свойству какому нибудь элементу (скрытому например) потом делать конкатенацию этого свойства с текстом и уже выводить. А по нормальному не получается. Я предполагаю что функция может возвращает не совсем строку, а какой то другой тип и может быть по этому не работает конкатенация ?

[Alegun]

Не правильно задаётся размерность строки, конечный #0 в ней остаётся, надо так

Код:

...
SetLength(sUserName, dwUserNameLen - 1 );
...

[0111]

Сообщение от Alegun

Не правильно задаётся размерность строки, конечный #0 в ней остаётся, надо так

Код:

...
SetLength(sUserName, dwUserNameLen - 1 );
...

Большое спасибо, действительно так всё работает.

Остался вопрос почему (-1) не перешёл в переменную dwUserNameLen ?

[Alegun]

Сообщение от 0111

...почему (-1) не перешёл в переменную dwUserNameLen ?

Специфика такая у конструкции PChar При первой SetLength(sUserName, cnMaxUserNameLen) ноль обрубается, а при вызове GetUserName нет, т.к. передаваемые данные в пичарке.