procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.DeleteSelected ;
end;

解决方案 »

  1.   

    用tinifiles单元,把数据保存为ini文件,这样好读,
    可以使用 create('filename') writestring,readstring
      

  2.   

    如果保存在SQL数据库中,怎样读取?
      

  3.   

    用tinifiles单元,把数据保存为ini文件
    可以使用 create('filename') writestring,readstring 
    能把这两种方法说得更详细些吗?
      

  4.   

    如果保存在SQL数据库中,怎样读取?
    先建立一个表,如listbox_data,表中只要有一个字段如data既可,
    procedure TForm1.FormCreate(Sender: TObject);
    begin
         with query1 do
         begin
              close;
              sql.clear;
              sql.add('select * from listbox_data');
              open;
         end;
         listbox1.Items.Clear;
         while not query1.Eof do
         begin
              listbox1.Items.Add(query1.fieldbyname('data').asstring);
              query1.Next;
         end;
    end;
      

  5.   

    你可以在退出程序之前,先将listbox中的内容先保存到文件或数据库当中,在启动程序的时候在读到listbox中就行了。
      

  6.   

    退出程序时写入:
    listbox1.items.savetofile('list');加载程序时写入:
    listbox1.items.loadfromfile('list');
      

  7.   

    如果想把LISTBOX中的项目保存到SQL数据库中,应在点击按钮时写还是关闭程序时写,怎样写?
      

  8.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      if  listbox1.itemindex<>-1 then
       Listbox1.items.delete(listbox1.itemindex);
    end;你的问题问的太懒了吧。老兄。
      

  9.   

    最简单的办法是把listbox中的数据保存到文本文件中,下一次再load一次即可.
    listbox1.items.savetofile(filename.txt);
    listbox1.items.loadfromfile(filename.txt);
      

  10.   

    我想知道如何保存到SQL数据库中,请指教,非常着急!!!
      

  11.   

    我服了你了,唉!
    with adoquery1 do
    begin
      close;
      sql.clear;
      sql.add('insert tablename values ('+#39+listbox1.items.text+#39+')');
      prepared;
      execsql;//保存!
    end;with adoquery1 do
    begin
      close;
      sql.clear;
      sql.add('select fieldname tablename values ('+#39+listbox1.items.text+#39+')');
      prepared;
      open;
      Listbox1.items.text:=fieldbyname(fieldname).asstring;//读取
    end;别说你不会sql语句啊。老兄。
      

  12.   

    更正:
    sql.add('select fieldname tablename values ('+#39+listbox1.items.text+#39+')');应为:
    sql.add('select fieldname from tablename ');
      

  13.   

    首先你要明白你的数据要如何存入SQL数据库,是作为一条新记录存在,还是原有记录的一部分。
    1、如果是原有记录的一部分,那么如何同原有记录保持同步。
    2、如果是新增记录,那还要考虑是否所需的信息已完备。这些问题是最重要的,如果规划好了这些问题,后面的程序就好写了,
    而且方法太多了!!!
    随手抓一把都是、有使用数据集组件的、有直接使用连接对象的、有使用DataSet的、有使用Query的、有喜欢手写SQL的、有喜欢用Parameters。你爱怎么写就怎么写!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      

  14.   

    老大,要读出必须保存文件,可以用流读,可以使用普通文本,当然更可以用数据库。
    1基于流的是writecompent,对你太麻烦,没必要了,
    2文本ListBox.Items.Add(string);
    具体如此 Str:TStrings;
            Str.LoadFromFile(filename.txt);
            for i:=0 to Str.Count-1 do
               ListBox.Items.Add(trim(Str[i]));
    如此罢了,保存savetofile;
    3数据库 就更简单,明白了这个原理就可以了,