在combobox控件中动态地加入一条记录后,怎样让其永久保存

解决方案 »

  1.   

    我在想有没有办法写会本身呢
    就是说,exe自己改自己?
      

  2.   

    上面的都可以,但是很麻烦啊,用下面的方面很简单:
      combobox1.Items.SaveToFile(文件名);//保存  combobox1.Items.LoadFromFile(文件名);//保存
      

  3.   

    我是说在程序运行过程中在combobox控件中加入一条记录后怎样永久保存。
      

  4.   

    wgx_xx(地狱边缘) 你强。还可以写到一张表里。
      

  5.   

    写到ini或注册表应该怎末写呀?谁能给出一段详细的代码
      

  6.   

    请先在 uses 段加入:registry,  代码如下:
    procedure addtoregtable(svalue:string);
    var
      regkey: tregistry;
    begin
      regkey := tregistry.create;
      try
        regkey.rootkey := HKEY_CURRENT_USER;
        regkey.openkey('\software\userinfo', true);
        regkey.writestring('userinfo', svalue);
        regkey.closekey;
      finally
        regkey.free;
      end;
      

  7.   

    不好意思,没写清楚:
    regkey.writestring('userinfo', svalue);中的userinfo是键值(写成username等应该比较好区分吧,呵呵),不同于上一行中的,那是主键。
      

  8.   

    procedure TForm1.FormActivate(Sender: TObject);var
      MyIniFile: TIniFile;
    begin
      MyIniFile := TIniFile.Create('myapp.ini');
      with MyIniFile do
      begin
        if ReadBool('AutoLoad', 'FormProperties', False) = True then
        begin
          Visible := ReadBool('FormOptions', 'Visible', True);
          Color := TColor(ReadInteger('FormOptions', 'Color', clWindow));
          Caption := ReadString('FormOptions', 'Caption', 'Main');
      end;
      MyIniFile.Free;
    end;
    procedure TForm1.Button1Click(Sender: TObject);var
      MyIniFile: TIniFile;
      begin
      MyIniFile := TIniFile.Create('myapp.ini');
      Memo1.Clear;
      MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
      if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
        MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
      MyIniFile.Free;
    end;procedure TForm1.Button2Click(Sender: TObject);var
      MyIniFile: TIniFile;
      begin  MyIniFile := TIniFile.Create('myapp.ini');  { if the entry wasn抰 there before, delete it now }
      if Memo1.Lines.Values['Title1'] = '' then
        MyIniFile.DeleteKey('Transfer', 'Title1')
      { otherwise, restore the old value }
      else
        MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
      MyIniFile.Free;
    end;
      

  9.   

    写到ini吧。
    ses inifiles;
    procedure TForm1.Button1Click(Sender: TObject);
    var
     userini:tinifile;
    begin
      userini := Tinifile.create('g:\Shuttime.ini') ;//创建
      userini.WriteString ('Shut','Time',trim(edit1.text));//保存edit1里面的内容
      userini.free ;
    end;
      

  10.   

    楼上的兄弟,您说的我试过了,是能保存到shuttime.ini中,但是在运行时怎末把它倒入啊,即把shuttime.ini中的内容追加到combobox的下拉列表中。