Forum: Object-Pascal / Delphi-Language
Delphi
by ASM,
24. Jun 2011
Alternative ohne Verwendung eines externen Files zur Runtime
(in Anlehung an Julian M.Bucknall, 2001, "Tomes of Delphi: Algorithms and Data Structures"):
File ResStrings.inc:CONST
cResStrBase = $5444;
maxResCount = 12;
AA_10_10 = cResStrBase + 0;
AA_10_11 = cResStrBase + 1;
AA_10_12 = cResStrBase + 2;
AA_10_13 = cResStrBase + 3;
Forum: Object-Pascal / Delphi-Language
Delphi
by ASM,
24. Jun 2011
Warum nicht so:
resourcestring
AA_10_10='Dies ist ein Text';
AA_10_11='Dies ist ein weiterer Text';
AA_10_12='Dies ist noch ein Text';
AA_10_13='Dies ist der letzte Text';
var ResStr: Array of string =(AA_10_10,AA_10_11,AA_10_12,AA_10_13);
Function constantentext(i: word): String;