고수는 결코 아닙니다만....

TList 의 경우 Add Parameter로 포인터를 넘기는 걸로 알고 있습니다. Add 할 때마다 4byte씩

차지 합니다. 그리고 원래 Parameter로 포인터를 넘기기 때문에 당연히 record형을 정의 해서 포인터를

넘겨 줄수 있습니다. 그리고 개인적으로 메모리를 100MB씩 차지한다고 그리 걱정할 필요는 없을 듯

합니다. 메모리가 새지 않는 이상 오히려 메모리를 충분히 활용하여 퍼포먼스를 높이거나 다른 이익

을 얻는다면 괜찮지 않나 싶습니다. 아래 소스는 허접하니 참고만 하시구염.. 다른 고수님들이 봐주실

듯 합니다.

<!--CodeS-->

procedure TForm1.Button1Click(Sender: TObject);
type
    TTestRecord = record
        Str : array [0..99] of char;
        Int1 : integer;
        Int2 : integer;
    end;
    pTestRecord = ^TTestRecord;


var List : TList;
    TestRecordArray : array [0..9] of TTestRecord;
    i : integer;
    Str : string;
begin

    List := TList.Create;

    for i := 0 to 9 do
    begin
        Str := 'Test' + IntToStr(i);
        StrPCopy(@TestRecordArray[i].Str, Str);
        TEstRecordArray[i].Int1 := i * 2;
        TestRecordArray[i].Int2 := i * 20;
    end;

    for i := 0 to 9 do
    begin
        List.Add(@TestRecordArray[i]);
    end;

    for i := 0 to 9 do
    begin
        Memo1.Lines.Add( TTestRecord(List.Items[i]^).Str );
    end;


    List.Free;
    List := nil;

end;

<!--CodeE-->