2代目のドラクエウォーク専用になっている iPhone 6s。

ハードに使っているのでいよいよ電池の持ちが悪くなってきました。充電回数 500回以上は確実で、おそらくは 1000回近くは行っているはず。

ということで、保管してあった交換用リチウムイオン充電池を発掘してきました。近い内に交換作業をしようと思います。

毎年憂鬱になるこの時期。

今年もいつもの如く、2日前から作業を開始しました。何が面倒って、とにかく入力作業が面倒。会計事務所の方を尊敬します。

13日17時時点で完了率 50%というところ。通帳関連の入力は済んだので、あとは手元にある領収書類の入力。そして最後の難儀が用紙への転記。

ああ、面倒だ。

いまだ現役の Delphi 6。

2001年発売で、リリース直後から使っているので 22年弱使い続けています。懐かしの Windows 2000から最新の Windows 11まで動作するプログラムが作れるというのは本当に凄い。未だに未習得のところがあり、時々　おお！　となる事もしばしば。

Delphiは毎年アップデートがされていますが、受託案件の 99%は Delphi 6で作成しています。あと何年現役で使えるかわかりませんが、Win32APIが使える間は大丈夫だと思います。

しんぴの水晶が欲しいのですが、ジェムを使って引く前にチケット 50連分を引いてみた。

そしたらなんと！　最初の30連で次々とピックアップ武器が当たりました。チケットだけで「頭・上・下」が揃ったのです。

これでジェムで狙うのは武器の「しんぴの水晶」だけ。幸先いいなぁ。

いつかは使うだろうと思って残しておいた使えそうな Aランクの心珠。

実際にはほとんど使う機会が無かったので、一気に整理することにしました。300個ぐらいある心珠のロックを解除する作業に1時間ぐらいかかりましたよ。

これらを種にして Sランクを作ります。4個しかないデインの Sが欲しい。

Delphiで扱うレコード型の話。

これまでレコード型の初期化には赤枠で囲った様な初期化専用の関数を作って文字列型には空値、数値型は0を代入して初期化していました。

簡単な方法は無いかとググってみると、FillChar関数でレコード全体を一気に初期化できるとのこと。まじか・・・。

で、青枠の様な関数を作ってテストしたところ、綺麗に初期化できました。はぁ～　これまでなんて無駄なコーディングをしていたんだろう・・・。