Компиляция из delphi 2007 в delphi7

[Etsareva]

Сообщение от Etsareva

при компиляции ошибка

проследила зависимость - если я компилирую изначальный проект и начинаю работать с другим юнитом, то сразу вылетает ошибка:

Сообщение от Etsareva

[Error] MainUnit.pas(54): Undeclared identifier: 'Get_NewQuery'
[Error] MainUnit.pas(54): Undeclared identifier: 'ExecuteQuery'
[Error] MainUnit.pas(54): Undeclared identifier: 'Select2'
[Error] MainUnit.pas(54): Undeclared identifier: 'GetObjectInfo2'
[Error] MainUnit.pas(54): Undeclared identifier: 'GetObject2'
[Error] MainUnit.pas(54): Undeclared identifier: 'GetObjects2'
[Fatal Error] MainUnit.pas(669): Could not compile used unit 'OKPadd.pas'

часть кода юнита, где начинаю редактировать (строка выделена жирным):

procedure TFormStandAdd.BtnWriteClick(Sender:TObject);
var
  TmpStr:string;
  TmpDouble:Double;
begin
  NewProduct.OKPCode:=Trim(EditCode.Text);
  NewProduct.Mark:=EditMark.Text;
  NewProduct.bEnabled:=chkEnabled.Checked;
  //Проверка наличия необходимых данных
  if TypeObject=0 then begin//прочие
    if edtPinCount.Text='' then edtPinCount.Text:='0';
    if edtPinLength.Text='' then edtPinLength.Text:='0';
    if edtPinCount.Text='0' then begin
      TabPreciousMetal.Show;
      edtPinCount.SetFocus;
      StdMainForm.BalloonHint.ActivateHint(edtPinCount, 'Введите количество выводов',
        ikInformation,
        FormStandAdd.Caption, 2000);
      Exit;
    end;
    if edtPinLength.Text='0' then begin
      TabPreciousMetal.Show;
      edtPinLength.SetFocus;
      StdMainForm.BalloonHint.ActivateHint(edtPinLength, 'Введите длину выводов', ikInformation,
        FormStandAdd.Caption, 2000);
      Exit;
    end;
    NewProduct.EREPinCount:=StrToInt(edtPinCount.Text);
    if edtPCAD.Text='' then NewProduct.ERECompID:='-1';
    NewProduct.ERECompName:=edtPCAD.Text;
    if EREEditSPI.Text='' then EREEditSPI.Text:='0';
    NewProduct.EREUsefulPeriod:=StrToInt(EREEditSPI.Text);
    TmpStr:=StringReplace(edtPinLength.Text, '.', ',', [rfReplaceAll]);
    if not TryStrToFloat(TmpStr, TmpDouble) then begin
      TabPreciousMetal.Show;
      edtPinLength.SetFocus;
      StdMainForm.BalloonHint.ActivateHint(edtPinLength, 'Неверное значение', ikInformation,
        FormStandAdd.Caption, 2000);
      Exit;
    end;
    NewProduct.EREPinLength:=TmpDouble;
  end;

  NewProduct.Name:=EditNaim.Text;
  if EditOKP.Text='' then begin
    TabGeneral.Show;
    EditOKP.SetFocus;
    StdMainForm.BalloonHint.ActivateHint(EditOKP, 'Необходимо указать класс изделия',
      ikInformation,
      FormStandAdd.Caption, 2000);
    Exit;
  end;
  if NewProduct.GostID=-1 then begin
    TabGeneral.Show;
    EditGost.SetFocus;
    StdMainForm.BalloonHint.ActivateHint(EditGost, 'Необходимо выбрать ГОСТ', ikInformation,
      FormStandAdd.Caption, 2000);
    Exit;
  end;
  if (NewProduct.Mark='')and not chkHasDesign.Checked then begin
    TabGeneral.Show;
    EditMark.SetFocus;
    StdMainForm.BalloonHint.ActivateHint(EditMark, 'Необходимо ввести обозначение изделия',
      ikInformation, FormStandAdd.Caption, 2000);
    Exit;
  end;
  if Pos(' ', NewProduct.OKPCode)<>0 then begin
    //Если код содержит пробелы, то ругаемся
    EditCode.SetFocus;
    StdMainForm.BalloonHint.ActivateHint(EditCode, 'Неверный код ОКП', ikInformation,
      FormStandAdd.Caption, 2000);
    Exit;
  end;

  if cmbGroup.ItemIndex=-1 then begin
    cmbGroup.SetFocus;
    StdMainForm.BalloonHint.ActivateHint(cmbGroup, 'Укажите группу изделия', ikInformation,
      FormStandAdd.Caption, 2000);
    Exit;
  end;
  NewProduct.Group:=Integer(cmbGroup.Properties.Items.Objects[cmbGroup.ItemIndex]) ;
  NewProduct.ODS:=EditODS.Text;
  TmpStr:=StringReplace(EditMass.Text, '.', ',', [rfReplaceAll]);
  if TmpStr='' then TmpStr:='0';
  if not TryStrToFloat(TmpStr, TmpDouble) then begin
    EditMass.SetFocus;
    StdMainForm.BalloonHint.ActivateHint(EditMass, 'Неверное значение', ikInformation,
      FormStandAdd.Caption, 2000);
    Exit;
  end;
  NewProduct.Mass:=TmpStr;
  NewProduct.STDHasDesign:=chkHasDesign.Checked;
  NewProduct.OBM:=EditOBM.Text;
  NewProduct.CRC:=CalcCRC(NewProduct.OKPCode);
  GridPreciousMetal.ClearRows;
  FormAtributAdd.Show;

  //if not chkUnceasingEntering.Checked then FormStandAdd.Close;
