この発言は
#00393　凛              さんのRE:配列のサンプル？
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00396　凛              さん　RE^3:配列のサンプル？




凛 さん、どもです　瑠瓏です。

どうせなら、さらに


function kanjiYobi(theDay:TDateTime):string;
const
   YOUBI: string[14] = '日月火水木金土';
begin
   Result:=Copy(YOUBI,DayOfWeek(theDay)*2+1,2)
end;

とか、
const
     Y1:array[1..14] of char = '日月火水木金土';
     YOUBI:array[0..7] of array [1..2] of char absolute Y1;
begin
   Result:=YOUBI[DayOfWeek(theDay)]
end;

とか。
　　　　　　　　　　　　URL=http://member.nifty.ne.jp/lereaux/
如月、立春、あと和好　  FDELPHI ☆ 瑠瓏 <KHB05271@niftyserve.or.jp>
                      　FJBUILDR    Sat,2/14/98  11:29

Original document by 瑠瓏            氏 ID:(KHB05271)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。