Domů
Nápověda
Přihlásit
Registrovat
Vítejte
Host
. Prosím
přihlašte se
nebo
zaregistrujte
.
Forum Delphi.cz
»
Delphi
»
Obecné
»
Direktíva v súbore *.dpk
« předchozí
další »
Tisk
Stran: [
1
]
Dolů
Autor
Téma: Direktíva v súbore *.dpk (Přečteno 803 krát)
Stanislav Hruška
Padawan
Příspěvků: 6677
Karma: 44
Verze Delphi: W10 + D11.1
Direktíva v súbore *.dpk
«
kdy:
12-09-2021, 12:15:37 »
Môže niečo také použiť v *.dpk?
Kód: Delphi
[Vybrat]
{IFDEF VER340}
// Delphi Sydney
TMSVCLUIPackPkgDXE13
,
TMSVCLUIPackPkgExDXE13
{ELSE}
{IFDEF VER350}
// Delphi Alexandria - predpokladám správne?
TMSVCLUIPackPkgDXE14
,
TMSVCLUIPackPkgExDXE14
{IFEND}
Akosi mi to nefunguje. Spustím kompiláciu v D11 a stále sa pracuje s xxx13. Ak to napíšem bez direktív s xxx14, tak je pre D11 v poriadku.
IP zaznamenána
W10 64b, Delphi 11.1, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.
Jan Fiala
Hrdina
Příspěvků: 299
Karma: 4
Verze Delphi: 10.4.1
Re:Direktíva v súbore *.dpk
«
Odpověď #1 kdy:
12-09-2021, 12:37:22 »
A kde definuješ proměnnou VER340 ? možná ti tam chybí .INC soubor, kde je VER340 definovaný
Pro detekci Delphi 11 muzes pouzit:
Kód: Delphi
[Vybrat]
{$IF CompilerVersion = 35}
// Delphi 11
...
{$ELSE}
...
{$ENDIF}
IP zaznamenána
Stanislav Hruška
Padawan
Příspěvků: 6677
Karma: 44
Verze Delphi: W10 + D11.1
Re:Direktíva v súbore *.dpk
«
Odpověď #2 kdy:
12-09-2021, 13:21:57 »
Tu je celý obsah okrem úvodu
Kód: Delphi
[Vybrat]
package
JasotComponents
;
.
requires
rtl
,
vcl
,
vclactnband
,
vclx
,
xmlrtl
,
dbrtl
,
vcldb
,
adortl
,
vclimg
,
VclSmp
,
VirtualTreesDR
,
{IFDEF VER340}
// Delphi Sydney
TMSVCLUIPackPkgDXE13
,
TMSVCLUIPackPkgExDXE13
{ELSE}
{IFDEF VER350}
// Delphi Alexandria
TMSVCLUIPackPkgDXE14
,
TMSVCLUIPackPkgExDXE14
{IFEND}
;
.
contains
jstSizePanel
in
'..\source\jstSizePanel.pas'
,
jstVirtualStringTree
in
'..\source\jstVirtualStringTree.pas'
,
jstAdvPanel
in
'..\source\jstAdvPanel.pas'
,
jstDatePicker
in
'..\source\jstDatePicker.pas'
,
jstDBDatePicker
in
'..\source\jstDBDatePicker.pas'
,
jstPlanSimpleEdit
in
'..\source\jstPlanSimpleEdit.pas'
{SimplePlannerItemEditForm}
,
jstPlanPeriodEdit
in
'..\source\jstPlanPeriodEdit.pas'
{PeriodPlannerItemEditForm}
,
jstPlanItemEdit
in
'..\source\jstPlanItemEdit.pas'
{DefaultPlannerItemEditForm}
,
jstbasicfunctions
in
'..\source\jstbasicfunctions.pas'
,
jstPlanRecurrEdit
in
'..\source\jstPlanRecurrEdit.pas'
{RecurrEdit}
,
jstplanreg
in
'..\source\jstplanreg.pas'
,
jstPlanAlarmEdit
in
'..\source\jstPlanAlarmEdit.pas'
{jstAlarmPlannerEditor}
,
AlarmPlannerEditForm
in
'..\source\AlarmPlannerEditForm.pas'
{frmAlarmPlannerEditForm}
;
end
.
V podstate sa na to môžem vykašľať. D10 pôjde preč. Musím ešte počkať, lebo D11 nevie nájsť súbor z TMS Cryptography. A ak po odstránení chyby otvorím svoj projekt, tak ho môžem zahodiť.
Za odpoveď ďakujem.
«
Poslední změna: 12-09-2021, 13:26:05 od Stanislav Hruška
»
IP zaznamenána
W10 64b, Delphi 11.1, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.
vandrovnik
Guru
Příspěvků: 1387
Karma: 51
Verze Delphi: 10.3
Re:Direktíva v súbore *.dpk
«
Odpověď #3 kdy:
12-09-2021, 13:58:53 »
Excellent
Rated
1
time
Nezkoušel jsem, ale přijde mi, že Ti tam chybí dolar. {$IFDEF...
IP zaznamenána
Stanislav Hruška
Padawan
Příspěvků: 6677
Karma: 44
Verze Delphi: W10 + D11.1
Re:Direktíva v súbore *.dpk
«
Odpověď #4 kdy:
12-09-2021, 14:30:46 »
Naozaj, chýba.
Vôbec som si to neuvedomil.
IP zaznamenána
W10 64b, Delphi 11.1, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.
pf1957
Padawan
Příspěvků: 3434
Karma: 139
Verze Delphi: D2007, XE3, DX10
Re:Direktíva v súbore *.dpk
«
Odpověď #5 kdy:
12-09-2021, 14:31:33 »
Citace: Jan Fiala 12-09-2021, 12:37:22
A kde definuješ proměnnou VER340
To je v Delphi standardně předdefinovaný symbol
IP zaznamenána
Stanislav Hruška
Padawan
Příspěvků: 6677
Karma: 44
Verze Delphi: W10 + D11.1
Re:Direktíva v súbore *.dpk
«
Odpověď #6 kdy:
12-09-2021, 18:08:53 »
Takto mi to funguje
Kód: Delphi
[Vybrat]
{$IFDEF VER340}
// Delphi Sydney
TMSVCLUIPackPkgDXE13
,
TMSVCLUIPackPkgExDXE13
{$ENDIF}
{$IFDEF VER350}
// Delphi Alexandria
TMSVCLUIPackPkgDXE14
,
TMSVCLUIPackPkgExDXE14
{$ENDIF}
;
IP zaznamenána
W10 64b, Delphi 11.1, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.
JaroB
Guru
Příspěvků: 1087
Karma: 29
Verze Delphi: XE8, Sydney
Re:Direktíva v súbore *.dpk
«
Odpověď #7 kdy:
12-09-2021, 19:52:17 »
Kdybych to dělal já, tak bych si z praktických důvodů pro každou verzi Delphi vytvořil vlastní DPK
IP zaznamenána
Stanislav Hruška
Padawan
Příspěvků: 6677
Karma: 44
Verze Delphi: W10 + D11.1
Re:Direktíva v súbore *.dpk
«
Odpověď #8 kdy:
12-09-2021, 21:14:18 »
To je len dočasné riešenie kým sa mi podarí spojazdniť D11. Viď koniec #3
IP zaznamenána
W10 64b, Delphi 11.1, FireBird 3.08
Expert na kladenie nejasne formulovaných otázok.
Tisk
Stran: [
1
]
Nahoru
« předchozí
další »
Forum Delphi.cz
»
Delphi
»
Obecné
»
Direktíva v súbore *.dpk