求一段直接赋值的代码!?

Question

环境: 
delphi 7  数据库 access2003 在一个添加内容的窗口上有个一个edit或则DBedit用来填写序号,数据库里面'序号'字段内容是不能被重复的,字段内容是从'TT01'开始记录的. 希望每次添加窗口打开的时候在edit或则DBedit里面能自动添入数据库'序号'字段当前内容的值+1的数,比如:"现在数据库字段内容是到了TT09,那么在弹出来的窗口的edit或则DBedit里面就出现TT10" 才学没多久,不知道描述的清不清楚,请各位高手多多包涵. 
谢谢各位了!!刚刚在语言基础区有人解答了，但不是很明白,给的是下面一个代码:select   'TT' + right('00' + max( right(序号,2)) +1 ,2) from table我现在的表名是'list'  字段名是'' 显示窗口是'DBEDIT1'具体因该怎么写?谢谢各位了!!!

Answer 1

给你个自动加1的函数
function incstr(s:string):string;
var
i:integer;
begin
i:=strtoint(copy(s,3,2);
inc(i);
result:='TT'+format('%-2d',i); 
end;