Как правильнее сделать форматированный вывод?

← →
Девушка © (2005-02-12 14:33) [0]

В edit записываю число. Пусть 10000. Как сделать так, что-бы оно выводилось "10 000"? Т.е. Edit1.text:=IntToStr(10000) изображалось бы 10 000, а StrToInt(Edit1.text) возвращало бы 10000. Может, MaskEdit можно как-то прикрутить?

← →
Eraser © (2005-02-12 15:14) [1]

Существует масса компонентов для такого случая. Поищи на torry.ru

Другой вариант- ручная прорисовка. Но по-моему это не очень простая задача.

← →
Девушка © (2005-02-12 15:16) [2]

> Существует масса компонентов для такого случая. Поищи на
> torry.ru

А не подскажете название?

← →
Eraser © (2005-02-12 15:26) [3]

Я так понимаю денежки считать надо ))
Значит если только для currency советую
http://www.torry.ru/vcl/edits/diffedits/hkcedit.zip

А если нужны более универсальные компоненты поищите в RxLib и JEDI VCL.

← →
Девушка © (2005-02-12 15:32) [4]

> Eraser © (12.02.05 15:26) [3]

Не... не денюжки.
Граммы.

← →
Eraser © (2005-02-12 15:42) [5]

Ну тогда RxLib ))

Спасибо!

procedure TForm1.Edit1Change(Sender: TObject);
var s,a: string;
i: integer;
begin
s:=Edit1.Text;
for i:=Length(s) downto 1 do if Pos(s[i],"0123456789")=0 then
Delete(s,i,1); a:=s;
for i:=Length(s) downto 1 do
if (i<Length(s)) and ((Length(s)-i+1) mod 3=0) then Insert(" ",a,i);
Edit1.Text:=a;
end;

Как правильнее сделать форматированный вывод? Найти похожие ветки