HELP! PROBLEM WITH CONSTANT RECORD DECLARATION!!!

Article View: alt.comp.lang.pascal

Article #1

Back to alt.comp.lang.pascal Previous Next

From: Amit Layman
Date: Tue, 17 Feb 2004 11:35

71 lines
4399 bytes

Hi!

I'm trying to define a constant record this way:

type
  TPhoneme = record
      phoneme: char;
      features: array [1..13] of integer;
      isvowel: boolean;
  end;

  TPhonemes = array [1..24] of TPhoneme;

const
   PHONEMES: TPhonemes =
   (
   (phoneme: 'i'; features: ( 1, -1,  1, -1, -1, -1, -1, -1,  1,  0,  0,  0,
0 ); isvowel: true),
   (phoneme: 'e'; features: ( 1, -1, -1, -1, -1, -1, -1, -1,  1,  0,  0,  0,
0 ); isvowel: true),
   (phoneme: 'a'; features: ( 1, -1, -1, 1,  1, -1, -1, -1,  1, 0,  0,  0,
0 ); isvowel: true),
   (phoneme: 'u'; features: ( 1, -1,  1, 1, -1, -1, -1,  1, -1, 0,  0,  0,
0 ); isvowel: true),
   (phoneme: 'o'; features: ( 1, -1, -1, 1, -1, -1, -1,  1,  1,  0,  0,  0,
0 ); isvowel: true),
   (phoneme: 'y'; features: (-1, -1,  1, -1, -1, -1, -1, -1, -1, 0,  0,  0,
0 ); isvowel: false),
   (phoneme: 'r'; features: ( 1,  1, -1, -1, -1, -1, 1,  0,  0, 1,
 1, -1, -1 ); isvowel: false),
   (phoneme: 'l'; features: ( 1,  1, -1, -1, -1,  1, 1,  0,  0, 1,
 1, -1, -1 ); isvowel: false),
   (phoneme: 'h'; features: (-1, -1, -1, -1,  1, -1, -1,  0,  0, -1,
 1, -1, -1 ); isvowel: false),
   (phoneme: 'p'; features: (-1,  1, -1, -1, -1,  1, -1,  0,
 0, -1, -1, -1, -1 ); isvowel: false),
   (phoneme: 'b'; features: (-1,  1, -1, -1, -1,  1, -1,  0,  0,
1, -1, -1, -1 ); isvowel: false),
   (phoneme: 't'; features: (-1,  1, -1, -1, -1,  1, 1,  0,
 0, -1, -1, -1, -1 ); isvowel: false),
   (phoneme: 'd'; features: (-1,  1, -1, -1, -1,  1, 1,  0,  0,
1, -1, -1, -1 ); isvowel: false),
   (phoneme: 'k'; features: (-1,  1,  1, 1, -1, -1, -1, -1,
 0, -1, -1, -1, -1 ); isvowel: false),
   (phoneme: 'g'; features: (-1,  1,  1, 1, -1, -1, -1, -1,  0,
1, -1, -1, -1 ); isvowel: false),
   (phoneme: 'f'; features: (-1,  1, -1, -1, -1,  1, -1,  0,  0, -1,  1, -1,
1 ); isvowel: false),
   (phoneme: 'v'; features: (-1,  1, -1, -1, -1,  1, -1,  0,  0, 1,  1, -1,
1 ); isvowel: false),
   (phoneme: 'z'; features: (-1,  1, -1, -1, -1,  1, 1,  0,  0, 1,  1, -1,
1 ); isvowel: false),
   (phoneme: 's'; features: (-1,  1, -1, -1, -1,  1, 1,  0,  0, -1,  1, -1,
1 ); isvowel: false),
   (phoneme: 'S'; features: (-1,  1,  1, -1, -1, -1, 1,  0,  0, -1,  1, -1,
1 ); isvowel: false),
   (phoneme: 'm'; features: (-1,  1, -1, -1, -1,  1, -1,  0,  0, 1, -1,
 1, -1 ); isvowel: false),
   (phoneme: 'n'; features: (-1,  1, -1, -1, -1,  1, 1,  0,  0, 1, -1,
 1, -1 ); isvowel: false),
   (phoneme: 'c'; features: (-1,  1, -1, -1, -1,  1, 1,  0,  0, -1,
 1, -1, -1 ); isvowel: false),
   (phoneme: 'x'; features: (-1,  1,  1, -1, -1, -1, -1,  0,  0, -1,  1, -1,
1 ); isvowel: false),
   );

This wouldn't compile. What's wrong?

THANKS A LOT!!!

Amit

Technical Details

Message-ID: <c0su90$5c3$1@news.iucc.ac.il>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!logbridge.uoregon.edu!news.iucc.ac.il!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 104e31,673d7ddd4ee25466,start
X-Google-Attributes: gid104e31,public
X-Google-Thread: 111659,673d7ddd4ee25466,start
X-Google-Attributes: gid111659,public
X-Google-Thread: 10baee,673d7ddd4ee25466,start
X-Google-Attributes: gid10baee,public
X-Google-Thread: 1043cf,673d7ddd4ee25466,start
X-Google-Attributes: gid1043cf,public
X-Google-Thread: 1156ab,673d7ddd4ee25466,start
X-Google-Attributes: gid1156ab,public
X-Google-Thread: 10cc59,673d7ddd4ee25466,start
X-Google-Attributes: gid10cc59,public
X-Google-Thread: 10c950,673d7ddd4ee25466,start
X-Google-Attributes: gid10c950,public
X-Google-ArrivalTime: 2004-02-17 03:40:11 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!logbridge.uoregon.edu!news.iucc.ac.il!not-for-mail
From: "Amit Layman" <amitlay77@hotmail.com>
Newsgroups: alt.comp.lang.pascal,borland.public.delphi.objectpascal,comp.lang.pascal,comp.lang.pascal.ansi-iso,comp.lang.pascal.borland,comp.lang.pascal.delphi,comp.lang.pascal.delphi.misc
Subject: HELP! PROBLEM WITH CONSTANT RECORD  DECLARATION!!!
Date: Tue, 17 Feb 2004 13:35:02 +0200
Organization: The Israel Inter-University Computation Center
Lines: 73
Message-ID: <c0su90$5c3$1@news.iucc.ac.il>
NNTP-Posting-Host: psychology106-2.tau.ac.il
X-Trace: news.iucc.ac.il 1077017696 5507 132.66.156.160 (17 Feb 2004 11:34:56 GMT)
X-Complaints-To: abuse@news.iucc.ac.il
NNTP-Posting-Date: Tue, 17 Feb 2004 11:34:56 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165