バイト配列型の引数について (ID:26410)

名前

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

本文 procedure PlusValue(var Values: array of Integer; Plus: Integer); var i: Integer; begin if Length(Values) = 0 then raise ERangeError.Create('引数の数が足りません'); for i := 0 to High(Values) do begin Values[i] := Values[i] + Plus; end; end; procedure TForm1.Button3Click(Sender: TObject); var AAA: array of Integer; i: Integer; begin SetLength(AAA, 3); for i := 0 to 2 do begin AAA[i] := 100 + i; end; PlusValue(AAA, 51); for i := 0 to 2 do begin ShowMessage(IntToStr(AAA[i])); end; end; メッセージが 51, 52, 53 と順番に表示されます。