From: yamat0jp <terukohietori@gmail.com>
Date: Mon, 13 Jan 2020 09:06:26 +0000 (+0900)
Subject: 実は前回のコミット前にいろいろとやっていました
X-Git-Url: http://git.osdn.net/view?p=newbbs%2Fnewbbs.git;a=commitdiff_plain;h=dac9103e4e63098fd67f4e0815089e08e2e1a449

実は前回のコミット前にいろいろとやっていました
FDTransaction, FDSchemaAdapterも試したのですが実らず
---

diff --git a/tool/Unit2.pas b/tool/Unit2.pas
index 73e1423..7790a9d 100644
--- a/tool/Unit2.pas
+++ b/tool/Unit2.pas
@@ -59,22 +59,16 @@ implementation
 procedure TForm1.Button1Click(Sender: TObject);
 var
   i: Integer;
-  s, t: TStream;
+  t: TStream;
 begin
   FDTable1.CachedUpdates := true;
   for i := 1 to 10 do
   begin
     t := TResourceStream.Create(HInstance, 'Resource_' + i.ToString, RT_RCDATA);
-    s := FDTable1.CreateBlobStream(FDTable1.FieldByName('source'),bmWrite);
-    FDTable1.Append;
-    FDTable1.Edit;
-    FDTable1.FieldByName('id').AsInteger:=i;
-    FDTable1.FieldByName('name').AsString:= Format('slide%d.jpg', [i]);
-    img.LoadFromStream(t);
-    img.SaveToStream(s);
+    FDTable1.AppendRecord([i,Format('slide%d.jpg',[i]),nil]);
+    img.SaveToStream(t);
     FDTable1.Post;
     t.Free;
-    s.Free;
   end;
   FDTable1.ApplyUpdates;
   FDTable1.CommitUpdates;