喫茶XRAYトップページ

[スレッド全体]
[13342] Re2:手続きと関数返信　削除
2020/5/2 (土) 08:23:25 Mr.XRAY 〔HomePage〕
▼ DEKOさん

>   // Leap year?
>   Writeln('Leap year?: ', TArray<string>.Create('No', 'Yes')[Ord(IsLeapYear(Year))]);

なぬ !?
やってみたら確かに．
TArray<string>.Create('No', 'Yes') ??
要素の指定があると・・・

テストコードです．Delphi 10.3.3 Community です．
{$R *.dres} はプロジェクトのアイコン設定のリソースです．

program Project1;

{$APPTYPE CONSOLE}

{$R *.dres}

uses
  SysUtils;

begin
  var Year : WORD := 2020;
  Writeln('Leap year?: ', TArray<string>.Create('No', 'Yes')[Ord(IsLeapYear(Year))]);
  Readln;
end.


[13343] Re3:手続きと関数返信　削除
2020/5/2 (土) 11:10:17 DEKO 〔HomePage〕
配列コンストラクタって奴ですね。

■<6> 構造化型の概要と配列型 (標準 Pascal 範囲内での Delphi 入門)
https://qiita.com/ht_deko/items/eedda6d38b6d0887d4ac#6121-%E9%85%8D%E5%88%97%E3%82%B3%E3%83%B3%E3%82%B9%E3%83%88%E3%83%A9%E3%82%AF%E3%82%BF-array-constructor
[13344] Re4:手続きと関数返信　削除
2020/5/2 (土) 11:14:09 Mr.XRAY 〔HomePage〕
▼ DEKOさん
> 配列コンストラクタって奴ですね。

えっ ? Delphi 2005 から・・・
知りませんでした．これ協力ですね．
後で初期化の記事に追加させて頂きます．

[13348] Re5:手続きと関数返信　削除
2020/5/9 (土) 03:05:20 DEKO 〔HomePage〕
ちょっとした応用編を。

[Delphi でコントロール配列 [小ネタ]]
https://qiita.com/ht_deko/items/9bf3b2e761cc4f169c75

[13347] インライン返信　削除
2020/5/7 (木) 09:18:59 Mr.XRAY
>   var Year : WORD := 2020;

あっ !! 今気づきました．
思わずインライン使用してしまいました (笑)

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82