محل منفی در Edit راست به چپ!! (مثل -16)

[mafazel]

سلام دوستان
یه مشکل کوچیک هست که همه همیشه از کنارش گذشتیم اونم اینکه وقتی یه Edit رو راست به چپ می کنیم و کاربر عدد منفی رو وارد می کنه منفی سمت راست عدد نشون داده میشه مثلا -16. البته توی محاسبات هیچ مشکلی نیست. اما توی نمایش یکم ضایع هستش. همه جا مثلا توی DBGrid و چاپ فست ریپورت و .. هم همینطور نشون داده میشه. کسی راه حل ساده براش سراغ داره؟
تشکر

[fahimi]

سلام
من از یک تابع استفاده می کنم.


function negative

(N:real):string;
begin
if N<0 then
Result:=Format('%2.0n-', [N * -1])
else
Result := Format('%2.0n', [N])
end;

و در GetText فیلد مقدار دهی می کنم


Text:=Negative(Qry1.FieldByName('Mande').Value);