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

用于在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;