喫茶XRAYトップページ

[スレッド全体]
[13336] 手続きと関数返信　削除
2020/4/27 (月) 11:36:24 Mr.XRAY 〔HomePage〕
<11> 手続きと関数 (標準 Pascal 範囲内での Delphi 入門)
https://qiita.com/ht_deko/items/b93ac03bfee002f17137#%E7%B5%90%E6%9E%9C-result

DEKO さんも書いているなぁ〜．
まっ，こういうのは読みで頂かないと意味がないのですが，
読んだ頂きたい方には読んで頂けないとい現実もあります．

最近，記事を書いていて，何年も前の質問を思い出し，
「あっ，そうかあれはそういうことだったのか」
と思うことがあります．
つまり，質問された方が何が分からないのか，分からなかったのかが
(多分ですが) 分かることがあります．
難しいです．

[13340] Re:手続きと関数返信　削除
2020/5/1 (金) 23:42:16 DEKO 〔HomePage〕
結構書きました (^^;A
https://ht-deko.com/qiita.md
https://ht-deko.com/qiita_mirror/qiita.md (ミラー)

コードのない読み物みたいな記事もありますが、
ちゃんとコードを書いたものもあります。

■Delphi でコンウェイの "Doomsday Rule" ゲームを作ってみる
https://qiita.com/ht_deko/items/5328538a2181251e3141

■Delphi で Qiita の記事をバックアップしてみる
https://qiita.com/ht_deko/items/f89774c5670952d52404

Delphi 使いからツッコミが入るようなコードを紛れ込ませているのですが、
なかなかツッコミが入りませんね (w

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

こういうのとか。
[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

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