[Delphi]2次元配列

 

※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません。

String型を2次元配列で 7×6 = 42個用意して、それらをStringGridに転送しているだけです。

下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

{フォーム上に StringGrid を配置します

オブジェクトインスペクタ内の値の一部です
  object StringGrid1: TStringGrid
    ColCount = 7
    DefaultColWidth = 40
    FixedCols = 0
    RowCount = 6
    FixedRows = 0
  end
}
var
    arr_cal: array[0..6, 0..5] of String;
    ir, ic, i: Integer;

begin
    i := 1;

    for ir := 0 to 5 do begin

        for ic := 0 to 6 do begin

            if  (i >= 10)
            and (i <= 40) then begin
                arr_cal[ic, ir] := IntToStr(i -9);

            end
            else begin
                arr_cal[ic, ir] := '-';

            end;

            StringGrid1.Cells[ic, ir] := arr_cal[ic, ir];
            i := i +1;

        end;

    end;

end;

このようになります。

delphi-nijigen-hairetsu