summaryrefslogtreecommitdiff
path: root/unit1.pas
diff options
context:
space:
mode:
Diffstat (limited to 'unit1.pas')
-rw-r--r--unit1.pas17
1 files changed, 12 insertions, 5 deletions
diff --git a/unit1.pas b/unit1.pas
index 84ef36f..3730e0e 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -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;