end;

[Serge_Bliznykov]

Сообщение от Etsareva

и еще один вопрос: как реагировать на предупреждение?

нажимать ОК.
это ошибка возникает, т.к. в элементов в проекте есть свойства, которых нет в текущей версии Delphi, поэтому их IDE выбросит из проекта (но с вашего подтверждения).

[Etsareva]

Сообщение от Serge_Bliznykov

нажимать ОК

когда я нажимаю ок, отладчик зависает

[Serge_Bliznykov]

я думал, что ошибка возникает у Вас на этапе загрузки проекта.

а это не так.
Это совершенно другое.
Нужно идти в отладку и смотреть, какая строчка вызывает данную ошибку и выяснять причину этого.

Сообщение от Etsareva

когда я нажимаю ок, отладчик зависает

не зависает, а останавливается, наверное.
F7 / F8 пробовали нажимать?
Если не помогает - сброс, поставить точку останова раньше и пройти пошагово.

Вы вообще отладчиком пользуетесь?

p.s. так что, проблема компиляции решена? проект откомпилировался?!

[Etsareva]

Сообщение от Serge_Bliznykov

проект откомпилировался

нет, проект не откомпилировался, это был тот же проект, но с некоторыми изменениями.
первый описывала - это изначальный проект без изменений. я в него вносила изменения необходимые и он мне выдавал ошибки.
второй мой вопрос связан с проектом, откомпилированном в delphi 2007, сейчас я его перекомпилировала в delphi 7.
я наверно Вас запутала.....

[Serge_Bliznykov]

Сообщение от Etsareva

я наверно Вас запутала.....

да это ерунда, главное, чтобы Вы сами не запутались!

[Etsareva]

Сообщение от Serge_Bliznykov

чтобы Вы сами не запутались!

БОльшое спасибо Вам! я разобралась, проект откомпилировала.

[Serge_Bliznykov]

Вот уж не за что! я ничем Вам не помог!

Но в любом случае, поздравляю с победой!

[Etsareva]

Сообщение от Serge_Bliznykov

поздравляю с победой!

Спасибо!

[Igor[Игорь]]

Сообщение от Etsareva

БОльшое спасибо Вам! я разобралась, проект откомпилировала.

А в чем была причина?