掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＴＬｉｓｔを使うには？ (ID:18456)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じで使います。 { Private 宣言 } public { Public 宣言 } IntList: TList; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var pInt: PInteger; begin IntList := TList.Create; GetMem(pInt,SizeOf(Integer)); pInt^ := 123456; IntList.Add(pInt); GetMem(pInt,SizeOf(Integer)); pInt^ := 987654; IntList.Add(pInt); end; procedure TForm1.FormDestroy(Sender: TObject); var i: integer; begin for i := 0 to IntList.Count-1 do FreeMem(PInteger(IntList[i])); IntList.Free; end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 0 to IntList.Count-1 do Memo1.Lines.Add(IntToStr(PInteger(IntList[i])^)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.