喫茶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.


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

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

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