From: Yune Kotomi <yune@users.sourceforge.jp>
Date: Sun, 6 Mar 2005 04:30:58 +0000 (+0000)
Subject: 半角スペースを含むゴースト名がghost.txtに存在すると誤動作する問題の修正。
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=HEAD;hp=64f130d4e4dff901c67a6e4e5e22bafdbe67931d;p=winbottle%2Fsvg-dll.git

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

diff --git a/SVG.dpr b/SVG.dpr
index 866747f..115100e 100644
--- 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]);
         // ’è‹`ƒtƒ@ƒCƒ‹‚ð“ǂݍž‚Þ
         BmpFileName := LoadDefinitionFile(Ghost, Surface,
           DefFileName, dum);