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 gdi+ 文本输出

Delphi tms web core messagedlg对话框用法

Delphi 写日志函数

Delphi idhttp1 获取网页代码

Delphi 文件占坑法过360查杀

Delphi 进程隐藏的若干方法

Delphi tlistview(tlistbox+图标显示)

精通Delphi模拟按键

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

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