Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.02.2018, 13:08   #11
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию

Цитата:
Сообщение от 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;

Последний раз редактировалось Etsareva; 07.02.2018 в 13:10.
Etsareva вне форума Ответить с цитированием
Старый 07.02.2018, 13:17   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Etsareva Посмотреть сообщение
и еще один вопрос: как реагировать на предупреждение?
нажимать ОК.
это ошибка возникает, т.к. в элементов в проекте есть свойства, которых нет в текущей версии Delphi, поэтому их IDE выбросит из проекта (но с вашего подтверждения).
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.02.2018, 13:27   #13
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
нажимать ОК
когда я нажимаю ок, отладчик зависает
Изображения
Тип файла: jpg Безымянный.jpg (121.3 Кб, 139 просмотров)
Etsareva вне форума Ответить с цитированием
Старый 07.02.2018, 13:48   #14
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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

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

Цитата:
Сообщение от Etsareva Посмотреть сообщение
когда я нажимаю ок, отладчик зависает
не зависает, а останавливается, наверное.
F7 / F8 пробовали нажимать?
Если не помогает - сброс, поставить точку останова раньше и пройти пошагово.

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

p.s. так что, проблема компиляции решена? проект откомпилировался?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.02.2018, 14:00   #15
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
проект откомпилировался
нет, проект не откомпилировался, это был тот же проект, но с некоторыми изменениями.
первый описывала - это изначальный проект без изменений. я в него вносила изменения необходимые и он мне выдавал ошибки.
второй мой вопрос связан с проектом, откомпилированном в delphi 2007, сейчас я его перекомпилировала в delphi 7.
я наверно Вас запутала.....
Etsareva вне форума Ответить с цитированием
Старый 07.02.2018, 14:11   #16
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Etsareva Посмотреть сообщение
я наверно Вас запутала.....
да это ерунда, главное, чтобы Вы сами не запутались!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.02.2018, 14:17   #17
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
чтобы Вы сами не запутались!
БОльшое спасибо Вам! я разобралась, проект откомпилировала.
Etsareva вне форума Ответить с цитированием
Старый 07.02.2018, 14:25   #18
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

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

Но в любом случае, поздравляю с победой!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.02.2018, 15:24   #19
Etsareva
Форумчанин
 
Регистрация: 26.01.2018
Сообщений: 180
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
поздравляю с победой!
Спасибо!
Etsareva вне форума Ответить с цитированием
Старый 27.02.2018, 02:45   #20
Igor[Игорь]
Пользователь
 
Аватар для Igor[Игорь]
 
Регистрация: 25.11.2011
Сообщений: 52
По умолчанию

Цитата:
Сообщение от Etsareva Посмотреть сообщение
БОльшое спасибо Вам! я разобралась, проект откомпилировала.
А в чем была причина?
e-mail: igor23dec@yandex.ru , ICQ: 2168364 , Telegram: @IgorVN
Delphi, PHP
Примеры http://igorvn.ucoz.ru/
Igor[Игорь] вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Компиляция формы в Delphi xe3 Andrew15.5 Помощь студентам 3 20.12.2016 10:52
delphi7+access 2007 danka123 Общие вопросы Delphi 0 26.09.2012 15:40
Delphi 2007 for Win32 + Delphi 2007 for PHP Noor Софт 0 20.04.2007 08:36
Компиляция .exe в Delphi Alar Общие вопросы Delphi 5 14.11.2006 08:43