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

 

相关阅读 >>

Delphi memo1双击选中的文字内容

Delphi 关闭rtti反射机制减少exe文件尺寸

Delphi Delphi写的一个上位机

Delphi工具之tdump

Delphi编写dll(以及静态和动态方式调用)

Delphi简单读取网上的文本文件

Delphi 编译发布安卓的app名字问题

Delphi 实现 图灵机器人api（idhttp post ）

Delphi 如何快速读写文件中的字符串

Delphi字符串旋转任意角度

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 数值小数点后不保留0