怎样固定数值的位数?(15分)

leader47 · 2006-06-21

如: 怎样将数值 1,转变格式为 001,然后插入数据库仍为 001 ? 怎样实现?

另外,怎样提取一个字符串中的字符串? 如: 在 'AB+CD+EF' 中,怎样取得 'CD' 呢?

谢谢!

蓝叶菱 · 2006-06-21

function FmtLength(AValue:integer;ALength:integer):String;
begin
Result:=IntToStr(AValue);
while Length(Result)<ALength do
Result:='0'+Result;
end;

happycyp · 2006-06-21

Format

陈晨 · 2006-06-21

如: 怎样将数值 1,转变格式为 001,然后插入数据库仍为 001 ? 怎样实现?
format(%0.3d,[1])='001'
要保存到数据库中需要对应字段为char类的，而不是int类的即可

问题2 delphi中 pos
sql中用SUBsTRING

leader47 · 2006-06-21

format('%0.3d',[1]) 问题已经解决.

请介绍 pos 的用法, 如在 'AB+CD-EF' 中,想知道 '+' 和 '-' 是第几位,那怎么取?

谢谢!

happycyp · 2006-06-21

'+'的位置：
i := Pos('+','AB+CD-EF');

leader47 · 2006-06-21