Real Name	:	Nesrin Uluca
Subject	:	İstenilen alanları Combobox'a yazdirma
Description	:
procedure TForm1.FormCreate(Sender: TObject); begin with Table1 do begin DisableControls; try First while not EOF do begin with MyCombo.Items do Objects[Add(FieldByName('Terms').AsString)] := Pointer((FieldByName('EmpNo').AsInteger)); Next; end; finally EnableControls; end; end; end; procedure TForm1.MyComboClick(Sender: TObject); var EmpNo: Integer; begin with MyCombo do EmpNo:=LongInt(Items.Objects[ ItemIndex ]); ShowMessage('Emp.No.: ' + IntToStr(EmpNo)); End;
Rating	:	0.00 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor