掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
配列変数に格納 (ID：2664)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
SetLength(ArrDelStr,ArrNo); ArrDelStr[ArrNo] := TestCode; //←ココでエラー ここで、例えばArrNo＝3の場合、ArrDelStrの要素数は３個になりますが、 ArrDelStr[0] ArrDelStr[1] ArrDelStr[2] と、作成されます。 このように動的な要素数の開始数字は0からになっているため、 ArrDelStr[ArrNo] は, ArrDelStr[3] となり、エラーが出ます。 これを、 ArrDelStr[ArrNo-1] とすればokです。 また、length(ArrDelStr)とすればArrDelStrの今の要素数を知ることができるため、ArrNoを作らなくても、 SetLength(ArrDelStr,length(ArrDelStr)+1) とすれば要素数をひとつ増やすことができます。 まとめると、 {type - Public宣言部}で、 ArrDelStr: array of String; procedure TForm1.MyPro(var TestCode: AnsiString); begin SetLength(ArrDelStr,length(ArrDelStr)+1) ArrDelStr[high(ArrDelStr)] := TestCode; end; これでどうでしょうか。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.