ghost.txtを読む際に文字列インデックスエラーが出ることがある問題を修正。

[winbottle/svg-dll.git] / SVG.dpr

diff --git a/SVG.dpr b/SVG.dpr
index 4d772c5..c9040ab 100644 (file)
--- a/SVG.dpr
+++ b/SVG.dpr
@@ -342,6 +342,8 @@ begin
       for i := 0 to Ghosts.Count-1 do
       begin
         AGhost.CommaText := Ghosts[i];
+        if AGhost.Count = 0 then
+          Continue;
         if AGhost[0] <> 'GHOST' then
           Continue;
         DefFileName := Dir + AGhost[3];