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

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

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

Как для колонок DBGrid установить необходимую маску? [D6, dBase, FoxPro]

Valery_N © (2002-09-23 17:40:00)
Помогите начинающему!

Нужно для некоторых колонок Grid выставить маски,
например # ###.##, чтобы не отображались нулевые значения и т.д.
Никак не могу наити, где это дело можно изменить.

Johnmen (2002-09-24 13:51:00) [1]
>kaif © (24.09.02 13:07)

Небольшая ремарка : DisplayFormat:="#,###0.00"; EditFormat:="#0.00";

kaif (2002-09-24 13:07:00) [2]
2 BlackTiger (24.09.02 12:40)
Нужно владеть всеми способами.
Простейший - тот, что я описал. Можно его доработать для случая, если список полей заранее не известен:

with DataSet do
for i := 0 to Fields.Count - 1 do
if Fields[i] is TNumericField then
with Fields[i] as TNumericField do
begin
DisplayFormat := "### ### ### ##0.00";
EditFormat := "###########0.00";
end;

Для более хитрых ситуаций можно использовать событие OnGetText.
Например, если мы хотим, чтобы значения NULL отображались как-то по особенному (например <None>).

BlackTiger (2002-09-24 12:40:00) [3]
kaif - мне бы дал кто-нить такой ответ, когда я ходил по этим граблям. Правда вот все несколько усложняется (это меня и путало), если колонки не известны до открытия DataSet"а, например, когда запрос динамический. Тогда это все надо проделывать кодом сразу после "Query.Active := true;". Еще хохма в том, что это не всегда работает. Вот тогда надо делать так, как написано в хелпе: вручную назначать обработчик "TField.OnGetText" каждому полю, которое нужно форматировать.

kaif (2002-09-23 23:34:00) [4]
У классов, производных от TNumericField есть 2 свойства:
DisplayFormat и EditFormat. Первое отвечает за способ отображения когда потомок DataSet в режиме просмотра, а второе определяет вид в режиме редактирования.
Рекомендую:
1. Создать persistent поля у твоего DataSet (TTable или TQuery). Для этого нужно дважды щелкнуть на компоненте - появится редактор полей. Добавить в нем все поля в список (с помощью контекстного меню, вызываемого правой кнопкой мыши в редакторе полей)
2. Числовые поля выбрать в Object Inspector-е и присвоить свойствам
DisplayFormat := "### ### ### ##0.00"
EditFormat := "###########0.00"
(для того, чтобы при редактировании пробелы исчезали)
-----------------
Теперь любые DataAware контролы будут правильно форматировать твои числа (не только DBGrid, но и DBEdit, например)
-----------------
Свойствами DisplayFormat и EditFormat обладают также и поля типа TDateTimeField и схожие с ними. Советую в них тоже вписывать форматирующие строки, например:
DisplayFormat := "dd/mm/yyyy" или (01.09.2002)
DisplayFormat := "dd mmmm yyyy г." (01 сентября 2002 г.)
-----------------
N.B. Если свойству EditFormat не присвоено значение, то компоненты используют значение, присвоенное DisplayFormat (если таковое имеется).

Kuusiniemi (2002-09-23 17:54:00) [5]
или DBGrid.DataSource.DataSet.FieldByName("ИмяПоля").EditMask := "то, что Вам надо";

или DBGrid.Columns[i].Field.EditMask := "то, что Вам надо";

Наверх

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