Немного списков. Сначала прочитанное за прошедший год.

По статистике электронной читалки:

• 12 книг закончено
• 84 часа
• 3840 бумажных страниц

Список (жирным выделил то, что рекомендую):

1. Елена Котова. Откуда берутся деньги, Карл?
2. Уильям Шекспир. Гамлет, принц датский
3. Александр Дружинин. Полинька Сакс
4. Николай Лесков. Леди Макбет Мценского уезда
5. Александр Островский. Гроза
6. Александр Островский. Бесприданница
7. Людмила Петрушевская. Время ночь
8. Массимо Пильюччи. Как быть стоиком. Античная философия и современная жизнь
9. Коллектив авторов. Горожанин. Что мы знаем о жителе большого города
10. Лев Толстой. Смерть Ивана Ильича
11. Герман Гессе. Степной волк
12. Саша Соколов. Школа для дураков

Статистика перелетов из FLIO:

• Километры: 22962
• Полёты: 17
• Аэропорты: 10
• Страны: 7

Посоветуйте еще какие-нибудь приложения для статистики :)

С новым годом!

По статистике электронной читалки:

• 18 книг закончено
• 181 час
• 10046 бумажных страниц

Список:

1. Агата Кристи. Убийство Роджера Экройда
2. Агата Кристи. Свидание со смертью
3. Иосиф Бродский. Как читать книгу
4. Агата Кристи. Часы
5. Мариша Пессл. Некоторые вопросы теории катастроф
6. Мариша Пессл. Ночное кино
7. Герман Гессе. Душа ребенка
8. Герман Гессе. Сиддхартха
9. Робин Слоун. Круглосуточный книжный мистера Пенумбры
10. Олдос Хаксли. Остров
11. Олдос Хаксли. Двери восприятия. Рай и ад
12. Стивен Бэчелор. Что такое буддизм? Как жить по принципам Будды
13. Юлия Гиппенрейтер. Общаться с ребенком. Как?
14. Александр Роднянский. Выходит продюсер
15. Лев Троцкий. Преданная революция: Что такое СССР и куда он идет?
16. Лев Толстой. Чем люди живы
17. Лев Толстой. Карма
18. Лев Толстой. Семейное счастье

Открытия года для меня: Мариша Пессл, Герман Гессе и Лев Троцкий.

В общем, я с большим удовольствием ее прочитал.

Как любая поваренная книга («cookbook» все-таки), эта книга представляет собой сборник рецептов. Рецепты совершенно разнообразные — от использования стилей в VCL, до рисования нестандартных вещей в FMX ListView, от примеров функционального программирования в Delphi до импорта Java-библиотек на андроиде. Более 60 рецептов, если верить обложке :)

Лично меня эта книга заинтересовала в первую очередь не столько сутью самих рецептов, сколько тем фактом, что автор для решения поставленных задач использует все нововведения Delphi, какие только возможно. За этим очень интересно наблюдать. Delphi в последние годы развивается быстро и не всегда отдаешь себе отчет в том, сколько же всего нового появилось в свежих версиях.

Поэтому я рекомендую Delphi Cookbook в первую очередь тем, кто все еще работает со старыми версиям Delphi и хочет поближе приглядеться к нововведениям. Хотя и те, кто работает с новыми версиями, тоже найдут, чем расширить свой кругозор.

Хороших книг о Delphi в последнее время довольно мало издается. Так что новость довольно позитивная, на мой взгляд.

Можно считать это первыми действиями нового менеджмента из Idera. К лучшему оно или нет, мы узнаем потом. Но что будет с презентациями Delphi, вебинарами и т.п. на русском языке теперь совсем непонятно.

Пожелаем Денису, Сергею, Алексею и Екатерине удачи в дальнейшей карьере!

В декабре два плагина для Delphi — FixInsight и Parnassus Navigator — можно получить по цене одного. Про Parnassus Navigator я уже писал. Очень интересная штука, действительно упрощает повседневную жизнь. Ускоряет навигацию в коде.

С учетом того, что у FixInsight для России специальная цена, все это вместе делает новогоднее предложение особенно выгодным. Вряд ли такое можно встретить где-то еще. Ссылка вот: http://sourceoddity.com/fixinsight/order.html

