Разбиение едит на разряды

[Mixasnt]

Задача такова:
При вводе в едит цифр, как сделать что бы они автоматически принимали формат типа: 999 999 999 999?
Несколько часов размышлений особо не помогли...
Подскажите пожалуйста,как это сделать?

[Serge_Bliznykov]

самое простое, использовать TMaskEdit
(он, конечно, не безупречен, но, возможно, Вам подойдёт)

если нужен обязательно TEdit - то нужно заморачиваться с назначением кода на событие - на нажатие клавиш и ручной обработкой (вставкой пробелов в нужные места). Это и сложнее и менее надёжно, но, тем не менее...

[Mixasnt]

Сообщение от Serge_Bliznykov

самое простое, использовать TMaskEdit
(он, конечно, не безупречен, но, возможно, Вам подойдёт)

если нужен обязательно TEdit - то нужно заморачиваться с назначением кода на событие - на нажатие клавиш и ручной обработкой (вставкой пробелов в нужные места). Это и сложнее и менее надёжно, но, тем не менее...

Я пробовал через маску,но тоже не особо получилось...

[Человек_Борща]

Получаете длину вводимого текста, делите на 3, и через каждые 3 знака ставите пробел в строке, остаток так же отбрасываете пробелом.

[Mixasnt]

Сообщение от Человек_Борща

Получаете длину вводимого текста, делите на 3, и через каждые 3 знака ставите пробел в строке, остаток так же отбрасываете пробелом.

спасибо)
завтра попробую,отпишусь)

если не сложно пример)

[Человек_Борща]

если не сложно пример)

Если вам лень думать своей головой, зачем вы в программирование подались?

Подсказки:
Используйте mod, div, StrToInt, Length

Описание вверху форума, по ссылке "Основы Delphi".

[phomm]

Не не не, зачем придумывать велосипеды, учим матчасть (в лице TFormatSettings).

procedure TForm1.Edit1Change(Sender: TObject);
var
  fs: TFormatSettings;
begin 
  GetLocaleFormatSettings(fs);
  fs.ThousandSeparator := ' '; // пробел
  Edit1.Text := FloatToStr(FloatToIntDef(Edit1.Text, 0), fs)); // не проверял эту строку
end;

[Mixasnt]

Сообщение от Человек_Борща

если не сложно пример)

Если вам лень думать своей головой, зачем вы в программирование подались?

Подсказки:
Используйте mod, div, StrToInt, Length

Описание вверху форума, по ссылке "Основы Delphi".

Не получается что то,нахожу и целую часть от деления и остаток,но как сформировать новую строку?

[Mixasnt]

Сообщение от phomm

Не не не, зачем придумывать велосипеды, учим матчасть (в лице TFormatSettings).

procedure TForm1.Edit1Change(Sender: TObject);
var
  fs: TFormatSettings;
begin 
  GetLocaleFormatSettings(fs);
  fs.ThousandSeparator := ' '; // пробел
  Edit1.Text := FloatToStr(FloatToIntDef(Edit1.Text, 0), fs)); // не проверял эту строку
end;

код что то не работает

[phomm]

Ага ,так и есть

Edit1.Text := FloatToStr(StrToFloatDef(Edit1.Text, 0, fs), fs));

Вот эта строка так скорее всего, но не проверял опять же. И пользуйтесь справкой - всё же там написано, не ленитесь, не работает что-то - перепроверьте по справке, пройдитесь по соседним разделам и т.п.

И зарубите на носу - "не работает" это слова бестолкового юзера, если Вы себя к тамим не причисляете, то указывайте всё чётко - в какой момент не работает, при каких условиях, какие ошибки пишутся, что подчёркивает дельфи и т.п.