DBGrid значения true-false

@badkass · Регистрация: 22.05.2015

Author24 — интернет-сервис помощи студентам

Добрый день, помогите пожалуйста с такой проблемой.
На форме имеется DBGrid, ADOQuery, DataSource. БД Access имеет поле "рус" типа Boolean.
При выводе значений в DBGrid отображается true-false.

Знаю что в интернете эта тема уже обсуждалась и не раз (в частности и на этом форуме), но там все советы либо относятся к Delphi 7 (у меня RAD Studio 10 Seatle и у поля нет свойства DisplayText), либо советуют DBGRidEh (нет возможности ставить доп библиотеки).

Нашел вот такой код, который по задумке должен выводить checkbox'ы:

Delphi

procedure TForm1.DrawGridCheckBox(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
  DrawFlags: Integer;
begin
  Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, ' ');
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
  DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK
  if Checked then
    DrawFlags := DrawFlags or DFCS_CHECKED;
  DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;

В DBGridDrowColumnCell:

Delphi

if Column.FieldName = 'рус' then   // рус - поле в DBGrid
   if Column.Field.AsInteger > 10 then                       // вот тут сравнивается значение Integer, хотя поле если я правильно понимаю типа Boolean 
     DrawGridCheckBox(DBGrid1.Canvas, Rect, true)
   else
     DrawGridCheckBox(DBGrid1.Canvas, Rect, false)

В DBGridColEnter:

Delphi

begin
    with TDBGrid(Sender) do
      if SelectedField.FieldName = 'рус' then   // рус - поле в DBGrid
        Options := Options - [dgEditing]
      else
        Options := Options + [dgEditing]
  end;

При компиляции ошибки нет, а при выполнении программы вылетает:
Cannot access field 'рус' as type Integer. (Не может открыть 'рус' как тип integer.)

@rusqwe · 02.02.2017, 14:56

не то)

@YuryK · 02.02.2017, 15:00

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

if Column.Field.AsInteger > 10 then

ну так поставь там точку останова и посмотри Column.Field.Value и varType(Column.Field.Value)

@badkass · 02.02.2017, 15:00 **[ТС]**

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

http://www.delphiplus.org/articles/c...rid/index.html
3. CheckBox в поле DBGrid
Если поле DataSet’а имеет тип Boolean, то никаких дополнительных усилий делать не придется, грид сам будем отображать checkbox. Для полей других типов нужно настроить свойства столбца DBGridEh следующим образом:
DelphiВыделить код
1
2
3
4
*//1.сделаем поле Code - полем с CheckBox
*EhGrid.Columns[3].KeyList.Add('8;9;7;6;5;4;3;2;1'); //TRUE
*EhGrid.Columns[3].KeyList.Add('0'); //FALSE
*EhGrid.Columns[3].Checkboxes := TRUE;

Там речь идет о DBGridEh, а у меня нет возможности ставить доп библиотеки (EhLib).

@YuryK · 02.02.2017, 15:13

проверил сам, Column.Field.value это boolean
поэтому просто

Delphi

1	if Column.Field.Value then

@badkass · 02.02.2017, 15:22 **[ТС]**

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

проверил сам, Column.Field.value это boolean
поэтому просто
Delphi Выделить код
if Column.Field.Value then

Скомпилировал без ошибок, но в DBGrid отображается так же True-False

@YuryK · 02.02.2017, 15:26

badkass, у меня твой код рисует так:

@YuryK · 02.02.2017, 15:31

при выполнении, конечно. В дизайне, естественно, отображается по старому

@badkass · 02.02.2017, 15:36 **[ТС]**

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

при выполнении, конечно. В дизайне, естественно, отображается по старому

вот блин, а у меня при выполнении хоть убей true-false.... ладно, спасибо, буду копаться дальше

@rusqwe · 02.02.2017, 15:40

попробуй так
if Column.Field.FieldName='рус' then
хотя это тоже самое...

Добавлено через 1 минуту
так же можно обратиться к полю по индексу

Delphi

1 2	if Column.Field.Index='номер поля от 0' then if SelectedField.Index = 'номер поля от 0' then