С наступающим поздравлять пока рано! НО. Но вы можете поздравить меня с днем рожденья :)

Посмотреть запись можно на ютубе:

А сама презентация вот:

Во-первых, Navigator позволяет быстро перемещаться по модулю с помощью нового поискового окна. Раньше я постоянно нажимал CTRL+F, вводил текст, а потом F3 F3 F3… А кто так не делает? С навигатором это делать намного проще.

То есть можно просто ввести фрагменты слов и получить полный список подходящих идентификаторов в текущем модуле. Это могут быть не только методы и процедуры, но и сами классы, свойства классов, секции uses и т.п. Вся структура модуля как на ладони.

Во-вторых, там есть крутая миникарта, которая тоже помогает перемещаться по коду чуть быстрее.

В-третьих, лично мне особенно приятно то, что это еще один интересный проект использующий мой DelphiAST. Оказывается, многим не хватало хорошего парсера.

Как вам? Интересно, чего вам не достает в Delphi IDE из того, что уже есть в других средах разработки?

We believe in a particular order not because it is objectively true, but because believing in it enables us to cooperate effectively and forge a better society. Imagined orders are not evil conspiracies or useless mirages. Rather, they are the only way large numbers of humans can cooperate effectively.

…

It is easy to accept that Hammurabi’s Code was a myth, but we do not want to hear that human rigths are also a myth. If people realise that human rights exist only in the imagination, isn’t there a danger that our society will collapse?

…

Homo sapiens has no natural rights, just as spiders, hyenas and chimpanzees have no natural rights. But don’t tell that to our servants, lest they murder us at night.

…

The modern age has witnessed the rise of a number of new natural-law religions, such as libralism, Communism, capitalism, nationalism and Nazism.

…

Our modern attempts to stabilise the sociopolitical order have had no choice but to rely on either of two unscientific methods: a. Take a scientific theory, and in opposition to common scientific practices, declare that it is a final and absolute truth. This was the method used by Nazis (who claimed that their racial policies were the corollaries of biological facts) and Communists (who claimed that Marx and Lenin had divined absolute economic truths that could never be refuted). b. Leave science out of it and live in accordance with a non-scientific absolute truth. This has been the strategy of liberal humanism, which is built on a dogmatic belief in the unique worth and rights of human beings — a doctrine which has embarrassingly little in common with the scientific study of Homo sapience.

Очень занимательное чтиво. Крайне рекомендую.

W517 Variable hides a class field, method or property

procedure TLight.ReadDiffuse(Reader: TReader);
var
  Color: Integer;
begin
  IdentToAlphaColor(Reader.ReadIdent, Color);
  {$R-}
  Color := TAlphaColor(Color);
  {$R+}
end;

И то же самое в другом модуле.

procedure TStrokeCube.ReadDiffuse(Reader: TReader);
var
  Color: Integer;
begin
  IdentToAlphaColor(Reader.ReadIdent, Color);
  {$R-}
  Color := TAlphaColor(Color);
  {$R+}
end;

Это одно из тех многочисленных предупреждений «переменная скрывает поле класса», о которых я говорил в предыдущем посте. В этом случае мы действительно видим баг. Классы TLight и TStrokeCube имеют свойство Color (типа TAlphaColor, конечно). Так что я предполагаю, что на самом деле имелось ввиду что-то вроде «Self.Color := TAlphaColor(Color)», но лучше просто переименовать переменную. Использовать одинаковые имена для переменных и полей класса — это очень плохой стиль. И Embarcadero, к сожалению, им злоупотребляет. Часто это совершенно не вредит, но иногда ведет к трудноотлавливаемым багам вроде этого. Просто посмотрите на этот код, запомните и никогда так не делайте. Никогда.

W511 Object created in TRY block

begin
  if ([csDesigning, csDestroying, csLoading, csUpdating] * ComponentState <> []) or
     (FUpdating > 0) then Exit;
  { Update objects in form }
  try
    Comparer := TComparerTFmxObject.Create;
    ClientList := TTObjInfoList.Create(Comparer);
    Bucket := TDictionary<TObject, TObject>.Create;
    for InitiatedCount := 0 to 7 do
    begin
      if CollectActionClients(ClientList) = 0 then
        Break;
      ClientList.Sort;
      for I := 0 to ClientList.Count - 1 do
        ClientList[I].ActionClient.InitiateAction;
      ClientList.Clear;
    end;
  finally
    FreeAndNil(ClientList);
    FreeAndNil(Bucket);
  end;
