GetCurrUsername unterschlägt alles folgende

Nano-Ware · Beiträge: 394 Erhaltene Danke: 7

Hey,

ich nutze diese Funktion, die ich im Internet gefunden habe, um den Benutzernamen auszulesen :

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GetCurrUserName: string;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

Wenn ich jetzt diesen String ausgebe und mit "+" etwas hintendranhänge wird das unterschlagen:

markieren

Delphi-Quelltext

1:	Codex.GetCurrUserName + ' ist cool!'

Ergibt "Benutzername"
Sollte ergeben "Benutzername ist cool!"

Warum?

Moderiert von Narses: Topic aus Internet / Netzwerk verschoben am Di 11.10.2011 um 09:33

Gausi · Verfasst: Mo 10.10.11 21:31

Ich würde vermuten, dass da noch ein #0 hinten dranhängt. Funktioniert das?

markieren

Delphi-Quelltext

1:	trim(Codex.GetCurrUserName) + ' ist cool!'

_________________
We are, we were and will not be.

Nano-Ware · Beiträge: 394 Erhaltene Danke: 7

Danke das hat das Problem gelöst (;

jaenicke · Verfasst: Mo 10.10.11 21:45

Die Funktion ist auch falsch programmiert, siehe Doku:

msdn.microsoft.com/e...esktop/ms724432.aspx hat folgendes geschrieben:

On output, the variable receives the number of TCHARs copied to the buffer, including the terminating null character.

Korrekt wäre:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function GetCurrUserName: string;
var
  Size: DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
    SetLength(Result, Size - 1)
  else
    Result := '';
end;

Nano-Ware · Beiträge: 394 Erhaltene Danke: 7

Dann auch nocheinmal ein Danke an Sie Herr Jaenicke!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme