[Delphi]動的配列　array of

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

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

フォーム上に TMemoを２個設置し、下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

var
    //動的配列の要素数を指定せずに宣言します
    jikoku:array of String;
    i: Integer;
    st: Integer;
begin

    Memo1.Clear;
    Memo2.Clear;


    //要素数が24個として割り当てます
    SetLength(jikoku, 24);


    //0,1,2・・・21,22,23と24回繰り返します
    For i := 0 To 24 - 1 do begin
        jikoku[i] := IntToStr(i) + '時';

        Memo1.Lines.Add(jikoku[i]);
    end;
 

    //'要素数が12個として再割当てします
    SetLength(jikoku, 12);

    For i := 0 To 12 - 1 do begin
        jikoku[i] := '午前 ' + IntToStr(i) + '時';

        Memo2.Lines.Add(jikoku[i]);
    end;


    SetLength(jikoku, 12);

    For i := 0 To 12 - 1 do begin
        jikoku[i] := '午後 ' + IntToStr(i) + '時';

        Memo2.Lines.Add(jikoku[i]);

    end;

end;

このようになります。