Problem mit String

[Mazen]

Ich merk schon, es liegt wohl doch nicht an mir sondern irgendwie an Delphi...
Danke für alle eure Vorschläge, leider funktionier jedoch keiner davon :/
Wie immer fehlt das letze Hochkomma... Oo

Hier mal ein größerer Ausschnitt, vielleicht leigt der Fehler ja woanders:


Die funktion hier hab ich hier aus dem Forum kopiert...

Code:

function TfrmMain.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;

Code:

userName := getCurrentUserName;
  ShowMessage('benutzer = '''+userName+'''');

[Klaus01]

Delphi-Quellcode:

GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := trim(sUserName);

vielleicht hast Du noch ein #0 am Ende Deines Usernamens.
trim sollte da helfen.

Grüße
Klaus

[Luckie]

Zitat von Klaus01:

vielleicht hast Du noch ein #0 am Ende Deines Usernamens.

Nicht nur vielleicht, sondern mit absoluter Sicherheit.

[Mazen]

Ja, das wars...
Danke euch allen