Помощь с кодом

[angel546]

Добрый день, у меня проблема с кнопкой, нажимаю показывает ошибку. Сейчас пришлю код . Код в текстовой файле. Помогите пожалуйста, ребята.

[macomics]

Переименуйте компонент.

[angel546]

macomics, где именно

[digitalis]

Ну это улёт: даже не скрин, а снимок с экрана! Не перестаю удивляться: как это люди упорны в своём стремлении затруднить возможную помощь им в решении задачи...

[angel546]

digitalis, если скрин пришлю, помогите, а то с программированием не очень

[ichi]

В коде присутствует два END. По-моему в этом проблема.

procedure Tmashinagram9.tipDropDown(Sender: TObject);
begin
tip.Items.Clear;
DM.ADOVxdoc.Close;
DM.ADOVxdoc.SQL.Clear;
DM.ADOVxdoc.SQL.Add('SELECT Left([nomer_documenta],2) AS tip  FROM UASKI   GROUP BY Left([nomer_documenta],2)');
DM.ADOVxdoc.Open;
DM.ADOVxdoc.First;
  while (not DM.ADOVxdoc.Eof) do
  begin
  tip.Items.Add(DM.ADOVxdoc.FieldByName('tip').AsString);
  DM.ADOVxdoc.Next;
  end
end;
end.

procedure Tmashinagram9.tipChange(Sender: TObject);
begin
 if tip.Text='' then
 begin
   dm.s_qwer.Active:=True;
   dm.p_qwer.Active:=True;
   s_name.Visible:=True;
   po_name.Visible:=True;
   s.Visible:=True;
   po.Visible:=True;
   v_delo.Visible:=true;
 end
 else
 begin
   s_name.Visible:=False;
   po_name.Visible:=False;
   s.Visible:=False;
   po.Visible:=False;
   v_delo.Visible:=false;
 end;
end.

[Viktor61]

В процедуре
procedure Tmashinagram9.tipChange(Sender: TObject);
НЕ ХВАТАЕТ end;

В procedure Tmashinagram9.tipDropDown(Sender: TObject);
END с точкой.
По правилам после END. програмный код считается законченым и все что ниже END. не учитывается.

Ув. angel546! Берите свои процедуры, ремаркируйте тела процедур (все что между begin end) и проверяейте код на совпадение этих пар, причем после end должно быть ; . В конце кода допустим только один непарный END с точкой.
Удачи!