我想在TListview
有他的財產BiDiMode = bdRightToLeft.
如何在左邊(德爾福的TListView)顯示減去
我試過,以顯示對一個項目的左側負數的減號代碼中有:
Function TfrmProjets.IfSign(floatValue: double; howMuchDecimalAfterComa:
integer):string;
var
strResult: string;
strZero: string;
i: integer;
begin
strResult := '';
strZero := '';
for i := 0 to howMuchDecimalAfterComa -1 do
begin
strZero := strZero + '0';
end;
if(Sign(floatValue) = NegativeValue)then
begin
strResult := '-' + FormatFloat('0.' + strZero,Abs(floatValue));
//strResult := '(' + FormatFloat('0.' + strZero,Abs(floatValue)) + ')';
end
else
begin
strResult := FormatFloat('0.' + strZero,floatValue);
end;
result := strResult;
end;
而事實上,當我使用斷點來評估strResult
工作。
但是,當它來到TListView
顯示在我的項目:
lvItem := lvPeriodic[0];
lvItem.SubItems.Add(IfSign(-14.2),1) + '%') ;
它顯示是這樣的:14.2%-
有沒有辦法告訴TListview
不改變我顯示字符串或什麼?
德爾福的版本:
順便說一句,你
IfSign
功能可以大大利用Format
功能簡化? Unicode提供了一些在D2009之前不可用的解決方案。 –這是D2009 unicode – pikarie