delphi 数值小数点后不保留0
function StrFl(st: string): string;
label
p1, p2, p3;
var
poz: Byte;
k: integer;
stt: string;
begin
k := Length(st);
if k <= 1 then
goto p2;
p1:
stt := Copy(st, 1, 1); {Очистка от пробелов}
if stt = ' ' then
begin
st := Copy(st, 2, k - 1);
k := k - 1;
goto p1;
end;
stt := Copy(st, k, 1);
if stt = ' ' then
begin
st := Copy(st, 1, k - 1);
k := k - 1;
goto p1;
end;
p3:
poz := Pos('.', st); {Очистка от нулей}
if poz = 0 then
goto p2;
stt := Copy(st, k, 1);
if stt = '0' then
begin
st := Copy(st, 1, k - 1);
k := k - 1;
goto p3;
end;
if stt = '.' then {Очистка от точки}
begin
st := Copy(st, 1, k - 1);
end;
p2:
StrFl := st;
end;
//转换结果
//5.000 -> 5
//5.001 -> 5.001
//05.100 -> 05.1
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.038491010665894 seconds