下面是一段调整rzdbgrid宽度的代码,但是想要的效果没出来,radbgrid里有汉字显示不出来,谁能制导一下 ? if adoquery1.RecordCount>0 then begin SetLength(TempWidth,RzDBGrid1.FieldCount); adoquery1.First; for i:=0 to RzDBGrid1.FieldCount-1 do begin TempWidth[i]:=Length(RzDBGrid1.Columns[i].FieldName)*10+10;
end; while not adoquery1.Eof do begin adoquery1.Next; for i:=0 to RzDBGrid1.FieldCount-1 do begin if Length(adoquery1.Fields[i].AsString)*10+10>TempWidth[i] then TempWidth[i]:=Length(adoquery1.Fields[i].AsString)*10+10; end;