Delphi cxComboBox 添加多个值并选择后返回相关值

创建表

CREATE TABLE [dbo].[Products]([Code] [nvarchar](20) NOT NULL,[Name] [nvarchar](100) NULL,[Price] [decimal](5, 2) NULL,[Quantity] [int] NULL,[Amount] [decimal](5, 2) NULL
)

创建测试数据

INSERT INTO Products (Code, Name, Price, Quantity, Amount) VALUES
('P001', 'Laptop', 1200.00, 50, 60000.00),
('P002', 'Smartphone', 800.00, 100, 80000.00),
('P003', 'Headphones', 50.00, 200, 10000.00),
('P004', 'Keyboard', 30.00, 150, 4500.00),
('P005', 'Mouse', 15.00, 300, 4500.00),
('P006', 'Monitor', 300.00, 80, 24000.00),
('P007', 'Printer', 150.00, 40, 6000.00),
('P008', 'External Hard Drive', 100.00, 120, 12000.00),
('P009', 'USB Flash Drive', 20.00, 250, 5000.00),
('P010', 'Wireless Router', 80.00, 90, 7200.00),
('P011', 'Tablet', 400.00, 70, 28000.00),
('P012', 'Gaming Console', 350.00, 45, 15750.00),
('P013', 'Camera', 600.00, 30, 18000.00),
('P014', 'Smart Watch', 200.00, 100, 20000.00),
('P015', 'Fitness Tracker', 80.00, 150, 12000.00),
('P016', 'Power Bank', 40.00, 200, 8000.00),
('P017', 'Bluetooth Speaker', 60.00, 120, 7200.00),
('P018', 'Drone', 1000.00, 20, 20000.00),
('P019', '3D Printer', 1500.00, 10, 15000.00),
('P020', 'Virtual Reality Headset', 800.00, 15, 12000.00);

定义记录类型 TProductInfo 和一个指向 TProductInfo 记录的指针类型 PProductInfo

typePProductInfo = ^TProductInfo;TProductInfo = recordCode: string;Name: string;Price: Double;Quantity: Integer;Amount: Double;end;

填充数据到cxCombobox

procedure TForm1.FormShow(Sender: TObject);
varProductInfo: PProductInfo;
begincxComboBox1.Properties.Items.Clear;with FDQuery1 dobeginclose;sql.clear;sql.add('SELECT p.Code, p.Name, p.Price, p.Quantity, p.Amount FROM Products AS p');open;if RecordCount > 0 thenbeginfirst;while not eof dobeginNew(ProductInfo);ProductInfo.Code := FieldByName('Code').AsString;ProductInfo.Name := FieldByName('Name').AsString;ProductInfo.Price := FieldByName('Price').AsFloat;ProductInfo.Quantity := FieldByName('Quantity').AsInteger;ProductInfo.Amount := FieldByName('Amount').AsFloat;cxComboBox1.Properties.Items.AddObject(ProductInfo.Name, TObject(ProductInfo));Next;end;end;end;
end;

选择item后返回需要的内容

procedure TForm1.cxComboBox1PropertiesChange(Sender: TObject);
begincxLabel1.Caption := cxComboBox1.EditValue;cxLabel2.Caption := PProductInfo(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).Code;cxLabel3.Caption := PProductInfo(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).Price.ToString;cxLabel4.Caption := PProductInfo(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).Quantity.ToString;cxLabel5.Caption := PProductInfo(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex]).Amount.ToString;
end;

效果