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;