关于TStrings的问题，在线等，答对就给分哈…………………………………………！！

Question

procedure Tfrm_main.Add;
var
  strList:TStrings;
  strDay: string;
  strHour: string;
  strMin: string;
begin
  ts := TStringList.Create;  strHour := '1';
  strMin := '2';
  strMin := '3'  ts.Add(strDay);
  ts.Add(strHour);
  ts.Add(strMin);end;
最后我用ts.Strings[2]想得到strMin的值，为什么ts.Strings[2]的值为 ‘3’#￥D·# 后面这些东西是从那里出来的啊？？请教

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  ts:TStringList;
  strDay: string;
  strHour: string;
  strMin: string;
  i : integer;
begin
  ts := TStringList.Create;
  strHour := '1';
  strMin := '2';
  strday:= '3';
  ts.Add(strHour);
  ts.Add(strMin);
  ts.Add(strday);
  for i := 0 to ts.Count-1 do
    showmessage(ts[i]);
  TS.Free;end;