利用TStrings类的AddObject方法来存非整型数据问题？

Question

Var
  RecordString:TStringList;
  I:Integer;
Begin
  RecordString:=TStringList.Create;             
  RecordString.AddObject('MyDate',Pointer(StrtoInt('123')),
  I:=LongInt(RecordString.Objects[0]);
最后I的到值喂123。
这就可以达到存储'123'的目的。但如果是'NB'这类无法用StrToInt转化的非数字数据呢？

Answer 1

type
    TInfo=class
        s:String;
    end;
var
    i:TInfo;
begin
    i:=TInfo.Create;
    i.s:='NB';
    StringList.AddObject('MyData',i);
读出信息可以用:
    str:=TInfo(StringList.Objects[n]).s;
自己定义TInfo类,可以包含任意复杂的数据.