if Trim(StrGrid.Cells[7,i])=Str_Yes then
PrintInfo[int_PrintInfo].fAuto:=true
else
PrintInfo[int_PrintInfo].fAuto:=False;
简化版为 PrintInfo[int_PrintInfo].fAuto:=(Trim(StrGrid.Cells[7,i])=Str_Yes);