diff options
author | Erich Eckner <git@eckner.net> | 2017-03-25 16:22:31 +0100 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2017-03-25 16:22:31 +0100 |
commit | 7c71ed92c05695d5231a2e2206377caa70705b8d (patch) | |
tree | ef8a0d3d1337b3ded121956cfba06df3cc869f07 /unit1.pas | |
parent | 25c7512cef569891941725fab4303d906f84c98f (diff) | |
download | Emails-7c71ed92c05695d5231a2e2206377caa70705b8d.tar.xz |
break gültiger Adressat over many lines if needed
Diffstat (limited to 'unit1.pas')
-rw-r--r-- | unit1.pas | 17 |
1 files changed, 12 insertions, 5 deletions
@@ -89,15 +89,22 @@ begin else if s<>'' then raise exception.create(''''+s+''' ist kein gültiger Wert für ''Ton geben'' (ja|nein)!'); - s:=sl.grepFirst('^gültiger\s+Adressat\s*='); - if s<>'' then begin - erstesArgument(s,'='); - ga:=s; + sl.grep('^gültiger\s+Adressat\s*='); + if sl.count>0 then begin + ga:=''; + sl.rewind; + while sl.readln(s) do begin + erstesArgument(s,'='); + ga:=ga+'|'+s; + end; + delete(ga,1,1); end; sl.free; end; + writeln(ga); + pc:=tPopClient.create; pc.timeout:=10; pc.neueNachrichten:=@neueNachrichten; @@ -136,7 +143,7 @@ begin else sl.add('Ton geben = NEIN'); - sl.add('gültiger Adressat = '+copy(pc.gueltigerAdressat,2,length(pc.gueltigerAdressat)-2)); + sl.addWithLineBreaks('gültiger Adressat = '+umbrechen(copy(pc.gueltigerAdressat,2,length(pc.gueltigerAdressat)-2),'|',true,'gültiger Adressat = ')); sl.saveToFile(extractfilepath(application.exename)+'optionen.konf'); sl.free; |