From: yamat0jp <terukohietori@gmail.com>
Date: Mon, 13 Jan 2020 09:19:01 +0000 (+0900)
Subject: 確かに間違ってました、しかしほかに問題があります。
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=a9d161339cd209b68a674e7adde5035f5724f0e3;p=newbbs%2Fnewbbs.git

確かに間違ってました、しかしほかに問題があります。
---

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index 7790a9d..f0892b6 100644
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -66,8 +66,7 @@ begin
   begin
     t := TResourceStream.Create(HInstance, 'Resource_' + i.ToString, RT_RCDATA);
     FDTable1.AppendRecord([i,Format('slide%d.jpg',[i]),nil]);
-    img.SaveToStream(t);
-    FDTable1.Post;
+    streamToField(t);
     t.Free;
   end;
   FDTable1.ApplyUpdates;