SetLengthの位置 (ID:37689)

名前

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

本文

procedure TForm1.Button1Click(Sender: TObject);
var
  Hoge1, Hoge2, Hoge3: array of Integer;
  T1, T2, T3, T4: array of Integer;
  CountNo, AllCount, I, T1Max, T2Max: Integer;
  t4Log: TStringList;
begin
  // initialize
  SetLength(Hoge1,100);
  SetLength(Hoge2,100);
  SetLength(Hoge3,100);
  for I:=0 to 100-1 do
  begin
    Hoge1[I] := I+1;
    Hoge2[I] := I+2;
    Hoge3[I] := I+3;
  end;
  //
  // main process
  T1Max := 0;
  T2Max := 0;
  CountNo := 100;
  SetLength(T1,CountNo);
  SetLength(T2,CountNo);
  SetLength(T3,CountNo);
  //SetLength(T4,CountNo);
  for I:=0 to CountNo-1 do
  begin
    T1[I] := Hoge1[I]; if T1[I]>T1Max then T1Max := T1[I];
    T2[I] := Hoge2[I]; if T2[I]>T2Max then T2Max := T2[I];
    T3[I] := Hoge3[I];
  end;
  //
  // final process
  AllCount := T1Max*T2Max; ShowMessage( 'AllCount='+IntToStr(AllCount) );
  SetLength(T4,AllCount);
  for I:=0 to AllCount-1 do
    T4[I] := I;
  //
  // debug out
  t4Log := TStringList.Create;
  try
    for I:=Low(T4) to High(T4) do
      t4Log.Add(IntToStr(I)+':'+IntToStr(T4[I]));
    t4Log.SaveToFile('t4Log.log');
  finally
    t4Log.Free;
  end;
end;
こんなテストをしてみましたが、エラーが出ませんね。

←解決時は質問者本人がここをチェックしてください。

戻る