[Delphi]動的配列 array of


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

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

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

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;

このようになります。

delphi-array-of