Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

olookin (2005-02-13 15:42:00) [1]
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;

Девушка (2005-02-12 15:58:00) [2]
Спасибо!

Eraser (2005-02-12 15:42:00) [3]
Ну тогда RxLib ))

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

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

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

Eraser (2005-02-12 15:26:00) [5]
Я так понимаю денежки считать надо ))
Значит если только для currency советую
http://www.torry.ru/vcl/edits/diffedits/hkcedit.zip

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

Девушка (2005-02-12 15:16:00) [6]

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

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

Eraser (2005-02-12 15:14:00) [7]
Существует масса компонентов для такого случая. Поищи на torry.ru

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »