请教一个FASTREPORT 的问题

Question

var
  s: AnsiString;
  i: Int64;
begin
  s := Edit1.Text;
  i:= StrToInt64(Copy(s, 1, pos('*', s) - 1));
  Inc(i);
  lbl1.Caption:=Format('%d%s', [i,(Copy(s, 18, Length(s)))]);
end;

Answer 1

var
  s: AnsiString;
  i: Int64;
begin
  s := Edit1.Text;
  i:= StrToInt64(Copy(s, 1, pos('*', s) - 1));
  Inc(i);
  lbl1.Caption:=Format('%d%s', [i,(Copy(s, pos('*', s), Length(s)))]);
end;

Answer 2

这个不要在fastreport里面做，在数据准备阶段就把数据处理好，如要打印多少条记录等。用循环添加到一个数据表中，Fastreport的条码控件可以直接关联到字段的，设置好格式直接打印即可。