我要做这么一个程序:在窗体上添加一个button和edit,然后放置一个表单或者其他控件,在表单里输入100个(或者小于100)数据,按下按钮后把输入的值求和输出到edit,由于功能单一,不想使用数据库,而StringGrid1、DrawGrid1、DBGrid1等又没有输入焦点,不能数据输入,请问怎么解决?

解决方案 »

  1.   

    使用tmemo就可以了,
    你放一个memo1,然后往里输入一个数据后按回车
    最后button按钮中的click这么写就可以了。
    procedure TForm1.Button1Click(Sender: TObject);
    var i:integer;
        temp:real;
        tempcount:real;
    begin
        tempcount:=0;
        for i:=0 to memo1.Lines.Count-1 do
        begin
           try
              temp:=strtofloat(memo1.Lines.Strings[i]);
           except
              temp:=0;
           end;
           tempcount:=tempcount+temp;
        end;
        edit1.text:=floattostr(tempcount);end;
      

  2.   

    这个不好:
    1、界面没有网格,不好看。
    2、程序老是报错。
    3、没有解决StringGrid1、DrawGrid1、DBGrid1等类似控件在不使用数据库下可以进行数据输入请帮忙解决上述三个问题,谢谢
      

  3.   

    StringGrid本来就不需要使用数据库。
      

  4.   

    StringGrid就可以呀,把它属性options下的goEditing设为true,就可以输入数据了。
    再说它和数据库有什么关系。
      

  5.   

    呵呵。不是非要那么费力吧。用STRINGGRID吧。
      

  6.   

    你可以用listview控件呀,可以修改模式下就可以了
      

  7.   

    用Memo控件.以一行为一个数据.事件代码放在button上
      

  8.   

    用stringgrid,goediting设置为true,同时只有一列,输上列名就可以了
      

  9.   

    StringGrid这个很好用,没问题的