multi-dimensional array of records as constant

[Markus Ostenried]

Hi all,

I want to declare a multi-dimensional array of constant records as a constant:

type
TTMD_Type = (
tmdCliMemo,
tmdRezMemo,
tmdTermMemo
);

TTifRelDef = record
RelationType: String;
TableName: String;
KeyField: String;
end;

const
TifRelDefs: Array[TTMD_Type] of Array of TTifRelDef = (
???
);

With each value of TTMD_Type I want to access another array containing the
records.
I tried replacing the ???-line with this text:

( // Array for tmdCliMemo
(RelationType: 'RECIPIENT', TableName: 'CLIENTEN', KeyField:
'ID_CLIENT'),
(RelationType: 'SENDER', TableName: 'MITARBEITER', KeyField:
'ID_MITARBEITER')
),
( // Array for tmdRezMemo
(RelationType: 'SUBJECT', TableName: 'CLIENTEN', KeyField: 'ID_CLIENT'),
(RelationType: 'SUBJECT', TableName: 'REZEPTE', KeyField: 'ID_REZEPT')
),
( // Array for tmdTermMemo
(RelationType: 'SUBJECT', TableName: 'TERMINE', KeyField: 'ID_TERMIN')
)

but it didn't work (undeclared identifier: 'RelationType'). Can anybody
help me, please ?
Thanks,
Markuss


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/VygGAA/i7folB/TM
---------------------------------------------------------------------~->

Forget the BDE - Use TinyDB for Delphi!
http://www.delphicollection.com/public/TinyDB.htm
---------------------------------------------------------------
Unsubscribe:delphi-programming-***@yahoogroups.com
List owner:delphi-programming-***@yahoogroups.com
---------------------------------------------------------------

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

[Allan Smith]

Post by Markus Ostenried
Hi all,
type
TTMD_Type = (
tmdCliMemo,
tmdRezMemo,
tmdTermMemo
);
TTifRelDef = record
RelationType: String;
TableName: String;
KeyField: String;
end;
const
TifRelDefs: Array[TTMD_Type] of Array of TTifRelDef = (
???
);
With each value of TTMD_Type I want to access another array containing the
records.
( // Array for tmdCliMemo
'ID_CLIENT'),
'ID_MITARBEITER')
),
( // Array for tmdRezMemo
(RelationType: 'SUBJECT', TableName: 'CLIENTEN', KeyField: 'ID_CLIENT'),
(RelationType: 'SUBJECT', TableName: 'REZEPTE', KeyField: 'ID_REZEPT')
),
( // Array for tmdTermMemo
(RelationType: 'SUBJECT', TableName: 'TERMINE', KeyField: 'ID_TERMIN')
)
but it didn't work (undeclared identifier: 'RelationType'). Can anybody
help me, please ?
Thanks,

Markuss,

2 porblems as I see it.
First - you have an excess of brackets
Second - you have an Array [Boolean] of TTifRelDef where you want a TTifRelDef
in 2 places (tmdCliMemo & tmdRezMemo). What you should have is more like :-

TifRelDefs: Array[TTMD_Type] of Array of TTifRelDef =
(( // Array for tmdCliMemo
RelationType: 'RECIPIENT', TableName: 'CLIENTEN', KeyField: 'ID_CLIENT'),
( // Array for tmdRezMemo
RelationType: 'SUBJECT', TableName: 'CLIENTEN', KeyField: ID_CLIENT'),
( // Array for tmdTermMemo
RelationType: 'SUBJECT', TableName: 'TERMINE', KeyField: 'ID_TERMIN'));


Regards,
Allan Smith (Northwood, Middlesex, England)

------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/VygGAA/i7folB/TM
---------------------------------------------------------------------~->

Forget the BDE - Use TinyDB for Delphi!
http://www.delphicollection.com/public/TinyDB.htm
---------------------------------------------------------------
Unsubscribe:delphi-programming-***@yahoogroups.com
List owner:delphi-programming-***@yahoogroups.com
---------------------------------------------------------------

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

[Markus Ostenried]

thanks Alan,
but this gives me the same error when I save the code at the end of this
message to project1.dpr and compile.

I know that I can define a constant array of string like this:
type
MyType = (a, b ,c);
const
MyConst: Array[MyType] of String = ('a', 'b', 'c');

and the example in Delphi help about constant array of records looks like this:
type
TPoint = record
X, Y: Single;
end;
TVector = array[0..1] of TPoint;
const
Line: TVector = ((X: -3.1; Y: 1.5), (X: 5.8; Y: 3.0));

but how do you declare an Array[MyType] that contains dynamic TVector arrays ?
I just discovered that if below I replace "Array of TTifRelDef" with
"Array[0..1] of TTifRelDef" and add a second record for "tmdTermMemo" it
works perfectly. Could it be that you cannot declare dynamic arrays as
constants ? But then I wonder why the compiler says "Undeclared Identifier:
'RelationType'"...
Thanks,
Markus

<code>
program Project1;

type
TTMD_Type = (
tmtCliMemo,
tmtRezMemo,
tmtTermMemo
);

TTifRelDef = record
RelationType: String;
TableName: String;
KeyField: String;
end;

const
TifRelDefs: Array[TTMD_Type] of Array of TTifRelDef = (
// Array for tmdCliMemo: 2 records
( (RelationType: 'REC'; TableName: 'CLI'; KeyField: 'ID_CLI'),
(RelationType: 'SEND'; TableName: 'MIT', KeyField: 'ID_MIT')
),
// Array for tmdRezMemo: 2 records
( (RelationType: 'SUB', TableName: 'CLIN', KeyField: 'ID_CLI'),
(RelationType: 'SUB', TableName: 'REZ', KeyField: 'ID_REZ')
),
// Array for tmdTermMemo: 1 record
( (RelationType: 'SUB', TableName: 'TERM', KeyField: 'ID_TERM')
)
);

begin
end.
</code>


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/xaxhjB/hdqFAA/VygGAA/i7folB/TM
---------------------------------------------------------------------~->

Forget the BDE - Use TinyDB for Delphi!
http://www.delphicollection.com/public/TinyDB.htm
---------------------------------------------------------------
Unsubscribe:delphi-programming-***@yahoogroups.com
List owner:delphi-programming-***@yahoogroups.com
---------------------------------------------------------------

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/