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实现屏幕截图、窗口截图、指定区域截图

Delphi 字符串定界符

Delphi中使用tlist类的简单分析

Delphi线程的创建、挂起、激活与终止

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

Delphi richedit文字背景色的处理

tstringlist 常用操作

Delphi idhttp访问http与https不同点

Delphi 文件/流的加密解密方法

Delphi mscomm控件串口收发程序

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

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