Скачать: CL | DM;

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

← →
Девушка ©   (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 ))

---

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

Спасибо!

---

← →
olookin ©   (2005-02-13 15:42) [7]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c