Delphi TStringList的用法

// 测试
procedure TfrmMain.btnListClick(Sender: TObject);
var
  list: TStringList;
  i: Integer;
begin
  try
    list:= TStringList.Create;
    list.Add('9001');
    list.Add('jzh');
    list.Add('159');

    for i := 0 to list.Count - 1 do
    begin
      mmLine.Lines.Add(list[i]);
    end;

    list.Clear;
    list.Free;
  finally

  end;
end;