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

Commit 61657ef

Browse files
committed
use parallel arrays instead of dummy object
1 parent f292179 commit 61657ef

File tree

2 files changed

+1
-12
lines changed

2 files changed

+1
-12
lines changed

ElixirWeb.iss

+1-8
Original file line numberDiff line numberDiff line change
@@ -159,13 +159,6 @@ begin
159159
if CurPageID = GlobalPageSelRelease.ID then begin
160160
for i := 0 to GlobalPageSelRelease.CheckListBox.Items.Count - 1 do begin
161161
if GlobalPageSelRelease.CheckListBox.Checked[i] then begin
162-
RefMatch := GlobalPageSelRelease.CheckListBox.ItemObject[i];
163-
break;
164-
end;
165-
end;
166-
167-
for i := 0 to GetArrayLength(GlobalElixirReleases) - 1 do begin
168-
if GlobalElixirReleases[i].Ref = RefMatch then begin
169162
CacheSelectedRelease := GlobalElixirReleases[i];
170163
break;
171164
end;
@@ -198,7 +191,7 @@ begin
198191
0, // All choices on the same level
199192
(latest) and (ReleaseType = 'release'), // Radio button selected by default if it's the latest release
200193
(ReleaseType <> 'incompatible'), // Incompatible releases can't be selected
201-
Ref // Pointer to release's reference object
194+
Nil
202195
);
203196
204197
if ReleaseType = 'release' then

src/TElixirRelease.iss

-4
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,6 @@ type
2020
Version: String;
2121
URL: String;
2222
ReleaseType: String;
23-
Ref: TObject;
2423
end;
2524
2625
// Given a filename to an elixir.csv file, return an array of Elixir releases corresponding to
@@ -51,9 +50,6 @@ begin
5150
end else begin
5251
ReleaseType := 'incompatible';
5352
end;
54-
55-
// Assign this Elixir release a new reference object
56-
Ref := TObject.Create();
5753
end;
5854
end;
5955
end else begin

0 commit comments

Comments
 (0)