|
| 1 | +(**************************************************************************) |
| 2 | +(* *) |
| 3 | +(* Module: Unit 'PyEnvironment.Embeddable.Python311' *) |
| 4 | +(* *) |
| 5 | +(* Copyright (c) 2021 *) |
| 6 | +(* Lucas Moura Belo - lmbelo *) |
| 7 | +(* lucas.belo@live.com *) |
| 8 | +(* Brazil *) |
| 9 | +(* *) |
| 10 | +(* Project page: https://github.com/Embarcadero/PythonEnviroments *) |
| 11 | +(**************************************************************************) |
| 12 | +(* Functionality: PyEnvironment Embeddable as a Resource *) |
| 13 | +(* *) |
| 14 | +(* *) |
| 15 | +(**************************************************************************) |
| 16 | +(* This source code is distributed with no WARRANTY, for no reason or use.*) |
| 17 | +(* Everyone is allowed to use and change this code free for his own tasks *) |
| 18 | +(* and projects, as long as this header and its copyright text is intact. *) |
| 19 | +(* For changed versions of this code, which are public distributed the *) |
| 20 | +(* following additional conditions have to be fullfilled: *) |
| 21 | +(* 1) The header has to contain a comment on the change and the author of *) |
| 22 | +(* it. *) |
| 23 | +(* 2) A copy of the changed source has to be sent to the above E-Mail *) |
| 24 | +(* address or my then valid address, if this is possible to the *) |
| 25 | +(* author. *) |
| 26 | +(* The second condition has the target to maintain an up to date central *) |
| 27 | +(* version of the component. If this condition is not acceptable for *) |
| 28 | +(* confidential or legal reasons, everyone is free to derive a component *) |
| 29 | +(* or to generate a diff file to my or other original sources. *) |
| 30 | +(**************************************************************************) |
| 31 | +unit PyEnvironment.Embeddable.Res.Python311; |
| 32 | + |
| 33 | +interface |
| 34 | + |
| 35 | +uses |
| 36 | + System.Classes, |
| 37 | + PyEnvironment.Embeddable.Res; |
| 38 | + |
| 39 | +type |
| 40 | + [ComponentPlatforms(pidAllPlatforms)] |
| 41 | + TPyEmbeddedResEnvironment311 = class(TPyCustomEmbeddedResEnvironment) |
| 42 | + protected |
| 43 | + procedure SetPythonVersion(const Value: string); override; |
| 44 | + end; |
| 45 | + |
| 46 | +{$I python311.inc} |
| 47 | + |
| 48 | +implementation |
| 49 | + |
| 50 | +{ TPyEmbeddedResEnvironment311 } |
| 51 | + |
| 52 | +procedure TPyEmbeddedResEnvironment311.SetPythonVersion(const Value: string); |
| 53 | +begin |
| 54 | + inherited SetPythonVersion('3.11'); |
| 55 | +end; |
| 56 | + |
| 57 | +end. |
0 commit comments