這是我初次試用StringGrid的用的一個過程。如有問題可與我留言,共同探討Procedure TForm1.SetStringData; var i:integer; Stm : TMemoryStream; begin if not Query1.Active then Query1.Open; StringGrid1.RowCount:=Query1.RecordCount; StringGrid1.ColCount:=8; Query1.First; For i:=1 to Query1.RecordCount do begin StringGrid1.Cells[1,i]:=Query1.Fields[0].AsString; StringGrid1.Cells[2,i]:=Query1.Fields[1].AsString; StringGrid1.Cells[3,i]:='...'; StringGrid1.Cells[4,i]:='.. '; StringGrid1.Cells[5,i]:=' ..'; StringGrid1.Cells[6,i]:=' .'; StringGrid1.Cells[7,i]:='...'; Query1.Next; end;
这样行吗?
StringGrid.Update ;
设置两个整型变量i,j;
StringGrid.Cells[i,j]:= 你想填入得内容;
var i:integer;
Stm : TMemoryStream;
begin
if not Query1.Active then Query1.Open;
StringGrid1.RowCount:=Query1.RecordCount;
StringGrid1.ColCount:=8;
Query1.First;
For i:=1 to Query1.RecordCount do
begin
StringGrid1.Cells[1,i]:=Query1.Fields[0].AsString;
StringGrid1.Cells[2,i]:=Query1.Fields[1].AsString;
StringGrid1.Cells[3,i]:='...';
StringGrid1.Cells[4,i]:='.. ';
StringGrid1.Cells[5,i]:=' ..';
StringGrid1.Cells[6,i]:=' .';
StringGrid1.Cells[7,i]:='...';
Query1.Next;
end;