i don't know the code below,please help me!

Question

这里使用的是OpenDialog吗?能不能有更完整的代码？

Answer 1

with SaveDialog1,CheckListBox1 do
  if Execute and (Items.IndexOf(Filename) = -1) then
      case (Sender as TComponent).Tag of
        0: Items.Add(Filename);
        1: Items[ItemIndex] := Filename;
      end;

Answer 2

with SaveDialog1,CheckListBox1 do
  if Execute and (Items.IndexOf(Filename) = -1) then
      case (Sender as TComponent).Tag of
        0: Items.Add(Filename);
        1: if ItemIndex <> -1 then Items[ItemIndex] := Filename;
      end;

Answer 3

什么事件触发的，
意思说：
  当SaveDialog1弹出OK后，看你是哪个控件触发，
  如果控件的Tag = 
   0: CheckListBox1.Items.Add(FileName);
   1: 替换选中的Item == > FileName

Answer 4

if Execute and (Items.IndexOf(Filename) = -1) then
//弹出打开文件对话框，如果选择的文件名不在文件名列表中：
      case (Sender as TComponent).Tag of
//取得激发这个事件的控件的Tag号
        0: Items.Add(Filename);
//如果Tag=0，就将文件名增加到文件名列表
        1: Items[ItemIndex] :3D Filename;
//如果Tag=1，就用文件名替换文件名列表中的当前项
      end;
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
—————————————————————————————————