Exception error loading preset

[GoogleCodeExporter]

Application raises exception error (version 1.3.0) on OpenSUSE 11.2/11.3. 
Making some changes in source fixes this bug:

// get the destination directory from the preset
function tform1.getpresetdestdir(presetname:string):string;
var
dirnode : tdomnode;
destdir:string;
begin
   result := '';
 if presetname <> '' then
 begin
   try
     if presets.FindNode(presetname) <> nil then
       if presets.FindNode(presetname).FindNode('destdir') <> nil then
         if presets.FindNode(presetname).FindNode('destdir').HasChildNodes then
           begin
             dirnode:=presets.FindNode(presetname).FindNode('destdir').FindNode('#text');
             destdir:=dirnode.NodeValue;
           end;
   except
    destdir:='';
   end;
   result:=destdir;
 end;
end; 

Maybe you add this fix in future releases :) thanks!

Original issue reported on code.google.com by maelstrom2001@gmail.com on 28 Jul 2010 at 11:42

[GoogleCodeExporter]

thanks

Original comment by bgg...@gmail.com on 28 Jul 2010 at 7:13

[GoogleCodeExporter]

i just removed the code. I am going to take a different approach to it.

Original comment by bgg...@gmail.com on 2 Aug 2010 at 11:32

• Changed state: Fixed