From: naru <bottle@mikage.to>
Date: Sat, 20 Mar 2004 08:33:08 +0000 (+0000)
Subject: TStringListの代わりにTHashedStringListを使うように変更。
X-Git-Url: http://git.osdn.net/view?p=winbottle%2Fsvg-dll.git;a=commitdiff_plain;h=09cba12b40b197dc79bb8af40d73d3efb40a362b

TStringListの代わりにTHashedStringListを使うように変更。
ちょっとだけ処理速度が高速化したはず。
---

diff --git a/SVG.dll.txt b/SVG.dll.txt
index fbeb2f3..6b0947b 100644
--- a/SVG.dll.txt
+++ b/SVG.dll.txt
@@ -24,7 +24,8 @@ SSTP-Viewer
 @2.3 SVG3‚ÌŽd—l‚ɉ”\‚ÈŒÀ‚è‘ΉžBƒRƒƒ“ƒgA/EOF“™‚ɑΉžB
 @2.4 surface‚̃L[‚ª–¾Ž¦‚³‚ꂽƒuƒƒbƒN‚ð”FŽ¯‚µ‚È‚¢–â‘è‚ðC³B
 @2.5 surfacefileƒGƒ“ƒgƒŠ‚ªsakuraƒGƒ“ƒgƒŠ‚æ‚è‘O‚É‚ ‚éê‡‚Ì–â‘è‚ðC³B
-@NEXT ghost.txt“ǂݏo‚µŽžƒCƒ“ƒfƒbƒNƒXƒGƒ‰[‚ªo‚邱‚Æ‚ª‚ ‚é–â‘è‚ðC³B
+@2.6 ghost.txt“ǂݏo‚µŽžƒCƒ“ƒfƒbƒNƒXƒGƒ‰[‚ªo‚邱‚Æ‚ª‚ ‚é–â‘è‚ðC³B
+@@@“à•”ˆ—‚̍‚‘¬‰»B
 
 œ§ŒÀ
 @GIFŒ`Ž®‚̃T[ƒtƒBƒX‰æ‘œƒtƒ@ƒCƒ‹‚̓Tƒ|[ƒg‚µ‚Ä‚¢‚Ü‚¹‚ñB
diff --git a/SVG.dpr b/SVG.dpr
index c9040ab..098877e 100644
--- a/SVG.dpr
+++ b/SVG.dpr
@@ -18,7 +18,7 @@ const
 var
   MyPath: String;
   GhostFile: String;
-  Ghost2File: TStringList;
+  Ghost2File: THashedStringList;
 
   Pic: TPicture;       // “Ç‚ÝŽæ‚Á‚½‰æ‘œ(*.png, *.bmp, *.jpg)
   PicFileName: String; // ‚»‚̃tƒ@ƒCƒ‹–¼
@@ -41,7 +41,7 @@ begin
   end;
   if not FileExists(GhostFile) then
     ShowMessage('SVG.dll Warning: Ghost file is not specified');
-  Ghost2File := TStringList.Create;
+  Ghost2File := THashedStringList.Create;
   Pic := TPicture.Create;
   PicFileName := '';
 end;