delphi向sql录入数据字段较多 怎样写循环语句

Question

比如要录入100张图片   dbimage1-dbimage100怎样写循环对应到字段图片1-图片100
求大神指点

Answer 1

for i := 1 to 100 do
begin
  ShowMessage('imagefield'+IntToStr(i));
end;

Answer 2

那要怎样存放呢    2L的没太看懂
Close;
    SQL.Clear;
    sql.add('Insert into data Values (:a)');
    Parameters.ParamByName('a').Assign(bsskindbImage1.Picture.Graphic);我不是要写一百条这样的吧

Answer 3

//图片格式，姑且为Bmp，Path自己加上吧
for i := 1 to 100 do
begin
  TBolbField(FieldbyName('图片'+IntToStr(i))).LoadFromFile('dbimage'+IntToStr(i)+'.bmp');
end;