Delphi RzCombobox控件的AddItemValue用法

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;