5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

モナーの *やさしい* Delphi質問スレ Ver.14

667 :664:03/04/26 18:41
procedure TIntegerList.Add(Param: Integer);
var
PInt1: ^Integer;
begin
GetMem(PInt1, SizeOf(Integer));
PInt1^ := Param;
List.Add(PInt1);
end;

procedure TIntegerList.Delete(Param: Integer);
var
PInt1: ^Integer;
begin
PInt1 := List.Items[Param];
FreeMem(PInt1, SizeOf(Integer));
List.Delete(Param);
end;

で質問なのですがGetItem,SetItemの所で一時変数を介さずに行うやり方が
分からなかったのであれば教えて下さい。


209 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)