AddItem(ListBoxなど)

AddItemメソッドは ListBoxコントロールなどで項目を新しく追加する場合に使用します。Delphiでは TStrings型の「Add」メソッドで追加することが可能です。これは TStrings型のプロパティを持つコンポーネントならどれでも同じです。例えば リッチテキストで行を追加する場合も Lines(TStrings)の Addで可能です。 Addメソッドはリストの一番最後に項目を追加します。任意の位置に追加したい場合は 「Insert」メソッドを使用します。

■ TStringsの Addの使用例
  procedure TForm1.Button2Click(Sender: TObject);
  var
    ix  : integer;
  begin
    for ix  :=  ListBox1.Items.Count - 1  downto  0 do  begin
      {選択されているか？}
      if  ListBox1.Selected[ix] then  begin
        {メモに追加}
        Memo1.Lines.Add('Item = ' + ListBox1.Items[ix]);
        {リストボックスから削除}
        ListBox1.Items.Delete(ix);
      end;
    end;
  end;

■ TStringsの Insertの使用例
  procedure TForm1.Button2Click(Sender: TObject);
  var
    ix  : integer;
  begin
    for ix  :=  ListBox1.Items.Count - 1  downto  0 do  begin
      {選択されているか？}
      if  ListBox1.Selected[ix] then  begin
        {メモに追加}
        Memo1.Lines.Insert(0, 'ITEM = ' + ListBox1.Items[ix]);
        {リストボックスから削除}
        ListBox1.Items.Delete(ix);
      end;
    end;
  end;