Diff for /mozptch/preffile.pas between versions 1.2 and 1.3

version 1.2, 2004/05/13 15:20:51 version 1.3, 2004/05/30 19:51:15
Line 9 Line 9
 # ========  # ========
 #  #
 # $Log$  # $Log$
# Revision 1.2  2004/05/13 15:20:51  oertel# Revision 1.3  2004/05/30 19:51:15  oertel
# - now (beta) support for firefox and thunderbird# -Linux support ready for delivery (beta)
# - mimetype.tmpl will be created if not present# -New Variables for EmailAddress, ncoming and outgoing server
 # -INI-Files debuged
 # - new bin zip file
 #  #
 # Revision 1.1  2004/03/14 12:49:07  oertel  # Revision 1.1  2004/03/14 12:49:07  oertel
 # Initial commit version 9.29  # Initial commit version 9.29
Line 75  begin  Line 77  begin 
   try    try
      LoadFromFile(FileName);       LoadFromFile(FileName);
   except    except
     problem := FileName +' konnte nicht geladen werden.';      problem := 'Could not load file ' + PrefFileName;
     datamodul.writelog('Datei ' + PrefFileName + 'konnte nicht geladen werden');      datamodul.writelog('Could not load file ' + PrefFileName);
      success := false;       success := false;
   end;    end;
 end;  end;
Line 100  var  Line 102  var 
            begin             begin
                LineInFile := True;                 LineInFile := True;
                Strings[i] := ChangeLine;                 Strings[i] := ChangeLine;
               datamodul.writelog('vorhanden und geändert: '+ChangeLine);                datamodul.writelog('Found and changed: '+ChangeLine);
            end;             end;
    inc(i);     inc(i);
    end;     end;
Line 108  var  Line 110  var 
       begin        begin
          i := count - 1;           i := count - 1;
          Insert(i, ChangeLine);           Insert(i, ChangeLine);
         datamodul.writelog('Eingefügt: '+ChangeLine);          datamodul.writelog('Inserted: '+ChangeLine);
       end;        end;
  end;   end;
   
Line 117  var  Line 119  var 
 procedure TPrefFile.UpdateFile;  procedure TPrefFile.UpdateFile;
 begin  begin
      //Sort;       //Sort;
     // führende Leerzeilen löschen - detlef...      // del leading spaces - detlef...
      while Strings[0] = '' do delete(0);       while Strings[0] = '' do delete(0);
      try       try
           SaveToFile(PrefFileName);            SaveToFile(PrefFileName);
          datamodul.writelog('gespeichert: '+PrefFileName);           datamodul.writelog('saved: '+PrefFileName);
      except       except
          problem := 'Neue Datei ' + PrefFileName + 'konnte nicht gespeichert werden';           problem := 'New File ' + PrefFileName + 'could not be saved';
          datamodul.writelog('Neue Datei ' + PrefFileName + 'konnte nicht gespeichert werden');           datamodul.writelog('New File ' + PrefFileName + 'could not be saved');
           success := false;            success := false;
      end;       end;
  end;   end;

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>