小數點對齊並讓尾零不顯示
Delphi Format 格式指定寬度會在後面補零,沒指定寬度尾零就會去除但整排資料的小數點位置就不同,需要對齊小數點就要將尾零用空白替換掉。
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 procedure TF2005J.qyWeightGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
s: string;
i: Integer;
begin
if Sender.DataSet.IsEmpty then Exit;
s := Format('%.*f', [4, Sender.AsFloat]);
for i := Length(s) downto 0 do
begin
case s[i] of
'0': s[i] := ' ';
'.': begin
s[i] := ' ';
Break;
end;
else
Break;
end;
end;
Text := s;
end;