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

markieren

Code:

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

nicht eigneltich als Ausgabe folgendes geben:

markieren

Code:

benutzer = 'admin'

??

Er gibt mir aber:

markieren

Code:

benutzer = 'admin

Auch

markieren

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**

markieren

Delphi-Quellcode:

			Oder 

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

**DeddyH**

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

markieren

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...

markieren

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;

markieren

Code:

			userName := getCurrentUserName;

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

**Klaus01**

markieren

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

Problem mit String

Problem mit String

AW: Problem mit String

AW: Problem mit String

AW: Problem mit String

AW: Problem mit String

AW: Problem mit String

AW: Problem mit String

AW: Problem mit String

AW: Problem mit String

Forumregeln

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#2 AW: Problem mit String 10. Okt 2011, 10:54 Hallo, funktionert es so: showMessage(format('Benutzer = '' %s '' ',[userName])); Grüße Klaus Klaus Geändert von Klaus01 (10. Okt 2011 um 10:56 Uhr)
	Zitat

stahli Registriert seit: 26. Nov 2003 Ort: Halle/Saale 4.337 Beiträge Delphi 11 Alexandria	#3 AW: Problem mit String 10. Okt 2011, 10:54 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. Stahli http://www.StahliSoft.de --- "Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#4 AW: Problem mit String 10. Okt 2011, 10:55 markieren Delphi-Quellcode: Oder ShowMessage('benutzer = '+QuotedStr(userName)); Markus Kinzler
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#7 AW: Problem mit String 10. Okt 2011, 11:06 markieren 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 Klaus
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#8 AW: Problem mit String 10. Okt 2011, 11:15 Zitat von Klaus01: vielleicht hast Du noch ein #0 am Ende Deines Usernamens. Nicht nur vielleicht, sondern mit absoluter Sicherheit. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Mazen Registriert seit: 6. Okt 2011 66 Beiträge Delphi 7 Professional	#9 AW: Problem mit String 10. Okt 2011, 11:46 Ja, das wars... Danke euch allen
	Zitat