🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #278

Re: 教えてください。

#278
From: SAKAI Nobuyuki
Date: Fri, 21 Feb 1997 00:00
46 lines
1655 bytes
坂井です。

In article <01bc2000$b0b25fa0$f9faf8ca@toshiba-user>,
Masakatsu Kudoh  さん wrote:
>-- DELPHI --
>Tabcd = record
>  Name[10] : string;
>  Min      : Word;
>  Max      : Word;
>  end;
>
>ABCD = array[0..2] of Tabcd;
>
>Datas : ABCD = (('TestNo.000',  0,  0), <--(A)
>                ('TestNo.001',100,120),
>                (' d s s s  ', 25, 10)
>               );
>
>
> このような感じでコーディングすると、(A)でエラーが発生します。自分としては
>このコーディングが悪いような気がします。正確にはどうコーディングをすればい
>いんでしょうか?

type
  TAbcd = record
    Name  : string[10];
    Min   : Word;
    Max   : Word;
  end;

const
  Abcd : array[0..2] of TAbcd =
          ((Name:'TestNo.001';Min:100;Max:120),
           (Name:'TestNo.001';Min:100;Max:120),
           (Name:' d s s s  ';Min: 25;Max: 10)
          );

行ないたかったのは、これでしょうか。
レコード型定数は覚えにくくて、私などは
マニュアルを見ないとすぐ忘れてしまいます・・・。

-- 
坂井伸之
mailto:sakai@nasu-net.or.jp
http://nug.nasu-net.or.jp/~sakai/
Technical Details
Message-ID: <5eki02$33r@nug.nasu-net.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <01bc2000$b0b25fa0$f9faf8ca@toshiba-user>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,2500c4785c75c55c,start
X-Google-Attributes: gidff90a,public
From: sakai@nasu-net.or.jp (SAKAI Nobuyuki)
Subject: Re: 教えてください。
Date: 1997/02/21
Message-ID: <5eki02$33r@nug.nasu-net.or.jp>
X-Deja-AN: 220446739
References: <01bc2000$b0b25fa0$f9faf8ca@toshiba-user>
Content-Type: Text/Plain; charset=ISO-2022-JP
Organization: Personal, Kuroiso-city, Japan
Mime-Version: 1.0
Newsgroups: fj.lang.pascal