300[超级简单]如何提取网页的数据 ( 积分: 300 )

网页如下，想提取彩票的期数中奖号码两列数据，如何提取，在memo中显示出来，谢谢！ http://www.500wan.com/Info/SD/Analyze/P_1_History.shtml

业余的，请多多指教！谢谢大家！谢谢回复！见着有分！

idhttp获取网页数据，剩下的自己分析网页代码吧^_^

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;

type
TForm1 = class(TForm)
IdHTTP1: TIdHTTP;
btn1: TButton;
mmo1: TMemo;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Text := IdHTTP1.Get('http://www.500wan.com/Info/SD/Analyze/P_1_History.shtml');
end;

end.

接受答案了.