@badkass · 02.02.2017, 15:42 **[ТС]**

всем спасибо, разобрался, причина была в том, что я сначала на

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

В DBGridDrowColumnCell:
DelphiВыделить код

if Column.FieldName = 'рус' then * // рус - поле в DBGrid
* *if Column.Field.AsInteger > 10 then * * * * * * * * * * * // вот тут сравнивается значение Integer, хотя поле если я правильно понимаю типа Boolean
* * *DrawGridCheckBox(DBGrid1.Canvas, Rect, true)
* *else
* * *DrawGridCheckBox(DBGrid1.Canvas, Rect, false)
В DBGridColEnter:

а потом разукрашивал строки, поставил код в конец процедуры и все ок.

@YuryK · 02.02.2017, 15:44

замени проверку на имя поля проверкой на тип: и универсальней и избежишь ошибок при неверном написании имени поля

Delphi

1	if Column.Field.DataType = ftBoolean then

@badkass 0 / 0 / 1 Регистрация: 22.05.2015 Сообщений: 69
	02.02.2017, 15:42 [ТС]	11
	всем спасибо, разобрался, причина была в том, что я сначала на Сообщение от badkass В DBGridDrowColumnCell: DelphiВыделить код if Column.FieldName = 'рус' then * // рус - поле в DBGrid * if Column.Field.AsInteger > 10 then * * * * * * * * * * // вот тут сравнивается значение Integer, хотя поле если я правильно понимаю типа Boolean * * DrawGridCheckBox(DBGrid1.Canvas, Rect, true) else * *DrawGridCheckBox(DBGrid1.Canvas, Rect, false) В DBGridColEnter: а потом разукрашивал строки, поставил код в конец процедуры и все ок. 0

@rusqwe 60 / 60 / 26 Регистрация: 30.05.2016 Сообщений: 293
	02.02.2017, 14:56	2
	не то) 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	02.02.2017, 15:00	3
	Сообщение от badkass if Column.Field.AsInteger > 10 then ну так поставь там точку останова и посмотри Column.Field.Value и varType(Column.Field.Value) 0

@badkass 0 / 0 / 1 Регистрация: 22.05.2015 Сообщений: 69
	02.02.2017, 15:00 [ТС]	4
	Сообщение от rusqwe http://www.delphiplus.org/articles/c...rid/index.html 3. CheckBox в поле DBGrid Если поле DataSet’а имеет тип Boolean, то никаких дополнительных усилий делать не придется, грид сам будем отображать checkbox. Для полей других типов нужно настроить свойства столбца DBGridEh следующим образом: DelphiВыделить код 1 2 3 4 //1.сделаем поле Code - полем с CheckBox EhGrid.Columns[3].KeyList.Add('8;9;7;6;5;4;3;2;1'); //TRUE EhGrid.Columns[3].KeyList.Add('0'); //FALSE EhGrid.Columns[3].Checkboxes := TRUE; Там речь идет о DBGridEh, а у меня нет возможности ставить доп библиотеки (EhLib). 0

@badkass 0 / 0 / 1 Регистрация: 22.05.2015 Сообщений: 69
	02.02.2017, 15:22 [ТС]	6
	Сообщение от YuryK проверил сам, Column.Field.value это boolean поэтому просто Delphi Выделить код if Column.Field.Value then Скомпилировал без ошибок, но в DBGrid отображается так же True-False 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	02.02.2017, 15:26	7
	badkass, у меня твой код рисует так: Миниатюры 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	02.02.2017, 15:31	8
	при выполнении, конечно. В дизайне, естественно, отображается по старому 0

@badkass 0 / 0 / 1 Регистрация: 22.05.2015 Сообщений: 69
	02.02.2017, 15:36 [ТС]	9
	Сообщение от YuryK при выполнении, конечно. В дизайне, естественно, отображается по старому вот блин, а у меня при выполнении хоть убей true-false.... ладно, спасибо, буду копаться дальше 0

	02.02.2017, 15:44

DBGrid значения true-false

Решение