Просмотр исходного кода

* check LastError from CanRead()

Ondrej Pokorny 4 лет назад
Родитель
Сommit
5979e464c6
1 измененных файлов с 1 добавлено и 2 удалено
  1. 1 2
      packages/fcl-web/src/base/fphttpserver.pp

+ 1 - 2
packages/fcl-web/src/base/fphttpserver.pp

@@ -539,8 +539,7 @@ end;
 
 
 destructor TFPHTTPServerConnectionListHandler.Destroy;
 destructor TFPHTTPServerConnectionListHandler.Destroy;
 begin
 begin
-  FList.Free;
-
+  FreeAndNil(FList);
   inherited Destroy;
   inherited Destroy;
 end;
 end;