В одной из колонок грида отображается целочисленное поле, зн-е которого 1,2 или 3
Требуется в гриде отобразить:
'один', если зн-е поля = 1
'два', если зн-е поля = 2
'три', если зн-е поля = 3

Если создавать объекты-поля, то у них есть событие OnGetText, где все это можно сделать без проблем.
Хочу это сделать без использования объектов-полей компонента TTable.
Я так думаю, нужно покрутить TDBGrid, но ничего не получается.

Обрабатывай событие OnDrawColumnCell

Вот линк, если не разберетесь, то спрашивайте, Вам всегда ответят.

http://forum.vingrad.ru/index.php?act=ST&f...ndrawcolumncell

Код

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin    if Field.FieldName = MyField'        then begin            Case  (Field as TStringField).Value of                  1: begin                            Field.Text := 'Один';                      end;                  2: begin                            Field.Text := 'Два';                      end;                  3: begin                            Field.Text := 'Три';                      end;             end;        (Sender as TDBGrid).Canvas.TextOut(Rect.Left, Rect.Top, Field.AsString);    end; end;

Спасибо

Хотя вот здесь

Case (Field as TStringField).value of

выдает ошибку: Ordinal type required

Поле Field числовое целого типа

Цитата(AlexV1 @ 18.2.2003, 12:14)

Хотя вот здесь Case (Field as TStringField).value of выдает ошибку: Ordinal type required Поле Field числовое целого типа

Правильно пишет - свойство Value у TStringField типа String, а в CASE надо использовать числительное, Например не Value, а AsInteger.

А также, мне кажется, что приведение к типу TStringField не требуется, т.к. у TField есть нужные свойства. Например можно написать так:

Код

Case Field.AsInteger of ...

Заменил на

Case Field.AsInteger of

Компилируется, запускается
Но видимо в строке Field.Text := 'Два';
выдало ошибку
'Два' is not a valid integer value for field 'col_gr'

Цитата(AlexV1 @ 12.2.2003, 13:47)

Если создавать объекты-поля, то у них есть событие OnGetText, где все это можно сделать без проблем. Хочу это сделать без использования объектов-полей компонента TTable.

Как я уже писал про DBComboBox попробуй ручками, вот так:
в обработчике события OnAfterOpen компонента TTable

Код

Table1.FieldByName('<имя поля>').OnGetText:= GetTextHandler;

А в свой класс добавляешь метод:
procedure GetTextHandler(Sender: TField; var Text: String; DisplayText: Boolean);

Да SmaLL, так можно сделать, но это не желательно в некоторых случаях, когда такие "преобразования" требуются осуществить только для отображения данных (т.е. только в TDBGrid), а сам набор данных, оставить без изменений. Для этого как раз то и существует "обработка" в TDBGrid. Причем именно этот способ, и является более близким к хорошему стилю программирования, чем тот, который предложен тобой. Хотя конечно все зависит от поставленной задачи.

Хочу извиниться перед AlexV1, так как я ему с самого начала дал не рабочий код. У меня не дошли руки его проверить.

Я чуть попозже (сегодня) выложу нормальный рабочий код, просто сейчас со всеми версиями Delphi, что у меня установлены, происходит что-то странное, как разберусь, сразу же отвечу на этот вопрос.

Все, вот готовый код. Он рабочий, я проверял.

Код

With DBGrid1.Canvas do begin      if (Column.Field.FieldName = 'Name') and not (gdFocused in State) then begin              FillRect(Rect);              CASE Column.Field.Value of                   1: begin                            TextOut(Rect.Left+2, Rect.Top+2, 'Один');                        end;                   2: begin                            TextOut(Rect.Left+2, Rect.Top+2, 'Два');                        end;                   3: begin                            TextOut(Rect.Left+2, Rect.Top+2, 'Три');                        end;                  else begin                            TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text);                  end;               end;       end;  end;

P.S. Да, еще, чуть не забыл, этот обработчик "вешается" на событие OnDrawColumnCell

Большое спасибо, Pegas!
Единственный нюанс:
При перемещении курсора по сетке, если встать на поле, где изображено "Два", то вместо "Два", появится зн-е поля, т.е. 2

Этот ньюанс называется

Код

and not (gdFocused in State)

Просто убери эту подстроку, и все будет ОК!

Спасибо, Pegas, все получилось :-)