Как организовать заполнение маски справа-налево (cxMaskEdit, MaskEdit) ?

Есть такая задача: организовать ввод денежной суммы в формате "****,**", причём необходимо чтобы числа вводились слева-направо, то есть следующим образом, например ввод числа 123 - "****,*1" -> "****,12" -> "***1,23".

Указываю перед маской "!" - не помогает...

Антохин, я думаю так выйдет. надо писать свои костыли. я в MaskEdit уже не раз разочаровывался, там многие простые вещи не сделаешь.

зачем вам cxMaskEdit если есть cxCurrencyEdit

Ну вот а всетаки, у меня обычный label отображает сумму размера файлов в байтах, например 28883684596 и мне нужно превратить его в вид: 28,883,684,596 (разбором строчки заниматься не хотелось бы).
Посмотрел "cxMaskEdit", но в нем у меня не получается достичь результата вида: 28,883,684,596, когда я ему пытаюсь присвоить 28883684596

Konstantin-78,

Попробуй так:

 OldDS:=DecimalSeparator;  OldTS:=ThousandSeparator;
 DecimalSeparator:='.'; ThousandSeparator:=',';

 MY_NUMBER_STR:=Format('%n',[ANumber]);    // <--- %n в строке форматирования.

 DecimalSeparator:=OldDS; ThousandSeparator:=OldTS;

А потом просто откуси до точки в конце строки...

Konstantin-78
Ну вот а всетаки, у меня обычный label отображает сумму размера файлов в байтах, например 28883684596 и мне нужно превратить его в вид: 28,883,684,596 (разбором строчки заниматься не хотелось бы). Посмотрел "cxMaskEdit", но в нем у меня не получается достичь результата вида: 28,883,684,596, когда я ему пытаюсь присвоить 28883684596

Может быть, поможет:
http://m-ivanov.livejournal.com/6653.html

Konstantin-78,

посмотри в сторону TFormatSettings и FormatFloat

var
  FileSize: Integer;
  FS: TFormatSettings;
begin
  FileSize := 1234567890;
  FS.ThousandSeparator := ',';
  Label1.Caption := FormatFloat(',#', FileSize, FS);
end;

Guest2013,

Да это хороший вариант, но у меня размер больше "integer".
И библиотекта складывающая рамеры файлов (Гб) оперирует "string" (но это не важно)

Konstantin-78,

Используйте Int64, неужели 2^63 не хватит?

Либо рисуйте свой велосипед, такую функцию накидать дело 5-ти минут:

function FormatFileSize(AFSize: string; AThousandSeparator: Char): string;
var
  i: Integer;
  C: Char;
begin
  i := 0;
  Result := '';
  while ( i < Length(AFSize) ) do
  begin
    C := AFSize[Length(AFSize)-i];
    Result := C + Result;
    Inc(i);
    if ( (i mod 3) = 0 ) then
      Result := AThousandSeparator + Result;
  end;
end;

ага,
вот подсказали такую конструкцию, например:

var
  S: string;
  ff: int64;
begin
S:='42122128883684596';
ff:=StrToInt64(S);
Label1.Caption:=FormatFloat('#,###,###.###', ff);
end;