张志峰的博客

水滴石川,积少成多。

导航

Delphi RzCombobox控件的AddItemValue用法

Posted on 2011-07-21 09:54  ╰★张志峰★╮  阅读(3223)  评论(0编辑  收藏  举报

  RzComboBox_ProjectionType.Items.Clear;
  RzComboBox_ProjectionType.AddItemValue('三角形','0');
  RzComboBox_ProjectionType.AddItemValue('原形','1');
  RzComboBox_ProjectionType.ItemIndex := 0;

procedure TRzComboBox.ClearItemsValues;
begin
  Items.Clear;
  Values.Clear;
end;


procedure TRzComboBox.AddItemValue( const Item, Value: string );
begin
  Items.Add( Item );
  Values.Add( Value );
end;


procedure TRzComboBox.InsertItemValue( Index: Integer; const Item, Value: string );
begin
  Items.Insert( Index, Item );
  Values.Insert( Index, Value );
end;


procedure TRzComboBox.DeleteItemValue( Index: Integer );
begin
  Items.Delete( Index );
  Values.Delete( Index );
end;