RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi 数值小数点后不保留0

作者:admin 来源: 日期:2018/2/15 17:44:58 人气: 标签:

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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料