Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit e73b127

Browse files
Add support for test compilation with Delphi 13
Added support for test compiling with and automatic registration of Delphi 13. Added support for saving and reading Delphi 13 test compilation results from all supported file formats. Added support for specifying Delphi 13 as the minimum compiler on the Code Generation tab of the Preference dialogue box.
1 parent 877ad21 commit e73b127

File tree

5 files changed

+11
-3
lines changed

5 files changed

+11
-3
lines changed

‎Src/Compilers.UBDS.pas‎

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -154,6 +154,8 @@ function TBDSCompiler.GetIDString: string;
154154
Result := 'D11A';
155155
ciD12A:
156156
Result := 'D12Y';
157+
ciD13F:
158+
Result := 'D13F';
157159
else
158160
raise EBug.Create(ClassName + '.GetIDString: Invalid ID');
159161
end;
@@ -179,6 +181,7 @@ function TBDSCompiler.GetName: string;
179181
sDelphi104S = 'Delphi 10.4'; // Sydney
180182
sDelphi11A = 'Delphi 11.x'; // Alexandria
181183
sDelphi12A = 'Delphi 12.x'; // Athens
184+
sDelphi13F = 'Delphi 13.x'; // Florence
182185
begin
183186
case GetID of
184187
ciDXE:
@@ -211,6 +214,8 @@ function TBDSCompiler.GetName: string;
211214
Result := sDelphi11A;
212215
ciD12A:
213216
Result := sDelphi12A;
217+
ciD13F:
218+
Result := sDelphi13F;
214219
else
215220
Result := Format(sCompilerName, [ProductVersion]);
216221
end;
@@ -246,6 +251,7 @@ function TBDSCompiler.InstallationRegKey: string;
246251
ciD104S : Result := '\Software\Embarcadero\BDS21円.0';
247252
ciD11A : Result := '\Software\Embarcadero\BDS22円.0';
248253
ciD12A : Result := '\Software\Embarcadero\BDS23円.0';
254+
ciD13F : Result := '\Software\Embarcadero\BDS37円.0';
249255
else raise EBug.Create(ClassName + '.InstallationRegKey: Invalid ID');
250256
end;
251257
end;

‎Src/Compilers.UGlobals.pas‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -45,6 +45,7 @@ interface
4545
ciD104S, // Delphi 10.4 Sydney,
4646
ciD11A, // Delphi 11.x Alexandria
4747
ciD12A, // Delphi 12 Athens
48+
ciD13F, // Delphi 13 Florence
4849
ciFPC // Free Pascal
4950
);
5051

@@ -58,7 +59,7 @@ interface
5859
cBDSCompilers = [
5960
ciD2005w32, ciD2006w32, ciD2007, ciD2009w32, ciD2010, ciDXE, ciDXE2,
6061
ciDXE3, ciDXE4, ciDXE5, ciDXE6, ciDXE7, ciDXE8, ciD10S, ciD101B, ciD102T,
61-
ciD103R, ciD104S, ciD11A, ciD12A
62+
ciD103R, ciD104S, ciD11A, ciD12A, ciD13F
6263
];
6364

6465
const

‎Src/DBIO.UIniDataReader.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -236,7 +236,7 @@ implementation
236236
'Delphi2010', 'DelphiXE', 'DelphiXE2', 'DelphiXE3', 'DelphiXE4',
237237
'DelphiXE5', 'DelphiXE6', 'DelphiXE7', 'DelphiXE8', 'Delphi10S',
238238
'Delphi101B', 'Delphi102T', 'Delphi103R', 'Delphi104S', 'Delphi11A',
239-
'Delphi12A',
239+
'Delphi12A','Delphi13F',
240240
'FPC'
241241
);
242242

‎Src/FrCodeGenPrefs.pas‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -682,6 +682,7 @@ procedure TCodeGenPrefsFrame.PopulatePreDefCompilerMenu;
682682
AddMenuItem('Delphi 10.4 Sydney', 34.0);
683683
AddMenuItem('Delphi 11.x Alexandria', 35.0);
684684
AddMenuItem('Delphi 12 Athens', 36.0);
685+
AddMenuItem('Delphi 13 Florence', 37.0);
685686
end;
686687

687688
procedure TCodeGenPrefsFrame.PreDefCompilerMenuClick(Sender: TObject);

‎Src/UXMLDocConsts.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -68,7 +68,7 @@ interface
6868
'd2005', 'd2006', 'd2007', 'd2009', 'd2010',
6969
'dXE', 'dXE2', 'dXE3', 'dDX4' {error, but in use so can't fix},
7070
'dXE5', 'dXE6', 'dXE7', 'dXE8',
71-
'd10s', 'd101b', 'd102t', 'd103r', 'd104s', 'd11a', 'd12y',
71+
'd10s', 'd101b', 'd102t', 'd103r', 'd104s', 'd11a', 'd12y','d13f',
7272
'fpc'
7373
);
7474

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /