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