[Delphi] TStrings.Objects 사용

TList 계열의 활용형이랄까.

쓸만한 구석이 많은 듯.

 

 

procedure TfrmMain.Button2Click(Sender: TObject);
type
  P직원 = ^T직원;
  T직원 = record
    이름: String;
    나이: Integer;
  end;

 

var
  직원: P직원;
  s: TStrings;

 

begin
  New(직원 );
  직원^.이름:='죠니 뎁';
  직원^.나이:=100;

  s:= TStringList.Create;
  try
    s.AddObject(직원.이름, TObject(직원));
    Memo1.Text:= P직원(s.Objects[0]).이름+' - '+IntToStr(P직원(s.Objects[0]).나이);
  finally
    s.Free;
    Dispose(직원);
  end;
end;