用于在TComboBox中存储编号的小过程

最新推荐文章于 2021-10-19 12:47:21 发布

原创最新推荐文章于 2021-10-19 12:47:21 发布 · 794 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi

当前文章被收录于：

Delphi

55 篇文章 0 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

本文介绍了一个用于Delphi中的TComboBox控件加载和提取数据的小过程。通过使用TClientDataSet，可以有效地将数据集中的ID和名称加载到TComboBox中，并提供了从组合框项中提取原始ID的方法。

用于在TComboBox中存储编号的小过程
D5
procedure jzlLoadStrData(CBB: TComboBox; const S: string;
CDS: TClientDataSet);
var
pID : PChar;
sID : string;
sName : string;
begin
if (not CDS.Active) then
 exit;

CBB.Clear;
if s <> '' then
 CBB.Items.Add('--'+s+'--');

CDS.First;
while not CDS.Eof do
begin
 sID := CDS.fieldByName('id').asstring;
 sName := CDS.FIELDBYNAME('NAME').AsString;
 GetMem(pID,10);
 StrPCopy(pID,sID);
 CBB.Items.AddObject(sName,TObject(pID));
 CDS.Next;
end;
CBB.ItemIndex := 0;
end;

用于从指定的列表项中取出编号
function jzlGetStrValue(Item: TStrings; index: Integer): String;
var
sID : string;
begin
Result := '';
if (index = -1) or (index=0) then exit;
sID := PChar(Item.Objects[index]);
Result := sID;
end;