Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#3

AW: Best Practice: Wann verwendet ihr Exceptions in Funktionen?

  Alt 10. Dez 2013, 17:05
Wenn ich z.B. ein XML-File auslese in verschiedenen WINDOWS-Versionen,
muss ich damit rechnen, dass nicht alle Werte vorhanden sind.

Delphi-Quellcode:
...
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/SystemScore');
    Form1.Memo1.lines.add(Format(' 1. SystemScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/MemoryScore');
    Form1.Memo1.lines.add(Format(' 2. MemoryScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/CpuScore');
    Form1.Memo1.lines.add(Format(' 3. CpuScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/VideoEncodeScore');
    Form1.Memo1.lines.add(Format(' 4. VideoEncodeScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/GraphicsScore');
    Form1.Memo1.lines.add(Format(' 5. GraphicsScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/GamingScore');
    Form1.Memo1.lines.add(Format(' 6. GamingScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
try
    Nodes := XmlDoc.selectNodes('//WinSAT/WinSPR/DiskScore');
    Form1.Memo1.lines.add(Format(' 7. DiskScore %s',[Nodes.Item(0).Text]));
except on E:Exception do Form1.Memo1.lines.add(' ---> Score not exists.'); end;
  Mit Zitat antworten Zitat