opendialog.fliter 及listbox.item 的简单应用，马上给分

Question

No.1
  ListBox1.Items.Add(Edit1.Text);No.2
  OpenDialog1.Filter := 'Text files(*.txt)|*.txt';

Answer 1

谢谢，又是你，
第一个我加入到listbox中，但如何保存，重新启动后 listbox中没了，第二个我的意思是从刚才的 listbox中读取到 filter中，

Answer 2

 form1.opendialog1.filter := 'text file(form2.ListBox1.Items[form2.ListBox1.itemindex])';
不对，不知道怎么写

Answer 3

1.ListBox.items.SaveToFile('C:\test.txt');2.ListBox.items.LoadFromfile(C:\test.txt);
  OpenDialog.Filter := ListBox.items.text;

Answer 4

ListBox1.Items.Strings[ListBox1.ItemIndex]

Answer 5

procedure TForm2.Button1Click(Sender: TObject);
begin
  if length(edit1.text) = 0 then exit
  else
  begin
  listbox1.items.Add(edit1.text);
  listbox1.Items.SaveToFile('d:\DELPHITEXT\1\text.txt') ;
  edit1.text :='';
  end;
end;会出错啊，

Answer 6

将listbox内容在应用程序关闭之前存入文件，启动时再装载。
listbox值可直接读出：
var
 i:integer;
begin
  for i := 0 to (ListBox1.Items.Count - 1) do begin
    if ListBox1.Selected[i] then
    begin
    OpenDialog1.Filter :=listbox1.Items.Strings[i];
    end;
   end;end;

Answer 7

出错为不能创建  'd:\DELPHITEXT\1\text.txt' 

Answer 8

cul
你刚才的那个没错，C 盘可以，
但是存在TEXT里，而listbox里照样没有 

Answer 9

sunmandun
 我照你的程序进去，可是那个按钮没作用，
查出是 listbox1.itemindex <0 怎么解决呢，

Answer 10

listbox1.itemindex <0 说明listbox1无内容，请根据需要增加。也可在程序中自己加一if判断