Thema: Delphi Zeilenumbruch im Memo

Einzelnen Beitrag anzeigen

Masterof

Registriert seit: 12. Feb 2004
Ort: Bad Elster
142 Beiträge
 
Delphi 7 Enterprise
 
#1

Zeilenumbruch im Memo

  Alt 20. Apr 2005, 17:54
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
Miniaturansicht angehängter Grafiken
fehler_823.jpg  
.: Meine Homepage :.
http://www.micha-hertel.de
  Mit Zitat antworten Zitat