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.

zusammenfalten · markieren

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

Zeilenumbruch im Memo

Zeilenumbruch im Memo

Forumregeln