SetLengthの位置 (ID:37688)

名前

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

本文 わかりにくい表現ですいません。 書き直します。 Var T1 : Array of Integer; T2 : Array of Integer; T3 : Array of Integer; T4 : Array of Integer; begin CountNo :=100; SetLength(T1,CountNo); SetLength(T2,CountNo); SetLength(T3,CountNo); SetLength(T4,○○);←ここに入れた場合は問題ありません。 ※○○はなんでもよい for i:= 0 to CountNo-1 do begin T1[i] := Hoge[i]; T2[i] := Hoge2[i]; T3[i] := Hoge3[i]; end; AllCount := T1Max * T2Max; //T1のMax値とT2のMax値をかけてT4の配列数 SetLength(T4,AllCount ); ←ここにいれるとだめです。 T4のSetLengthを上記のように場所を変えるとだめになります。 問題はそこだけです。 さきほどFor文の中はわかりづらい表現でした。 申し訳ありません。