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;
242242function CSVToErlangData (Filename: String): TErlangData;
243243var
244244 Rows: TArrayOfString;
245+ RowValues: TStrings;
245246begin
246247 LoadStringsFromFile(Filename, Rows);
248+ RowValues := SplitString(Rows[0 ], ' ,' );
247249
248250 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 ];
253255
254- Exe32 := ExpandConstant( ' {tmp}\ ' + GetURLFilePart(URL32) );
255- Exe64 := ExpandConstant( ' {tmp}\ ' + GetURLFilePart(URL64) );
256+ Exe32 := GetURLFilePart(URL32);
257+ Exe64 := GetURLFilePart(URL64);
256258 Name32 := ' OTP ' + OTPVersion + ' (32-bit)' ;
257259 Name64 := ' OTP ' + OTPVersion + ' (64-bit)' ;
258260 end ;
@@ -401,6 +403,8 @@ begin
401403 ' Select another release to install' ,
402404 ' ' , 0 , False, True, nil
403405 );
406+
407+ GlobalErlangData := CSVToErlangData(GetErlangCSVFilePath);
404408end ;
405409
406410function InitializeSetup (): Boolean;
You can’t perform that action at this time.
0 commit comments