5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
StringGrid1.Cells[0,0]:='序号';
StringGrid1.Cells[1,0]:='杯号';
StringGrid1.Cells[2,0]:='杯重';
for i:=1 to 20 do
begin
StringGrid1.RowCount:=2+i;
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=IntToStr(i);
StringGrid1.Cells[2,i]:=FormatDateTime('dd-hh:mm:ss',now);
end;