掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンボボックス (ID:2252)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
了解しました。 異なった型をもつデータは、レコード型でまとめます。 TList は、ポインタのリストですので、レコード型を ポインタに変換したものを格納します。 type PSData = ^TSData; TSData = record NO: Integer; NAME: String; end; var SDataList: TList; AData: PSData; i: integer; BFind: Boolean; begin SDataList := TList.Create; try //データ追加 New(AData); AData^.NO := 100; AData^.NAME := 'aaa'; SDataList.Add(AData); New(AData); AData^.NO := 200; AData^.NAME := 'bbb'; SDataList.Add(AData); //NO = 200 のデータ検索 BFind := False; for i := 0 to (SDataList.Count - 1) do begin AData := SDataList.Items[i]; if AData^.NO = 101 then begin ShowMessage('NO=200のNAMEは' + AData^.NAME); BFind := True; Break; end; end; if Not BFind then ShowMessage('NO=200は見つかりませんでした。'); //データ解放 for i := 0 to (SDataList.Count - 1) do begin AData := SDataList.Items[i]; Dispose(AData); end; finally SDataList.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.