掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイト配列型の引数について (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 と順番に表示されます。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.