This repository was archived by the owner on May 1, 2024. It is now read-only.
File tree Expand file tree Collapse file tree 1 file changed +10
-6
lines changed Expand file tree Collapse file tree 1 file changed +10
-6
lines changed Original file line number Diff line number Diff line change @@ -242,17 +242,19 @@ end;
242
242
function CSVToErlangData (Filename: String): TErlangData;
243
243
var
244
244
Rows: TArrayOfString;
245
+ RowValues: TStrings;
245
246
begin
246
247
LoadStringsFromFile(Filename, Rows);
248
+ RowValues := SplitString(Rows[0 ], ' ,' );
247
249
248
250
with Result do begin
249
- OTPVersion := Rows[ 0 ] [0 ];
250
- ERTSVersion := Rows[ 0 ] [1 ];
251
- URL32 := Rows[ 0 ] [2 ];
252
- URL64 := Rows[ 0 ] [3 ];
251
+ OTPVersion := RowValues [0 ];
252
+ ERTSVersion := RowValues [1 ];
253
+ URL32 := RowValues [2 ];
254
+ URL64 := RowValues [3 ];
253
255
254
- Exe32 := ExpandConstant( ' {tmp}\ ' + GetURLFilePart(URL32) );
255
- Exe64 := ExpandConstant( ' {tmp}\ ' + GetURLFilePart(URL64) );
256
+ Exe32 := GetURLFilePart(URL32);
257
+ Exe64 := GetURLFilePart(URL64);
256
258
Name32 := ' OTP ' + OTPVersion + ' (32-bit)' ;
257
259
Name64 := ' OTP ' + OTPVersion + ' (64-bit)' ;
258
260
end ;
@@ -401,6 +403,8 @@ begin
401
403
' Select another release to install' ,
402
404
' ' , 0 , False, True, nil
403
405
);
406
+
407
+ GlobalErlangData := CSVToErlangData(GetErlangCSVFilePath);
404
408
end ;
405
409
406
410
function InitializeSetup (): Boolean;
You can’t perform that action at this time.
0 commit comments