この発言は
#00391　ＴＮ            さんの配列のサンプル？
に対するコメントです

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

#00394　瑠瓏            さん　RE^2:配列のサンプル？




ＴＮさん　こんにちは　凛です。
>凛 さん、こんにちは。caseがうっとおしいですね(^^;
確かに、、(^^;
まぁ関数としてはTDateTimeを引数にした方が使いやすいので

function kanjiYobi(theday:TDateTime):string;
const
   YOUBI: array[1..7] of string =
     ('日','月','火','水','木','金','土');
begin
   result:=Youbi[dayOfWeek(theday)];
end;
 ってのがいいかも、、
                                     98/02/12(木) 22:20 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

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