Size: a a a

2020 November 27

AK

Alexey Kulakov in Delphi & Lazarus
хы, какая занятная вещица https://github.com/digao-dalpiaz/Dam
источник

z

zamtmn in Delphi & Lazarus
странно. через AppProps исключения ловятся всегда
источник

z

zamtmn in Delphi & Lazarus
через ExceptProc через раз. для теста ставлю местами PSTRING(0)^:='QWERTY', в какихто местах вызывается стандартный обработчик, в какихто мой((
источник

z

zamtmn in Delphi & Lazarus
местами = в разных местах программы
источник

RS

Renat Suleymanov in Delphi & Lazarus
zamtmn
через ExceptProc через раз. для теста ставлю местами PSTRING(0)^:='QWERTY', в какихто местах вызывается стандартный обработчик, в какихто мой((
Я думаю здесь проблема в том, что глобальная переменная ExceptProc срабатывает когда, так сказать, прочие обработки не смогли перехватить (в том числе LCLBase и другими модулями) . Это типа финальная стадия, до которой программа не смогла перехватить ошибку. И получается что это Unhandled error, которая пролетает мимо триггера событий OnException приложения TApplication
источник

RS

Renat Suleymanov in Delphi & Lazarus
ПОчему так пишу. Пытался поймать одну ошибку в приложении. Unhandled exception. ТАк вот всякими там OnError от TApplication (ну в моем случае это было BrookApp, но суть та же) не перехватывается и даже в DEBUG сборке не кажет номера строк в исходном коде [в остальных случаях все норм]. Перехватывало только вот этой глобальной процедурной переменной
источник
2020 November 28

AS

Alexey Shumkin in Delphi & Lazarus
zamtmn
вполне хватило бы
 public
   PowerTrans: Integer;
   SteelType: String;
   Frequency: Integer;
   LegDiameter: Integer;
   DiameterDimension: Integer;
   StackNumber: Integer;
   PlateStepNumber: Integer;
   StepNumber: Integer;
   HoleLegDiameter: Integer;
   HoleYokeDiameter: Integer;
   HoleLegNumber: Integer;
   HoleYokeNumber: Integer;
   SigmaLeg: Integer;
   SigmaYoke: Integer;
   HalfOverlap: Integer;
   PlateGap: Extended;
   WindowHeight: Integer;
   LegDimension: Integer;
   VoltagePh: Extended;
   TurnNumber: Integer;
   B1: Integer;
Иди ставить автоматы на 10А на медные провода 4мм² 😁
А что? можно же ...
источник

СП

Сергей Пятыгин... in Delphi & Lazarus
источник

СП

Сергей Пятыгин... in Delphi & Lazarus
При этом не TFPGList свойства не уничтожаются!?
источник

z

zamtmn in Delphi & Lazarus
Alexey Shumkin
Иди ставить автоматы на 10А на медные провода 4мм² 😁
А что? можно же ...
Это ты с коллегами так ставиш.
- Зачем?
- у нас так принято
- Дак в данном случае смысла от этого никакого нет
- Надо говорю, давай утыкаемся пропертями на ровном месте
- блин, в лазаре отладчик с пропертями не очень дружит,  вот чувак уже выход из диапазона отличить не может от раннего удаления...
- молчи, я в секте програмистов а ты нет! давай еще пропертей куданить вставим
источник

z

zamtmn in Delphi & Lazarus
Renat Suleymanov
ПОчему так пишу. Пытался поймать одну ошибку в приложении. Unhandled exception. ТАк вот всякими там OnError от TApplication (ну в моем случае это было BrookApp, но суть та же) не перехватывается и даже в DEBUG сборке не кажет номера строк в исходном коде [в остальных случаях все норм]. Перехватывало только вот этой глобальной процедурной переменной
странно
источник

z

zamtmn in Delphi & Lazarus
»Add('Размер A бокового стержня пакета [' + IntToStr(j + 1) + '], мм = ' + FormatFloat('0.0', FSM.DimensionA[j]));
стоит заменить на add(format('блабла',[..]) и вынести текстовые строки в ресурсные строки
источник

z

zamtmn in Delphi & Lazarus
оно пустое, скорее всего просто
источник

z

zamtmn in Delphi & Lazarus
не уничтоженное
источник

z

zamtmn in Delphi & Lazarus
ты цикловую переменную по одним параметрам инициализируешь, а перебираешь другой массив. конечно у тебя будут ошибки выхода из диапазона
источник

z

zamtmn in Delphi & Lazarus
так и есть
источник

z

zamtmn in Delphi & Lazarus
общее впечатление по исходникам - много хардкоженых стрингов и циферок. ровно так как выглядят исходники типичного упоротого делфиста))
источник

z

zamtmn in Delphi & Lazarus
а пустое оно видимо потому что
источник

z

zamtmn in Delphi & Lazarus
источник

z

zamtmn in Delphi & Lazarus
вот понапишут в "хорошем" стиле и сами разобраться немогут))
источник