Edit с разделением числовых разрядов

[XPAiN]

Существует ли такой компонент Edit, чтобы при вводе 2000000 он писал 2 000 000, но при этом при обращении мы получали 2000000. Обработку пробовал писать сам, но криво получается.

[Stilet]

MaskEdit пробовал?
Caption:=Format('%n',[2000000.]); пробовал?

[XPAiN]

MaskEdit на определенное количесво символов. подходит для даты, времени и т.д. а у меня кол-во знаков любое.

А вот за Format спасибо!!!!

[Stilet]

Ну вообще-то компьютер не может обрабатывать любое число, а только то которое позволит разрядность его проца, таксказать.
Так что МаскЭдит тоже можно настроить на максимальное вещественное.

[XPAiN]

))))) ну я и сказал )))) ну естесвенно ограниченное int64. Долго мучался до этого с MaskEdit так и не получилось.

[XPAiN]

Глупый вопрос. Как вернуть после Format обратно в число?

[Stilet]

"И елок много. И тебя много. А толку... Маловато будет."
Вот держи: Прием стар как тихий океан.

procedure TForm1.Edit1Change(Sender: TObject);
var e,s:string;   te:TNotifyEvent;i:integer;
begin
te:=Edit1.OnChange;
Edit1.OnChange:=nil;
s:=Edit1.Text;
i:=1 ;
while i<=length(s) do begin
if s[i] in ['0'..'9','.'] then
 e:=e+s[i];
 inc(i);
end;
Edit1.Text:=Format('%n', [StrToFloatdef(e,0)]);
Edit1.OnChange:=te;
end;

[XPAiN]

Большое спасибо!