String ist nicht ereiterbar!!

[TitanNano]

Hallo,
Ich habe mir aus dem Internet eine Funktion geholt, die den aktuellen Benutzer ausliest, das klappt auch super, doch kann ich wenn ich den Namen irgend wo verwende, keinen weiteren String anhängen. Das bei allen Funktionen so, die ich gefunden habe, was genau muss ich den mit dem String denn noch machen, bevor ich ihn verwende??

mfg. TitanNano

[mkinzler]

Mit welche Funktion?
Schau dir mal StrPas() an

[TitanNano]

meinst du die Funktion die den Nutzer Namen aus liest??

Delphi-Quellcode:

function TForm3.GetUser: 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;

[wicht]

So solltes klappen..

Delphi-Quellcode:

function TForm3.GetUser: string;
var
  Size : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  SetLength(Result, Size);
  if GetUserName(PChar(Result), Size) then
  begin
    SetLength(Result, Size);
    Result := Result + ' ist der aktuelle Benutzer!'; // <<------
  end else
    Result := '';
end;

HTH

[TitanNano]

tut mir Leid aber es hat sich nicht geändert!!

[Sir Rufo]

... und so ... ?

Delphi-Quellcode:

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

[TitanNano]

ne, das hab ich selber auch Grad probiert.

[pmoegenb]

Oder so:

Delphi-Quellcode:

function GetUserID: string;
var
   szUserName : array[0..99] of Char;
   dwSize     : DWORD;
begin
     FillChar(szUserName, SizeOf(szUserName), 0);
     dwSize := SizeOf(szUserName);
     GetUserName(szUserName, dwSize);
     Result := UPPERCASE(szUserName);
end;

[shmia]

Hier erst mal eine funktionierende Funktion um den lokalen Benutzer abzufragen:
(MAX_COMPUTERNAME_LENGTH ist nicht gleich der max. Länge des Benutzers)

Delphi-Quellcode:

function GetLocalUserName: string;
var
  Count: DWORD;
begin
  Count := 256 + 1; // UNLEN + 1
  SetLength(Result, Count);
  if GetUserName(PChar(Result), Count) then
    StrResetLength(Result)
  else
    Result := '';
end;

Natürlich würde man diese Funktion niemals ändern nur um noch einen Text hinzuzufügen!
Den Benutzernamen um irgendeinen Hinweistext zu erweitern ist trivial.
Goldene Regel bei der Stringverarbeitung:
Wenn man Probleme hat, immer Zwischenvariablen verwenden.
Eine ganz einfache Sache; man darf nur nicht schreibfaul sein.

Delphi-Quellcode:

var
  Benutzermeldung : string;
begin
  Benutzermeldung := 'Benutzername ist <'+GetLocalUserName+'>';
  ShowMessage(Benutzermeldung);
end;

[TitanNano]

danke für die Antwort, aber mein Delphi erkennt die Funktion StrResetLength nicht.