SetLengthの位置 (ID:37685)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 CountNo :=100; SetLength(T1,CountNo); SetLength(T2,CountNo); SetLength(T3,CountNo); ←ここに入れた場合は問題ありません。 for i:= 0 to CountNo do begin T1[i] := Test[i].T1; T2[i] := Test[i].T2; T3[i] := Test[i].T3; end; AllCount := T1Max * T2Max; SetLength(T4,AllCount ); ←ここにいれるとだめです。 このAllCountを0にした場合はエラーになりませんでした。 AllCountを使わずに1や2などの数値にしてもだめでした。 エラーになってしまうというのは、コンパイルは通るのですが、実行すると しばらくだんまり状態になってAccess Violation Errになります。 よろしくお願いします。