我想显示时间到stringgrid1.cells上,
代码是:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
s:array[1..10,1..10]of string;
rect:trect;
begin

for i:=1 to 5 do
case j of
1: stringgrid1.Cells[j,i]:=timetostr(DateTimePicker3.DateTime);
else stringgrid1.Cells[j,i]:='nihao';
end;
s[i,j]:=stringgrid1.Cells[j,i];
for i:=1 to 5 do
for j:=1 to 5 do
begin
rect:=stringgrid1.cellrect(j,i);
stringgrid1.canvas.textout(rect.left,rect.top,s[i,j]);
end;
end;

for i:=1 to 5 do
case j of
1: stringgrid1.Cells[j,i]:=timetostr(DateTimePicker3.DateTime);
else stringgrid1.Cells[j,i]:='nihao';
end;
在这段代码之前，j是多少？

先谢谢,我在这没定义过j,就是这样,可以运行,却不能显示结果.

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
StringGrid.rowcount := 7;
for j:=1 to 5 do
begin
for i:=1 to 5 do
begin
if j = 1 then
StringGrid.Cells[j, i] := FormatDateTime('yyyy-MM-dd hh:mm:ss', DateTimePicker3.DateTime);
else
StringGrid.Cells[j, i] := 'nihao';
end;
end;
end;

谢谢!!终于可以了!!

不过我还是有疑问!!stringgrid.后面不会直接显示cells[x,y]属性;为什么??

这个是控件的问题。
也可能是你装的控件有问题！

不过在COM+编程时候也会出现这样的事情！
我在用COM＋编程时候就出现这样的问题，不过习惯了就行了。
有时候如果纯粹的去等它响应，
还感觉在浪费时间。

有兴趣，你可以看看别人写的控件代码。