Замена значения в ячейке DBGrid

@Grusha · Регистрация: 17.06.2008

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

Здравствуйте!

У меня есть таблица с полем NOM_KONTR, значения в нем числовые.
На форму в DBGrid в одну из ячеек выводится содержимое поля NOM_KONTR.
В случае, если значения поля NOM_KONTR=0, нужно в DBGrid заменить текст в ячейке на "б/н".

Запуталась, помогите, пожалуйста!
Нашла вот такой код, но не могу его применить:

Delphi
1
2
3
4
5
if DM1.Q_KontractPod.FieldByName('NOM_KONTR').Value=0 then
      begin
             TextOut(Rect.Right - 2 - DBGrid1.Canvas.TextWidth('б/н'),
        Rect.Top + 2, 'б/н');
      end

ругается:

Добавлено через 1 минуту
ругается так: Incompatible types: 'Integer' and 'String'

@Grusha · 19.07.2011, 23:35 **[ТС]**

where kod_pod=:kod_pod

наверное нужно убрать... это условие на форме...

@sharky123 · 19.07.2011, 23:48

Вот))

dbgrd1 замените на имя своего Грида.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.dbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (Column.FieldName = 'NOM_KONTR') then
    begin
       With dbgrd1.Canvas do
       begin
          Brush.Color:= clWhite;
          FillRect(Rect);
          if (ds1.FieldByName('NOM_KONTR').Value = 0)then
            begin
               Font.Color:= clRed; //Выделит красным, если нет необходимости, можно удалить эту строку
               TextOut(Rect.Right-2-dbgrd1.Canvas.TextWidth('б/н'),Rect.Top+2,'б/н');
 
            end;
 
       end;
 
    end;
end;
 
 
 
end.

@Grusha · 20.07.2011, 00:00 **[ТС]**

sharky123,сработало!

Только другие номера удалились

@sharky123 · 20.07.2011, 00:07

Закомментируйте или удалите строку Brush.Color:= clWhite;

Delphi
1
//Brush.Color:= clWhite;

@Grusha · 20.07.2011, 00:08 **[ТС]**

не помогает

@sharky123 · 20.07.2011, 00:11

и FillRect(Rect) тоже закомментируйте или удалите, он не понадобится без Brush.Color;

Добавлено через 1 минуту
В инспекторе объектов свойство dgRowSelect в False поставьте

@Grusha · 20.07.2011, 00:16 **[ТС]**

закомментировала :
Brush.Color:= clWhite;
FillRect(Rect);
Font.Color:= clRed;

получается нормально, но б/н в скобках, это убрать как-то можно или уже довольствоваться тем, что есть?

@Grusha · 20.07.2011, 00:21 **[ТС]**

уууууууура!!!!!!!!!!!!

я нашла как скобочки убрать: поменяла -2- на -5-

Большое вам человеческое спасибо!

@sharky123 · 20.07.2011, 16:56

Рад помочь))

Вот у меня почему-то тот же код скобок не делает и с dgRowSelect в True все нормально отображает))

@Grusha · 20.07.2011, 17:13 **[ТС]**

sharky123, у поняла почему: -2- и -5- это сдвиги справа, а у меня в поле "Номер контракта" в DBGrid выравнивание по центру, и если сдвиг -2-, то текст "б/н" как бы выходит за край поля и видимо поэтому появляются скобочки, а когда пять и больше он уже умещается в поле. На -10- встал ровно по центру)

А может вы еще сможете и по фастрепорту подсказать?

а то в DBGrid "б/н", а на печать выходит ноль) не знаете как там можно заменить?

я понимаю, что нужно написать:

если DM1.Q_KontractPod."NOM_KONTR"=0 то "б/н", иначе DM1.Q_KontractPod."NOM_KONTR"

а вот КАК и КУДА все это писать ума не приложу)

@sharky123 · 20.07.2011, 18:32

Я с фастрепортом никогда не работал

Если не критично использование фастрепорта, поищите другие варианты печати грида, их много

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	19.07.2011, 23:35 [ТС]
	where kod_pod=:kod_pod наверное нужно убрать... это условие на форме... 0

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	20.07.2011, 00:00 [ТС]
	sharky123,сработало! Только другие номера удалились Миниатюры 0

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	20.07.2011, 00:08 [ТС]
	не помогает 0

@sharky123 47 / 47 / 5 Регистрация: 02.03.2010 Сообщений: 119
	20.07.2011, 00:11
	и FillRect(Rect) тоже закомментируйте или удалите, он не понадобится без Brush.Color; Добавлено через 1 минуту В инспекторе объектов свойство dgRowSelect в False поставьте 1

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	20.07.2011, 00:16 [ТС]
	закомментировала : Brush.Color:= clWhite; FillRect(Rect); Font.Color:= clRed; получается нормально, но б/н в скобках, это убрать как-то можно или уже довольствоваться тем, что есть? Миниатюры 0

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	20.07.2011, 00:21 [ТС]
	уууууууура!!!!!!!!!!!! я нашла как скобочки убрать: поменяла -2- на -5- Большое вам человеческое спасибо! 0

@sharky123 47 / 47 / 5 Регистрация: 02.03.2010 Сообщений: 119
	20.07.2011, 16:56
	Рад помочь)) Вот у меня почему-то тот же код скобок не делает и с dgRowSelect в True все нормально отображает)) Миниатюры 0

@Grusha 24 / 24 / 2 Регистрация: 17.06.2008 Сообщений: 613
	20.07.2011, 17:13 [ТС]
	sharky123, у поняла почему: -2- и -5- это сдвиги справа, а у меня в поле "Номер контракта" в DBGrid выравнивание по центру, и если сдвиг -2-, то текст "б/н" как бы выходит за край поля и видимо поэтому появляются скобочки, а когда пять и больше он уже умещается в поле. На -10- встал ровно по центру) А может вы еще сможете и по фастрепорту подсказать? а то в DBGrid "б/н", а на печать выходит ноль) не знаете как там можно заменить? я понимаю, что нужно написать: если DM1.Q_KontractPod."NOM_KONTR"=0 то "б/н", иначе DM1.Q_KontractPod."NOM_KONTR" а вот КАК и КУДА все это писать ума не приложу) 0

@sharky123 47 / 47 / 5 Регистрация: 02.03.2010 Сообщений: 119
	20.07.2011, 18:32
	Я с фастрепортом никогда не работал Если не критично использование фастрепорта, поищите другие варианты печати грида, их много 0