end;

Приложение может вызвать исключение до того как ссылка на экземпляр класса будет присвоена переменным ClientList и/или Bucket. Это значит, что в блоке finally может быть попытка освободить объекты, которые не создавались.

W523 Interface declared without a GUID

  IModelImporter = interface
    function GetDescription: string;
    function GetExt: string;

    function LoadFromFile(const AFileName: string; out AMesh: TMeshDynArray;
      const AOwner: TComponent): Boolean;
  end;

  IFMXUISwitch = interface(UISwitch)
    { Touches }
    procedure touchesBegan(touches: NSSet; withEvent: UIEvent); cdecl;
    procedure touchesCancelled(touches: NSSet; withEvent: UIEvent); cdecl;
    procedure touchesEnded(touches: NSSet; withEvent: UIEvent); cdecl;
    procedure touchesMoved(touches: NSSet; withEvent: UIEvent); cdecl;
    procedure ValueChanged; cdecl;
  end;

Не баг на самом деле, но так как интерфейсам не присвоен GUID, то они не могут быть использованы с функцией Supports или оператором As. Может быть стоит добавить GUID, почему нет?

W510 Values on both sides of the operator are equal

function SamePosition(const APosition1, APosition2: TPosition): Boolean; overload;
begin
  Result := (APosition1.X = APosition2.X) and (APosition1.Y = APosition1.Y);
end;

Предположу, что имелось ввиду «APosition1.Y = APosition2.Y».

