如何在TStringGrid中匹配值后设置对应行的背景颜色？

原代码存在的问题 #

• 循环范围错误：TStringGrid的行索引从0开始，RowCount是总行数，正确的循环范围应该是1 to StringGrid1.RowCount - 1（假设第0行是表头），否则会越界访问。
• 错误提示逻辑错误：每一行不匹配就弹出提示，会导致重复弹窗，应该遍历完所有行后再判断是否找到匹配项。
• 缺少行背景色设置及刷新代码，匹配后无法显示高亮效果。

修正后的完整代码 #

var
  val: string;
  i: Integer;
  found: Boolean;
begin
  val := Trim(LabeledEdit2.Text);
  // 空值判断
  if val = '' then
  begin
    ShowMessage('请输入要匹配的值');
    Exit;
  end;

  // 重置所有行背景色为默认，清除之前的高亮
  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    StringGrid1.Canvas.Brush.Color := clWindow;
    StringGrid1.InvalidateRow(i);
  end;

  found := False;
  // 遍历数据行（若没有表头，循环起始改为0）
  for i := 1 to StringGrid1.RowCount - 1 do
  begin
    // 匹配第5列（Cells[4]，索引从0开始）的内容
    if Trim(StringGrid1.Cells[4, i]) = val then
    begin
      // 设置匹配行的背景色（示例用clSkyBlue）
      StringGrid1.Canvas.Brush.Color := clSkyBlue;
      // 刷新该行，使颜色生效
      StringGrid1.InvalidateRow(i);
      found := True;
      // 若只需匹配第一个结果，可添加Break;终止循环
    end;
  end;

  // 遍历结束后提示未找到的情况
  if not found then
  begin
    ShowMessage('未找到匹配的值');
  end;
end;

关键说明 #

• 如果你的TStringGrid没有表头行（数据从第0行开始），将循环的起始值从1改为0即可。
• InvalidateRow(i)是必须的，用于通知网格重绘指定行，否则背景色不会立即更新。
• 使用Trim函数可以去除输入内容和单元格内容的前后空格，避免因空格导致的匹配失败，若不需要该逻辑可删除。
• 如需修改文字颜色，可添加StringGrid1.Canvas.Font.Color := clRed;，同样需要调用InvalidateRow(i)刷新。

内容的提问来源于stack exchange，提问作者Radosław Dobrowolski