Question

delphi grideh 跟据字的内容变色

比如，我想实现这样一个判断，当记录的列zhuantai为 未收费 时，字就显示为红色
百度要审核网友的答案要这么久，人家又没带网址。

Answer 1

不是审核网友答案，是贴上答案马上被吞掉，而且不能重复回答。百度除了用下三滥的手段挤走Google外，也就这点水平：
我没安装grideh控件，不过在StringGrid中倒是很好实现，估计应该差不多。在OnDrawCell事件中填写（当内容为"未收费"时会变色）：
var
KeyWord: string = '未收费';

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Cells[ACol, ARow] = KeyWord then
begin
//StringGrid1.Canvas.Brush.Color := clYellow;
//StringGrid1.Canvas.FillRect(Rect);
StringGrid1.Canvas.Font.Color := clRed;
StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, KeyWord);
end;
end;

Answer 2

楼上的回答, 带了很多Color, 被审核了