掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
UNITを追加したら、読み取り違反のエラーが出るようになったのですが？？ (ID:49446)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさん、ありがとうございます。 次のようなプログラムを組んでみました。 エラーは起きません。逆にどうしたらエラーが起こせるか疑問ですが？？ H[10,-1]と書くと、エラー表示が出てコンパイルできないのに、 H[10,k]と書くとコンパイルできるのはちょっと感動しました。 igyさんは、最後まで付き合ってもらって、ありがとうございます。 これで、最後にします。 そして、プログラムも修正します。 -1を０に。 igyさんは、私みたいな素人にも優しいので好感が。 これからもよろしくお願いします。 type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; H:array[0..100,1..10]of string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I,J,k:integer; begin k:=-1; for I := 0 to 10 do for j:=1 to 10 do H[i,j]:=IntTOStr(i)+'..'+intTostR(J); Edit1.Text:='10..-1'; Edit2.Text:=H[10,k]; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.