Цитата:
Сообщение от Yurk@
кодик добавления покажи
|
procedure TForm2.BitBtn1Click(Sender: TObject);
Var fs: String;
n,flag: integer;
begin
flag:=0;
Form1.ADOQuery1.Post;
fs:=Form2.DBEdit4.Text;
for n:=0 to Form1.DBComboBox1.Items.Count do
begin
if fs=Form1.DBComboBox1.Items[n]
then
flag:=1;
end;
if flag=0
then form1.DBComboBox1.Items.Add(fs);
Close;
end;