请教一个FASTREPORT 的问题

[xrsyttb]

利用软件编辑条码，上面有条码，下面是数字文本，想把这个文本中数据改为变量，
如： 11111111111100001*222222222
下一个 11111111111100002*222222222
11111111111100003*222222222
以此类推
不需要在文本中显示 只需要在打印时自动修改*号前的数字 ，只要递增加一就行，，如何实现 ，请赐教！！！

[seagull327]

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;

[seagull327]

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;

[babydog01]

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

[xrsyttb]

谢谢，这个再试试看