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 动态修改exe文件的图标

Delphi从dbgrid导出数据保存成excel文件

Delphi开发获取文件md5值

Delphi vcl图像的二值化

Delphi string.create(char,count)

Delphi 根据文件路径获取文件名

Delphi 怎样判断spinedit在微调时值是增加还是减少了

Delphi idhttp实现get方法下载文件，断点续传

Delphi 字符串是否包含

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

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