Zeilenumbruch im Memo

[Masterof]

Hallo!

Ich habe ein Programm geschrieben das mir ein Loginscript zusammensetzt. Bevor ich das Loginscript speichere lasse ich mir es in einem Memo anzeigen.
Mein Problem ist, dass bei den Laufwerksangaben ein Zeienumbruch eingefügt wird, der nicht sein darf.
der Code für das anzeigen sieht wie folgt aus.

Delphi-Quellcode:

procedure Tfrmmain.edcreateClick(Sender: TObject);
var fstline, secline,vari, fname, frei1, lwbez1, lw: string;
begin
if (edsname.Text = '') or (edscriptn.Text = '') then
 showmessage('Bitte ALLE Felder ausfüllen!')
else
begin
 btsave.Enabled:= true;
 fstline:= 'set objnetwork = wscript.createObject("Wscript.Network")';
 secline:= 'Set WSHShell = WScript.CreateObject("WScript.Shell")';
 sname:= edsname.Text;
 frei1:= '\\' + sname  + fr1;
 scriptn:= edscriptn.Text;
 scriptn := scriptn + '.vbs';
 smemo.Lines.Add(fstline);
 smemo.Lines.Add(secline);
 smemo.Lines.Add('');
 smemo.Lines.Add('dim firma');
 smemo.Lines.Add('');
 smemo.Lines.Add('firma = "'+ firma+ '"');
 if (rgmisst.ItemIndex = 0) then
 begin
   smemo.Lines.add('user = ""');
   smemo.Lines.add('on error resume next');
   smemo.Lines.add('do');
   smemo.Lines.add(' user = objnetwork.username');
   smemo.lines.add('loop while user = ""');
 end;
 smemo.Lines.Add(frei1);
 smemo.lines.add('');
 lwbez1:= cblwbez.Items.Text;
 lw:= (remove + ' "'+ lwbez1+':"');
 smemo.Lines.add(lw);

end;

end;

Die hervorgehobene Zeile ist die, die es betrifft. Ich habe bei den Eigenschaften des Memos WordWrap auf False gesetzt.
Wie kann ich diesen Zeilenumbruch verhindern?

MfG Master

[sakura]

Zitat:

Zitat von Masterof

Die hervorgehobene Zeile ist die, die es betrifft.

Welche Zeile ist denn da hervorgehoben :gruebel:

...:cat:...

[Masterof]

sorry!!

ich meine
smemo.Lines.add(lw);

danke für den Hinweis.

Master

[jfheins]

Wenn kein Zeilenumbruch hinzugefügt werden soll, mach's so:

Delphi-Quellcode:

smemo.Lines.text := smemo.Lines.text + 'Text';

[Masterof]

Hallo!

Leider trägt er die Zeile dann überhaupt nicht in das Memo ein. Wenn ich die Variable in einem Showmessage ausgebe ist der Zeilenumbruch schon drin.

Master

[Treffnix]

dann musst du in deiner Variable ( lw ) nach #13#10 suchen und löschen

[marabu]

Den ungewollten Zeilenumbruchhast du so selbst rein geschafft:

Delphi-Quellcode:

lwbez1 := cblwbez.Items.Text;

Besser du greifst über den passenden Index zu:

Delphi-Quellcode:

lwbez1 := cblwbez.Items[cblwbez.ItemIndex];

[Masterof]

Hallo!!

Danke Marabu es hat funktioniert.

MfG Master