Changeset 290 for trunk/LocalPlayer


Ignore:
Timestamp:
Feb 26, 2021, 11:56:48 PM (4 years ago)
Author:
chronos
Message:
  • Modified: Use FreeAndNil instead of Free as defensive measure.
  • Modified: Use ihnerited without same method name specification.
Location:
trunk/LocalPlayer
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/Help.pas

    r261 r290  
    208208destructor THyperText.Destroy;
    209209begin
    210   inherited Destroy;
     210  inherited;
    211211end;
    212212
    … …  
    12371237      until FindNext(sr) <> 0;
    12381238    FindClose(sr);
    1239     Plus.Free;
     1239    FreeAndNil(Plus);
    12401240
    12411241    List.Sort;
    … …  
    12541254      MainText.AddLine(s);
    12551255    end;
    1256     List.Free;
     1256    FreeAndNil(List);
    12571257  end;
    12581258
    … …  
    12721272      MainText.AddLine(s);
    12731273    end;
    1274     List.Free;
     1274    FreeAndNil(List);
    12751275  end;
    12761276
    … …  
    14341434            AppendList(List);
    14351435          end;
    1436           List.Free;
     1436          FreeAndNil(List);
    14371437        end
    14381438        else // single advance
    … …  
    15331533          List.Sort;
    15341534          AppendList(List);
    1535           List.Free;
     1535          FreeAndNil(List);
    15361536        end
    15371537        else if no = 201 then
    … …  
    18221822            AppendList(List);
    18231823          end;
    1824           List.Free;
     1824          FreeAndNil(List);
    18251825        end
    18261826        else
    … …  
    19831983    OffscreenPaint;
    19841984    Invalidate;
    1985     HistItem.Free;
     1985    FreeAndNil(HistItem);
    19861986  end;
    19871987end;

  • trunk/LocalPlayer/IsoEngine.pas

    r245 r290  
    133133  OnInitEnemyModel := InitEnemyModelHandler;
    134134  if NoMap <> nil then
    135     NoMap.Free;
     135    FreeAndNil(NoMap);
    136136  NoMap := TIsoMap.Create;
    137137end;
    … …  
    168168  { prepare dithered ground tiles }
    169169  if LandPatch <> nil then
    170     LandPatch.Free;
     170    FreeAndNil(LandPatch);
    171171  LandPatch := TBitmap.Create;
    172172  LandPatch.PixelFormat := pf24bit;
    … …  
    175175  LandPatch.Canvas.FillRect(0, 0, LandPatch.Width, LandPatch.Height);
    176176  if OceanPatch <> nil then
    177     OceanPatch.Free;
     177    FreeAndNil(OceanPatch);
    178178  OceanPatch := TBitmap.Create;
    179179  OceanPatch.PixelFormat := pf24bit;
    … …  
    363363      DitherMask.Canvas, 0, 0, SRCAND);
    364364
    365   LandMore.Free;
    366   OceanMore.Free;
    367   DitherMask.Free;
     365  FreeAndNil(LandMore);
     366  FreeAndNil(OceanMore);
     367  FreeAndNil(DitherMask);
    368368
    369369  // reduce size of terrain icons
    … …  
    418418  end;
    419419  Mask24.EndUpdate;
    420   Mask24.Free;
     420  FreeAndNil(Mask24);
    421421
    422422  if Borders <> nil then
    423     Borders.Free;
     423    FreeAndNil(Borders);
    424424  Borders := TBitmap.Create;
    425425  Borders.PixelFormat := pf24bit;

  • trunk/LocalPlayer/MessgEx.lfm

    r232 r290  
    11object MessgExDlg: TMessgExDlg
    22  Left = 463
     3  Height = 134
    34  Top = 164
     5  Width = 418
    46  BorderIcons = []
    57  BorderStyle = bsNone
    … …  
    810  ClientWidth = 418
    911  Color = clBtnFace
    10   Font.Charset = DEFAULT_CHARSET
     12  DesignTimePPI = 144
    1113  Font.Color = clWindowText
    1214  Font.Height = -13
    1315  Font.Name = 'MS Sans Serif'
    14   Font.Style = []
    1516  FormStyle = fsStayOnTop
    1617  OnClose = FormClose
    … …  
    1920  OnPaint = FormPaint
    2021  OnShow = FormShow
    21   PixelsPerInch = 96
     22  LCLVersion = '2.0.12.0'
    2223  Scaled = False
    2324  object Button1: TButtonA
    2425    Left = 43
     26    Height = 25
    2527    Top = 104
    2628    Width = 100
    27     Height = 25
    2829    Down = False
    2930    Permanent = False
    3031    OnClick = Button1Click
    31     Caption = ''
    3232  end
    3333  object Button2: TButtonA
    3434    Left = 159
     35    Height = 25
    3536    Top = 104
    3637    Width = 100
    37     Height = 25
    3838    Down = False
    3939    Permanent = False
    4040    OnClick = Button2Click
    41     Caption = ''
    4241  end
    4342  object Button3: TButtonA
    4443    Left = 275
     44    Height = 25
    4545    Top = 104
    4646    Width = 100
    47     Height = 25
    4847    Down = False
    4948    Permanent = False
    5049    OnClick = Button3Click
    51     Caption = ''
    5250  end
    5351  object RemoveBtn: TButtonB
    5452    Left = 384
     53    Height = 25
    5554    Top = 104
    5655    Width = 25
    57     Height = 25
    5856    Down = False
    5957    Permanent = False
    … …  
    6361  object EInput: TEdit
    6462    Left = 125
     63    Height = 26
    6564    Top = 64
    6665    Width = 168
    67     Height = 19
    68     TabStop = False
    6966    BorderStyle = bsNone
    7067    Color = clBlack
    71     Font.Charset = DEFAULT_CHARSET
    7268    Font.Color = 4176863
    7369    Font.Height = -15
    … …  
    7571    Font.Style = [fsBold]
    7672    ParentFont = False
     73    TabStop = False
    7774    TabOrder = 0
    7875  end

  • trunk/LocalPlayer/MessgEx.pas

    r245 r290  
    218218  end
    219219  else
    220     result := inherited ShowModal;
     220    result := inherited;
    221221end;
    222222

  • trunk/LocalPlayer/NatStat.pas

    r189 r290  
    9898procedure TNatStatDlg.FormDestroy(Sender: TObject);
    9999begin
    100   ReportText.Free;
     100  FreeAndNil(ReportText);
    101101  FreeMem(SelfReport);
    102   Template.Free;
    103   Back.Free;
     102  FreeAndNil(Template);
     103  FreeAndNil(Back);
    104104end;
    105105

  • trunk/LocalPlayer/Term.pas

    r288 r290  
    12431243    if AILogo[p] <> nil then
    12441244    begin
    1245       AILogo[p].free;
    1246       AILogo[p] := nil
     1245      FreeAndNil(AILogo[p]);
    12471246    end
    12481247  end
    … …  
    12531252    if not LoadGraphicFile(AILogo[p], HomeDir + Name + '.png', gfNoError) then
    12541253    begin
    1255       AILogo[p].free;
    1256       AILogo[p] := nil
     1254      FreeAndNil(AILogo[p]);
    12571255    end
    12581256  end
    … …  
    24972495    cReleaseModule:
    24982496      begin
    2499         SmallImp.free;
    2500         UnusedTribeFiles.free;
    2501         TribeNames.free;
    2502         MainMap.free;
     2497        FreeAndNil(SmallImp);
     2498        FreeAndNil(UnusedTribeFiles);
     2499        FreeAndNil(TribeNames);
     2500        FreeAndNil(MainMap);
    25032501        IsoEngine.Done;
    25042502        // AdvisorDlg.DeInit;
    … …  
    26982696        for p1 := 0 to nPl - 1 do
    26992697          if Tribe[p1] <> nil then
    2700             Tribe[p1].free;
     2698            FreeAndNil(Tribe[p1]);
    27012699        Tribes.Done;
    27022700        RepaintOnResize := false;

  • trunk/LocalPlayer/Tribes.pas

    r98 r290  
    9090    begin
    9191      ReallocMem(PictureList, 0);
    92       StdUnitScript.Free;
     92      FreeAndNil(StdUnitScript);
    9393    end;
    9494
    … …  
    313313  destructor TTribe.Destroy;
    314314  begin
    315     Script.Free;
    316     inherited Destroy;
     315    FreeAndNil(Script);
     316    inherited;
    317317  end;
    318318

  • trunk/LocalPlayer/UnitStat.pas

    r209 r290  
    8888procedure TUnitStatDlg.FormDestroy(Sender: TObject);
    8989begin
    90   Template.Free;
    91   Back.Free;
     90  FreeAndNil(Template);
     91  FreeAndNil(Back);
    9292end;
    9393
Note: See TracChangeset for help on using the changeset viewer.