Problem mit String

[Mazen]

Hallo Leute, habe ein merkwürdiges Problem mit 'nem String :/
Vielleicht hab ich auch einfach nur nen mächtiges Brett vorm Kopf, aber ich versteh einfach nicht wieso das nciht geht :/

Sollte mir folgender Code

Code:

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

nicht eigneltich als Ausgabe folgendes geben:

Code:

benutzer = 'admin'

??

Er gibt mir aber:

Code:

benutzer = 'admin

Auch

Code:

ShowMessage('benutzer = '''+userName+#39);

Funktioniert nicht... immer fehlt das letzte Hochkomma Oo
Weiß jemand wodran das liegt?

[Klaus01]

Hallo,

funktionert es so:
showMessage(format('Benutzer = '' %s '' ',[userName])); Grüße
Klaus

[stahli]

Ohne Format ginge es so:

ShowMessage('benutzer = ' + '''' + userName + ''''); Das liest sich zwar auch nicht besonders gut, aber so behält man zumindest etwas besser den Überblick.

[mkinzler]

Delphi-Quellcode:

Oder 
ShowMessage('benutzer = '+QuotedStr(userName));

[DeddyH]

Diese 3 funktionieren bei mir hier (XE auf Vista 32) alle:

Delphi-Quellcode:

  ShowMessage('benutzer = '''+userName+'''');
  ShowMessage('benutzer = ' + QuotedStr(userName));
  ShowMessage(Format('benutzer = %s', [QuotedStr(userName)]));

[edit] Ist der rote Kasten wieder im Urlaub? [/edit]

[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