いつも通り好き勝手にアプリ作ってたら妙なエラーが出ました。
integer が必要ですが ファイルの終端 が見つかりました
何ですかねこれ、よく見聞きするやつじゃないし、私が知らないだけなやつでしょうか。
直前に文字列を選択してドラッグ&ドロップ(以降D&Dと表記)したので、これが原因なのは確実。
しかし、赤波線が出てる場所とエラー内容がいまいちピンと来ません。
内容自体はループを指定回数回して配列に格納する、と言うもの。
上記のD&Dした文字列は2行目の「Copy(day, 7, 2);」です。
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2);˷˷˷
ary[i, 1] := '晴れ';
end;
調べてもヒットしないし、エラー周りのコードを消してもダメ。
pasの開き直し、delphi本体の再起動とかもしましたが解消しません。
そのくせコンパイルは通るんで気持ち悪い。
コピペで消えたりせんかな?と思って配列に格納する3行分をコピペしたところで「ary[i, 1] := ‘晴れ’;」が消え、エラーも解消しました。
ちょっと私の頭じゃ理解できなかったので、操作を戻して何度か試した感じ「D&Dしたことで改行が変になってたっぽい?」と言うことで納得しました。
以下は選択行を変えてコピペしてみたコピペ前とコピペ後。
1行 変わらず
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2);˷˷˷
ary[i, 1] := '晴れ';
end;
↓
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2);˷˷˷
ary[i, 1] := '晴れ';
end;
2行 改行が消える
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2);˷˷˷
ary[i, 1] := '晴れ';
end;
↓
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2); ary[i, 1] := '晴れ';
end;
3行 改行と「ary[i, 1] := ‘晴れ’;」が消える
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2);˷˷˷
ary[i, 1] := '晴れ';
end;
↓
for i := 0 to cnt do
begin
day := 8桁数字;
ary[i, 0] := Copy(day, 1, 4) + '/' + Copy(day, 5, 2) + '/' +
Copy(day, 7, 2); end;