diff options
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; |