W508 Variable is assigned twice successively

  FPixelShader := TShaderManager.RegisterShaderFromData('gouraud.fps', TContextShaderKind.PixelShader, '', [
    TContextShaderSource.Create(TContextShaderArch.DX9, [
      $00, $02, $FF, $FF, $FE, $FF, $32, $00, $43, $54, $41, $42, $1C, $00, $00, $00, $9F, $00, $00, $00, $00, $02, $FF, $FF, $03, $00, $00, $00, $1C, $00, $00, $00, $00, $01, $00, $20, $98, $00, $00, $00,
// skipped

  FPixelShader := TShaderManager.RegisterShaderFromData('gouraud.fps', TContextShaderKind.PixelShader, '', [
    TContextShaderSource.Create(TContextShaderArch.DX9, [
      $00, $02, $FF, $FF, $FE, $FF, $32, $00, $43, $54, $41, $42, $1C, $00, $00, $00, $9F, $00, $00, $00, $00, $02, $FF, $FF, $03, $00, $00, $00, $1C, $00, $00, $00, $00, $01, $00, $20, $98, $00, $00, $00,
// skipped

Два одинаковых присвоения одной переменной подряд. Вероятно не баг, просто неаккуратная копипаста.

W503 Assignment right hand side is equal to its left hand side

  if X1 > X2 then
    X1 := X1;
  if Y1 > Y2 then
    Y1 := Y2;

Предположу, что имелось ввиду «X1 := X2».

      if (Self.Form <> nil) and (Self.Form.Handle <> nil) then
        Self.Form := Self.Form;

Не знаю что здесь должно было быть (Self.Form здесь — это поле record’а).

И еще одно похожее место.

      if FNew.FFrequency <> 0 then
        FNew.FValue := Round(FNew.FValue / FNew.FFrequency) * FNew.FFrequency
      else
        FNew.FValue := FNew.FValue;

W510 Values on both sides of the operator are equal

            if RegionSize = RegionSize then
            begin
              SetLength(UpdateRects, RegionData.rdh.nCount);
              for i := 0 to RegionData.rdh.nCount - 1 do
              begin
                R := PRgnRects(@RegionData.buffer[0])[i];
                UpdateRects[i] := RectF(R.Left, R.Top, R.Right, R.Bottom);
              end;
            end;

Что здесь имелось ввиду?

W513 Format parameter count mismatch

function TCustomValueRange.GetNamePath: string;
begin
  Result := Format( 'Value: %0:*.*f (%1:*.*f..%2:*.*f)', [Value, Min, Max]);
end;

Строка форматирования неправильная. При выполнении этого кода будет сообщение об ошибке.

W505 Empty THEN block

      if FoundValue.Count > 1 then
      else if FoundValue.Count > 0 then
        PropValues[Name] := FoundValue[0];

Этот код очень странно выглядит. Вероятно его можно заменить на что-то такое: «If FoundValue.Count = 1 then PropValues[Name] := FoundValue[0]».

Ну вот и все на сегодня. Используйте FixInsight, чтобы найти баги до того как ваши пользователи их найдут :)

W503 Assignment right hand side is equal to its left hand side

  constructor TNativeDownloader.Create(PublicKey: string; Salt: array of Byte; MainFile, PatchFile: TApkFileInfo);
  begin
    FMainFile := MainFile;
    FPatchFile := FPatchFile;
    FDownloader := TJNativeDownloaderLauncher.JavaClass.init(StringToJString(PublicKey), ByteArrayToJArray(Salt),
      CreateApkList(MainFile, PatchFile));
    Create;
  end;

Я думаю, тут должно было быть «FPatchFile := PatchFile».

W501 Empty EXCEPT block

  try
    Assert(FConnections.Count = 0); // All connections should have been removed
  except
  end;

Это не ошибка, просто непонятная какая-то ерунда :)

W517 Variable hides a class field, method or property

procedure TTask.ExecuteReplicates(Root: TTask);
var
                                     
//  ReplicasQuitting: Boolean;
  ReplicaProc: TProc;
begin
//  ReplicasQuitting := False;
  ReplicaProc := procedure
    var
      CurrentTask, ChildTask: ITask;
    begin
      CurrentTask := CurrentTask;
      if not Root.ShouldCreateReplica {or ReplicasQuitting} then
        Exit;
      ChildTask := Root.CreateReplicaTask(ReplicaProc, Self, [TCreateFlag.Replicating, TCreateFlag.Replica]);
      ChildTask.Start;
      try
        Root.CallUserCode;
      except
        Root.HandleException(TTask(ChildTask), TObject(AcquireExceptionObject));
      end;
    end;
  ReplicaProc;
end;

Сообщение W517 довольно часто встречается при анализе и VCL, и RTL. Но это место, по-моему, самое интересное. В классе TTask есть метод под названием CurrentTask и переменная CurrentTask перекрывает этот метод. Кстати, тут на строке 1865 еще одно предупреждение: «W503 Assignment right hand side is equal to its left hand side».

То есть непонятно что имелось ввиду «CurrentTask := Self.CurrentTask» или просто эта переменная там без какого-то смысла? В любом случае код довольно странно выглядит и достоин того, чтобы на него внимательно взглянуть.

Я не могу процитировать все сообщений W517, их слишком много. Но давайте вернемся к VCL и взглянем на еще один фрагмент.

procedure TCustomTaskDialog.ShowHelpException(E: Exception);
var
  Msg: string;
  Flags: Integer;
  SubE: Exception;
begin
  Flags := MB_OK or MB_ICONSTOP;
  if Application.UseRightToLeftReading then
    Flags := Flags or MB_RTLREADING;
  // ... [skipped]

Это не баг. Но это запросто сможет стать багом, если код изменится. Например, этот код будет компилироваться даже если переменную Flags просто удалить (ведь в классе TCustomTaskDialog есть свойство с таким же именем). Или, например, можно легко ошибиться и использовать в этом методе переменную вместо одноименного свойства, либо наоборот.

W504 Missing INHERITED call in destructor

destructor TJavaImport.Destroy;
begin
  TJNIResolver.DeleteGlobalRef(GetObjectID);
end;

Снова немало сообщений о пропущенном «inherited» в конструкторе. Процитирую только один пример.

W508 Variable is assigned twice successively

      // Another thread could start traversing the list between when we set the
      // head to P and when we assign to P.Next.  Initializing P.Next to point
      // to itself will make others spin until we assign the tail to P.Next.
      P.Next := P;
      P.Next := PThreadInfo(AtomicExchange(Pointer(FHashTable[H]), Pointer(P)));

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

На сегодня у меня все. Если пост вам понравился, то дайте мне знать на какую библиотеку или фреймворк мне стоит взглянуть с помощью FixInsight в следующий раз. FMX? JEDI? Что-то еще?