半角スペースを含むゴースト名がghost.txtに存在すると誤動作する問題の修正。

diff --git a/SVG.dpr b/SVG.dpr
index 866747f..115100e 100644 (file)
--- a/SVG.dpr
+++ b/SVG.dpr
@@ -341,12 +341,12 @@ begin
     try
       for i := 0 to Ghosts.Count-1 do
       begin
-        AGhost.CommaText := Ghosts[i];
+        AGhost.Text := StringReplace(Ghosts[i], ',', #13#10, [rfReplaceAll]);
         if AGhost.Count = 0 then
           Continue;
         if AGhost[0] <> 'GHOST' then
           Continue;
-        DefFileName := Dir + AGhost[3];
+        DefFileName := Dir + StringReplace(AGhost[3], '"', '', [rfReplaceAll]);
         // \92è\8b`\83t\83@\83C\83\8b\82ð\93Ç\82Ý\8d\9e\82Þ
         BmpFileName := LoadDefinitionFile(Ghost, Surface,
           DefFileName, dum);