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