procedure TComLocateFrm.LocateBtnClick (Sender: TObject); var setLoOptions: TLocateOptions; i: Integer; slKeys: TStrings; begin if ComboBox1.Items.IndexOf (ComboBox1.Text) <0 then try slKeys: = TStringList.Create; slKeys.AddStrings ( ComboBox1.Items; ComboBox1.items.clear; ComboBox1.tems.add (ComboBoX1.Text); for i: = 0 to 8 do if i
if rdoExactly.Checked then setLoOptions: = [] else setLoOptions: = [loPartialKey]; if Not DesDataSet.Locate ( 'ZTM', ComboBox1.Text, setLoOptions) then MessageBox (Handle, 'there is no matching records found.' ' Tip ', 0 64); END; December 21, 2004 21:45:59
