TStringListの代わりにTHashedStringListを使うように変更。

ちょっとだけ処理速度が高速化したはず。

diff --git a/SVG.dll.txt b/SVG.dll.txt
index fbeb2f3..6b0947b 100644 (file)
--- a/SVG.dll.txt
+++ b/SVG.dll.txt
@@ -24,7 +24,8 @@ SSTP-Viewer
 \81@2.3 SVG3\82Ì\8ed\97l\82É\89Â\94\\82È\8cÀ\82è\91Î\89\9e\81B\83R\83\81\83\93\83g\81A/EOF\93\99\82É\91Î\89\9e\81B
 \81@2.4 surface\82Ì\83L\81[\82ª\96¾\8e¦\82³\82ê\82½\83u\83\8d\83b\83N\82ð\94F\8e¯\82µ\82È\82¢\96â\91è\82ð\8fC\90³\81B
 \81@2.5 surfacefile\83G\83\93\83g\83\8a\82ªsakura\83G\83\93\83g\83\8a\82æ\82è\91O\82É\82 \82é\8fê\8d\87\82Ì\96â\91è\82ð\8fC\90³\81B
-\81@NEXT ghost.txt\93Ç\82Ý\8fo\82µ\8e\9e\83C\83\93\83f\83b\83N\83X\83G\83\89\81[\82ª\8fo\82é\82±\82Æ\82ª\82 \82é\96â\91è\82ð\8fC\90³\81B
+\81@2.6 ghost.txt\93Ç\82Ý\8fo\82µ\8e\9e\83C\83\93\83f\83b\83N\83X\83G\83\89\81[\82ª\8fo\82é\82±\82Æ\82ª\82 \82é\96â\91è\82ð\8fC\90³\81B
+\81@\81@\81@\93à\95\94\8f\88\97\9d\82Ì\8d\82\91¬\89»\81B
 
 \81\9c\90§\8cÀ
 \81@GIF\8c`\8e®\82Ì\83T\81[\83t\83B\83X\89æ\91\9c\83t\83@\83C\83\8b\82Í\83T\83|\81[\83g\82µ\82Ä\82¢\82Ü\82¹\82ñ\81B

diff --git a/SVG.dpr b/SVG.dpr
index c9040ab..098877e 100644 (file)
--- a/SVG.dpr
+++ b/SVG.dpr
@@ -18,7 +18,7 @@ const
 var
   MyPath: String;
   GhostFile: String;
-  Ghost2File: TStringList;
+  Ghost2File: THashedStringList;
 
   Pic: TPicture;       // \93Ç\82Ý\8eæ\82Á\82½\89æ\91\9c(*.png, *.bmp, *.jpg)
   PicFileName: String; // \82»\82Ì\83t\83@\83C\83\8b\96¼
@@ -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;