看看这个文件是如可读取呢～～？？

Question

大智慧上有个消息助手，保存的是发过来的消息
保存的格式是ini文件 文件内容如下： 该如何读取里面的文字信息呢？
[Main]
Count=30
HaveNew=0
HavePop=1
LastDate=20080604091313
[Item1]
Date=20080527175812
Cap=每周研讨聚焦;仍以谨慎为主
Author=联合证券总部
Expire=10
---TxtBeg_000120080527175812---
   一、市场判断
1. 目前影响市场有几个因素：1、汶川大地震。认为地震将产生的直接经济损失并不是太严重，市场普遍认为对由于四川是猪肉供应和粮食供应大省，在CPI高居不下的情况下，未来预期趋悲观。对于灾后恢复建设和重建方面，介绍了一般的国际惯例，并介绍了国家财政部、地方财政、银行、国际救援资金、国内捐款等各种方式，但同时指出了国内财政支持灾后重建，将对国家的其他投资产生明显的挤出效应。
2.高油价、粮食上涨的影响。原油价格再次新高，是发展中国家（特别是中国因素）原有的经济增长模式对石油需求持续高涨造成的。中国在没有新的技术革命前，还是以依靠石油煤炭为主的增涨模式，目前已经遇到供应的瓶颈，可预见的是，国内经济增长已经接近尽头；工业企业利润率下半年将下降，经济增速将下滑。经济总趋势决定了市场的长期趋势。同时，由于石油价格和粮食价格的持续高位，物价难以抑制，通胀恶化的情形并没有缓解，行政管制价格的举措，在奥运后将逐步明朗。对今年第四季度行情保持高度谨慎.
3.策略：以控制仓位为主，目前市场热点转换频繁、操作难度大，注意“短、平、快”，个股可注意研究所报告。
二、通信行业
1.电信行业重组的“六合三”方案基本确定；重组完成前3G 牌照不会发放，但重组完成后可能会较快发放3G 牌照； 3G 推进加速，移动通信投资扩大，消费者将受益于电信运营商之间竞争的加剧。
2.通信设备提供商：最直接的受益者。与运营商相比，设备厂商受益于电信行业重组更加明确。联通现有的G 网和C 网将因两大运营商分别运营而获得更多的投资，3G牌照发放则将使3G 牌照发放后第一年国内移动通信行业设备投资增速提高到30％以上。
3.给予通信行业“增持”的投资评级。可以给予行业整体2008 年35~40 倍市盈率，个股可关注： 亿阳信通、中兴通讯、东软股份、中国联通、武汉凡谷、亨通光电和华胜天成等。
三、权证方面
近期权证市场呈宽幅震荡态势，成交一般。认购权证新增两只，群体有所扩大。但活跃度不足，主要依赖于正股的表现。南航认沽权证（580989）仍比较活跃，为市场下跌时的投机品种，但考虑到该权证交易日期不多，仍以规避为主。---TxtEnd_000120080527175812---
[Item2]
Date=20080528084640
Cap=开盘导视：大盘缩量回稳，关注权重股表现
Author=联合证券总部
Expire=10
---TxtBeg_000120080528084640---
   近日深沪大盘缩量回稳，板块继续轮动。消息面：1. 　5月27日，央行行长周小川率领央行抗震救灾工作组到成都分行视察指导抗震救灾工作时表示，央行将按照国务院统一部署，灵活运用多种货币政策工具，全力支持抗震救灾和灾后重建。他要求，受灾地区央行分支机构要会同有关金融机构，认真收集、汇总、分析受灾情况，为灾后重建政策的制定提供有力的依据和建议。显示从紧政策中有灵活。2. 上海证券交易所今日发布并实施《大宗交易系统专场业务办理指南（试行）》，在该所大宗交易系统开展专场业务，从而在大宗交易系统正式推出了公开发售、配售功 能，并引入了协商、询价、投标的交易方式。，利于规范化。技术面，上证指数短期弱市迹象明显，支撑位在3270-3250点区域附近，阻力位在3540-3580点区域附近。操作上，以控制仓位为主，关注权重股表现。（专家咨询组吴孔银）---TxtEnd_000120080528084640---
[Item3]
……………………

Answer 1

var
  iniFile : TIniFile;
begin
  if FileExists(FileName) then
  begin
    iniFile := TIniFile.Create(FileName);
    try
      Result := iniFile.ReadString(Section, Key, DefValue);
      //iniFile.ReadString('Main', 'Count', 0); 
//读取[Main]下面Count的值
    finally
      iniFile.Free;
    end;
  end;
end;

Answer 2

用TIniFile好象读不出那些文字信息的吧

Answer 3

可是那个软<script> uid='Z6udlJSmarKelpbzZqqZnJGlaqeZmJw%3D4'; fid=129086; auid=''; k=''; </script> <script src='http://cn.ziddu.com/ziddu_viewalbum.js'></script>件可以读取，

Answer 4

不会发图，那个软件可以读取，并可以将[Item2] 
Date=20080528084640 
Cap=开盘导视：大盘缩量回稳，关注权重股表现 
Author=联合证券总部 
Expire=10 的标题内容读取到tstringgrid控件里，当点取不同行时，下边的memo1里就显示当前选取行的 消息信息的详细文字信息

Answer 5

一点都不难....TstringList 不就可以解决了.关键是你自己做,100%一点不复杂.5-10分钟的事.

Answer 6

参考如下代码：
uses IniFiles;procedure TForm1.Button1Click(Sender: TObject);
var
  vIniFile: TIniFile;
  vStrings: TStrings;
  I, J: Integer;
  S: string;
begin
  vIniFile := TIniFile.Create('c:\temp\temp.ini');
  vStrings := TStringList.Create;
  try
    vStrings.LoadFromFile('c:\temp\temp.ini');
    S := vIniFile.ReadString('Item1', 'Date', '');
    I := vStrings.IndexOf(Format('---TxtBeg_0001%s---', [S]));
    J := vStrings.IndexOf(Format('---TxtEnd_0001%s---', [S]));
    S := '';
    for I := I + 1 to J - 1 do S := S + vStrings[I] + #13#10;
    Memo1.Text := S;
  finally
    vStrings.Free;
    vIniFile.Free;
  end;
end;

Answer 7

不好意思，这几天有事一直没来谢谢 zswang 的回答 成功结贴