配列のインデックスを動的に変化させるには？ (ID:26364)

名前

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

本文 >>igy様 レスありがとうございます。 Ru様がずばりなレスをいただきましたので レス頂いた内容は今後の知恵（TListやTStringList等も使える！）として覚えさせていただきます。 >>Ru様 レスありがとうございます。 ずばりDelphiのヘルプに載っていました。 動的配列という言葉が思い浮かばずに質問して申し訳ございません。 解決方法は動的配列には「SetLength(「配列名」、「割り当てるメモリ容量」)」を使えば可能。 ヘルプを見て無事正常に動作しました。 今後ともよろしくお願いします。 以下簡潔ですが解決ソースです。 --------------------------------------------- var data_name : array of String; //データ名称を保持する配列 i : Integer; //配列の添字カウンター begin // DB検索処理 Query1.Open; //データカウントだけ配列にメモリを割り当てる SetLength(date_name,Query1.RecordCount); //配列の添字は常に０から始まるため i := -1; while Query1.Eof = False then begin i := i + 1; //配列に検索したデータを入れていく date_name[i] := Query1.FieldByName('data_name').AsString Query1.Next; end Query1.Close; end; --------------------------------------------- レスありがとうございました。