7週間続いたドラクエウォークのイベントもやっと終わり。

いや、もう、全然面白くなかった。50日近くのイベントが終わることにホッとしているところです。

新しい要素で楽しませたいってのは伝わっているのですが、その新要素がつまらない笑。中の人、もうちょっと考えようぜ。

暑すぎてエアコンを使い始めたので、恐怖だった電気料金の請求書。

恐る恐る開封すると　え？　と思うほど安かった。思っていたよりも使用量が少ない。なんでだ？

エアコンをほとんど使っていない前月のほうが多いし、なんなら前年同月よりもかなり少ない。思い当たる事が無いのが不気味です。

昨日の散歩のときに撮れた雲の画。

曇りだけど曇りじゃない、青空も見えているなんとも絶妙なバランス。こんな空が好きです。

パステルっぽい色がいいですね。

古（いにしえ）の制御文である goto。

過去の遺物で現在の開発ツールでは使えないと思っていたのですが、Free Pascal について調べていると goto が出てきたのです。

ひょっとして Delphi でも使えるのか？　と思い、簡単なコードを書いて試したところ・・・

1
2
3
4
5
6
7
8
9
10
11
12
13
14

procedure TForm1.Button6Click(Sender: TObject);
label
  aa;
begin
 
  goto aa;
 
  ShowMessage('in');
 
aa:
 
  ShowMessage('in aa');
 
end;

なんということでしょう！エラーなく普通に使えました。

goto文を多用すると追うのが困難なプログラムになるので使うことはないでしょうが、多重ループから一気に抜け出す用途には使えそうですね。

ここ数日は暑すぎて大変です。

夏は上がっても 33℃という感じなのですが、今年は 34℃が続いています。1℃違うと暑さが別物という感じ。

猛暑になる予感がして気が滅入ります。

ブレーキペダルとスイッチの間にあるストッパーの厚みを測ってみると 3.5mm。

手元に 5mm厚のゴムシートがあったので、2cm角に切って貼り付けて応急処置しました。1.5mmの差はありますが、遊びが存在するので問題ない気がします。

この処置でとりあえずはブレーキランプが消灯しました。（純正部品を手に入れるまでの応急処置です）