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