From 91fc6e39ec3eaacccf479de23ec65204d1f26319 Mon Sep 17 00:00:00 2001 From: yamat0jp Date: Sun, 2 Feb 2020 19:16:26 +0900 Subject: [PATCH] =?utf8?q?=E4=B8=80=E5=BF=9C=E8=90=BD=E3=81=A1=E7=9D=80?= =?utf8?q?=E3=81=8D=E3=81=BE=E3=81=97=E3=81=9F=E3=80=80=E3=81=BE=E3=81=A0?= =?utf8?q?=E3=83=95=E3=82=A1=E3=83=93=E3=82=B3=E3=83=B3=E3=81=AF=E8=A8=AD?= =?utf8?q?=E5=AE=9A=E3=81=95=E3=82=8C=E3=81=BE=E3=81=9B=E3=82=93=E3=80=80?= =?utf8?q?=E3=81=AA=E3=81=9C=E3=81=A7=E3=81=97=E3=82=87=E3=81=86?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- tool/Unit2.pas | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/tool/Unit2.pas b/tool/Unit2.pas index d5952ed..b1f7fc8 100644 --- a/tool/Unit2.pas +++ b/tool/Unit2.pas @@ -108,26 +108,25 @@ var s, s2: string; t: TMemoryStream; begin + Button4Click(nil); if OpenPictureDialog1.Execute = true then with FDTable1 do begin - i := RecordCount + 1; t := TMemoryStream.Create; Image1.Picture.Graphic.SaveToStream(t); s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size); - AppendRecord([i, 'BBS_bn.jpg', s]); - inc(i); + AppendRecord([1, 'BBS_bn.jpg', s]); t.Position := 0; Application.Icon.SaveToStream(t); s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size); - AppendRecord([i, 'favion64.ico', s]); - inc(i); + AppendRecord([2, 'favion64.ico', s]); t.Position := 0; + i:=1; for s2 in OpenPictureDialog1.Files do begin openPicture(t, s2); s := TNetEncoding.Base64.EncodeBytesToString(t.Memory, t.Size); - AppendRecord([i, Format('slide%d.jpg', [i]), s]); + AppendRecord([i+2, Format('slide%d.jpg', [i]), s]); inc(i); end; t.Free; -- 2.11.0