Skip to content
This repository was archived by the owner on May 1, 2024. It is now read-only.

Commit 2588b1c

Browse files
committed
Fix typo and more nil issues
1 parent 16615be commit 2588b1c

File tree

1 file changed

+2
-4
lines changed

1 file changed

+2
-4
lines changed

ElixirWeb.iss

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -66,7 +66,7 @@ Filename: "{tmp}\Output\elixir-v{code:ConstGetSelectedReleaseVersion}-setup.exe"
6666
[Tasks]
6767
Name: "erlang"; Description: "Install Erlang"; GroupDescription: "Erlang"; Check: CheckToInstallErlang
6868
Name: "erlang\32"; Description: "{code:ConstGetErlangName32}"; GroupDescription: "Erlang"; Flags: exclusive
69-
Name: "erlang\64"; Description: "{code:ConstGetErlangName32}"; GroupDescription: "Erlang"; Flags: exclusive; Check: IsWin64
69+
Name: "erlang\64"; Description: "{code:ConstGetErlangName64}"; GroupDescription: "Erlang"; Flags: exclusive; Check: IsWin64
7070
Name: "erlpath"; Description: "Append Erlang directory to Path environment variable"; GroupDescription: "Erlang"; Check: CheckToAddErlangPath
7171

7272
[Code]
@@ -318,7 +318,6 @@ function GetFirstReleaseMatchingRef(Releases: array of TElixirRelease; RefMatch:
318318
var
319319
i: Integer;
320320
begin
321-
Result := Null;
322321
for i := 0 to GetArrayLength(Releases) - 1 do begin
323322
if Releases[i].Ref = RefMatch then begin
324323
Result := Releases[i];
@@ -331,10 +330,9 @@ function GetSelectedRelease(ListBoxes: array of TNewCheckListBox; Releases: arra
331330
var
332331
i, j, k: Integer;
333332
begin
334-
Result := Null;
335333
for i := 0 to GetArrayLength(ListBoxes) - 1 do begin
336334
for j := 0 to ListBoxes[i].Items.Count - 1 do begin
337-
if ListBoxes[i].ItemObject[j] <> Null then begin
335+
if ListBoxes[i].ItemObject[j] <> nil then begin
338336
Result := GetFirstReleaseMatchingRef(Releases, ListBoxes[i].ItemObject[j]);
339337
exit;
340338
end;

0 commit comments

Comments
 (0)