5月15日，中共中央政治局常委国务院总理温家宝来到川北重灾区青川县木鱼镇慰问受灾群众温家宝表示党和国家不会忘记受灾的偏僻山村，大家要振作精神，坚强起来，互相帮助，重建家园新华社记者陶明摄

5月15日，中共中央政治局常委国务院总理温家宝来到川北重灾区青川县木鱼镇慰问受灾群众温家宝表示党和国家不会忘记受灾的偏僻山村，大家要振作精神，坚强起来，互相帮助，重建家园新华社记者陶明摄

5月15日，中共中央政治局常委国务院总理温家宝辗转赶到位于四川北部的青川县木鱼镇看望受灾群众这是温家宝在木鱼镇文武村安慰在地震中幸存的母子新华社记者姚大伟摄

5月15日，中共中央政治局常委国务院总理温家宝辗转赶到位于四川北部的青川县木鱼镇看望受灾群众这是温家宝在木鱼镇文武村的临时安置点看望灾民新华社记者姚大伟摄

5月15日，中共中央政治局常委国务院总理温家宝辗转赶到位于四川北部的青川县木鱼镇看望受灾群众这是温家宝在木鱼镇察看灾情新华社记者姚大伟摄

新华社四川广元5月15日电 中共中央政治局常委国务院总理国务院抗震救灾指挥部总指挥温家宝于15日中午辗转赶到位于四川北部的青川县木鱼镇看望受灾群众和参与救援的解放军指战员消防部队官兵医护人员，鼓励大家继续努力抢救废墟下被掩埋的群众，在党和政府的帮助下团结一致重建家园

四川汶川地震发生后，地处四川盆地北部边缘最北川甘陕三省交界处的广元市青川县灾情比较严重，截至14日16时，全县死亡1400多人，1万人受伤木鱼镇位于偏僻山区，在青川县受灾最重，木鱼镇初中教学楼垮塌，被埋学生一度多达460多人，经过当地干部群众和救援队伍抢救，已从废墟中救出了150多人

青川县尤其是木鱼镇的灾情究竟怎样?救人情况如何?受灾群众是否得到了妥善安置?带着一系列问题，温家宝决定前往这个偏僻的乡村一探究竟由于前往木鱼镇的公路在地震中损坏严重，路险难行，温家宝一行14日晚乘火车赶往广元市，15日上午又从广元乘车来到白龙湖，再坐船沿白龙江溯源而上，经过3个多小时的航行于中午12时40分抵达木鱼镇

温家宝首先来到木鱼镇文武村看望受灾群众，在村子里的救灾点坐下来和村民交谈村里伤亡多少人?你们几位家里有伤亡的吗?村子里的废墟中还有被掩埋的吗?现在有吃的吗?温家宝向大家仔细了解受灾情况他语重心长地说，党和国家不会忘记受灾的偏僻山村，会保证大家有饭吃有水喝有帐篷住有病能医，政府还会给倒损的房屋发放补助，把房子重新盖起来大家也要振作精神，坚强起来，互相帮助，重建家园他还叮嘱村干部，要特别关心那些家里有人遇难的村民，照顾好老人和孩子

汽车驶进木鱼镇，目光所及，整个镇子几乎变成了一片废墟一栋被震裂楼房的二层阳台上，还挂着一排主人来不及收的衣服一辆救援车辆上，写着一方有难八方支援几个大字

在木鱼镇初中，来自辽宁消防解放军某部和江西宜春第二人民医院泸州医学院的医护人员正在紧张进行救援听说消防官兵已经从废墟中找到98个学生其中7人还活着时，温家宝点点头温家宝向在场的救援队伍表示慰问和感谢，他说，人民需要你们，你们在人民最困难的时候赶到这里救援，不怕疲劳，连续作战，为抢救人民群众的生命和财产做出了奉献，我代表党和政府感谢你们现在救人和救治工作仍在紧张进行，我今天专门乘坐火车轮船和汽车到这里看望大家，希望大家在继续努力救灾的同时也要保重身体，为承担更为艰巨的任务做好准备

走出学校，温家宝对闻讯赶来的干部群众说，学校倒了，许多孩子遇难，我的心情和大家一样沉重，我知道青川县还有许多受伤群众需要救治，还有许多受灾群众的生活面临困难党和政府惦记着你们，一定会全力以赴帮助大家，很快就会送来更多的食品水药品和帐篷他希望大家能节哀保重，团结起来，继续努力奋斗，把家园建设好，把国家建设好

在灾难中逃生的初三学生王云霄走到温家宝身边，哭泣着告诉总理自己的父母在地震中受了伤，哥哥至今还埋在学校的废墟下，家里的房子倒了，吃的也快没了，书也没有办法正常念了温家宝扶着她的肩膀，动情地对她说，房子倒了，还要再建;没有吃的，很快就会送来;学校要重新建，而且要比原来更好，你还能念书

太惨了人群中有群众向总理说

我听到了温家宝停住脚步，一边挥手一边说

温家宝的到来，让群众十分感动总理好!大家纷纷向总理致意，温家宝也向大家挥手

14岁的初中学生谌龙霄在地震中遇难，父亲谌贵清递给温家宝一张纸，纸上写着：5·12大地震降在我们身上，你在我们最最需要的时刻来关心我们，谢谢

返回广元市的船上，温家宝和马凯孟建柱以及有关部门四川省委省政府负责人围坐在一起，商量要加快采取措施救治群众 (本文来源：新华网 作者：李斌 黎大东)

----------------------------
一键转贴，快速捕捉生活精彩，赢每周好礼！查看活动首页>>

----------------------------
一键转贴，快速捕捉生活精彩，赢每周好礼！查看活动首页>>

    今天，也就是今天，2008年5月7日，我此生难忘，我的哥们啊健，我的妹妹，还有一起扛着国旗的

兄弟，带我们从北京路走到体育中心的老大，还有队友们，现场的所有人……感谢你们。

    火炬终于来到广州了，也许该说生活工作在广州的人们太热情了，人山人海，从小北到中山纪念堂，

为了这短短的30分钟，从早上开始8点多一直等待到火炬的出现，当火炬手预先来到交接点时，啊。。

那种感觉就好象自己握着那火炬棒，期待着……期待着……我们穿着昨天忙了一个晚上才从大学城的哥们

手中拿到的爱国衫，手里抓着国旗和奥运旗，和人们一起高呼着：中国加油、北京加油……

    这一刻来了，看着那燃烧的大火，我心里沸腾了，完全忘了自己的存在，心中只有一个信念，那就是：

我们得跑，我们要跟着队伍一起前进，跟着圣火一起燃烧，一路奔跑，一路受阻，现场太多人了，但我们

还是跑到了队伍的最前方：我们的战地。人们高唱着国歌，高举着手中的旗，我们呼喊着，我和一个不

认识的兄弟扛着国旗，我们高呼，中国，加油。。。北京，加油！

    我们一路疯狂的跑着，疯狂的叫着，心中只有喜悦和开心。平时的杂念都扔掉了，我，很享受这种感觉。

    下午继续着我们的梦想，从北京路开始，我们就加入了“自由组织团队”，这支队伍完全是由一个人

呼喊着周围的人一起加入进来的，我们没有统一的服装，只有统一的梦想，统一的口号，大家心中只有一

个目标，那就是为北京加油，为奥运加油。然后我们顺着中山路、农林下路、东风路……一直到达体育中

心，大家一路挥动着国旗、奥运旗，一路疯狂的呼喊着口号：迎圣火，盼奥运、中国加油、北京加油……

    兴奋，刺激，可以概括我此时的心情。到达体育中心后，记者、电视台、路边的人向我们举起了镜头，记录

下了这美好的一刻。

    体育中心人太多太多太多了，队伍最后却走散了，这是件让人遗憾的事，最后我们和三位华南师范大学

的3个女生才走在一起，其他人都走散了，我们走到了中心地带，一个连呼吸都困难的中心地带，人太多太多了

之后我们商量，为了安全着想，还是出去吧，出到人少点的地方，费了九牛二虎之力才走出了那个

连呼吸都困难的中心地带，又很遗憾，那三位女孩也走丢了，最后就剩下我和我的哥们啊健…………瘫在了路边。

    兄弟们，我想用语言真的无法表达我今天的感受和体会：激动、刺激、兴奋、开心……哥们，夜深了，

明天的火炬将向往祖国的其他地方，祝福它吧！让我们一起祝福北京、祝福中国、祝福身边所有的人……

期待2008年8月8日，我们一起欢呼，我们一起高歌：祝北京奥运会圆满成功！

随着中国申奥成功，我国许多大中城市都在建设自己的体育中心（或体育场）。应当说这些场和馆的许多设计和设施，起点都是很高的。比如新落成的四万座“烟台中心体育场”，不仅有自己独立的局域网、大屏幕显示，而且有先进的“田、径”比赛记分的裁判系统。这些硬件设施，施工时往往是各大公司各自完成，所以整个工程完工后，如何使这些硬件用软件联系起来，使之协调工作，这就是体育中心自己的事了。本文的作者，自始至终参入了这项工作，略有所得，也走过一些弯路，现把成功的东西写下来，愿与同行交流。 烟台中心体育场的硬件系统框图如下：    记分裁判系统              局域网                   大屏幕显示系统   （由深圳菲普公司提供） （由广东信息工程施工） （由北京利亚德施工）   图  一   图一中，记分裁判系统、大屏幕显示系统的软件部分都是自己本公司开发的。（记分裁判系统平台是WindowsNT；大屏幕显示系统平台是Windows98），两者连接的中心环节硬件则是局域网，软件需自己编写。 本文作者用Delphi5在Windows2K平台编写，已调试通过。具体做法如下： 1．按图2设计界面。   图  二   图二中使用了Delphi中两个重要组件，ServerSoket 和ClientSoket 。这两个组件位于VCL面板的 Internet 页上。它们是 Delphi 为实现 TCP/IP 协议，封装了 Windows 提供的一组名为 WinSock 的 API函数。所以设计者不必知道TCP/IP 的细节，只要简单的说明： Host  - 服务器的域名； Address - 服务器的IP地址；（在运行时确定） Port  - 指定应用程序使用的端口；（在设计时确定） Service  - 服务器名称字符串， 就可以了。    图二界面全部程序如下：   unit main; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   Menus, StdCtrls, Buttons, ScktComp, ExtCtrls, ComCtrls; type   TChatForm = class(TForm)     MainMenu1: TMainMenu;     File1: TMenuItem;     Exit1: TMenuItem;     FileConnectItem: TMenuItem;     FileListenItem: TMenuItem;     StatusBar1: TStatusBar;     Bevel1: TBevel;     Panel1: TPanel;     Memo1: TMemo;     Memo2: TMemo;     N1: TMenuItem;     SpeedButton1: TSpeedButton;     Disconnect1: TMenuItem;     ServerSocket: TServerSocket;     ClientSocket: TClientSocket;     BitBtn1: TBitBtn;     procedure FileListenItemClick(Sender: TObject);     procedure FileConnectItemClick(Sender: TObject);     procedure Exit1Click(Sender: TObject);     procedure Memo1KeyDown(Sender: TObject; var Key: Word;       Shift: TShiftState);     procedure FormCreate(Sender: TObject);     procedure ServerSocketError(Sender: TObject; Number: Smallint;       var Description: string; Scode: Integer; const Source,       HelpFile: string; HelpContext: Integer; var CancelDisplay: Wordbool);     procedure Disconnect1Click(Sender: TObject);     procedure ClientSocketConnect(Sender: TObject;       Socket: TCustomWinSocket);     procedure ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);     procedure ServerSocketClientRead(Sender: TObject;       Socket: TCustomWinSocket);     procedure ServerSocketAccept(Sender: TObject;       Socket: TCustomWinSocket);     procedure ServerSocketClientConnect(Sender: TObject;       Socket: TCustomWinSocket);     procedure ClientSocketDisconnect(Sender: TObject;       Socket: TCustomWinSocket);     procedure ClientSocketError(Sender: TObject; Socket: TCustomWinSocket;       ErrorEvent: TErrorEvent; var ErrorCode: Integer);     procedure ServerSocketClientDisconnect(Sender: TObject;       Socket: TCustomWinSocket);     procedure BitBtn1Click(Sender: TObject);   protected     IsServer: Boolean;   end; var   ChatForm: TChatForm;   Server: String; implementation uses Unit1; {$R *.DFM} procedure TChatForm.FileListenItemClick(Sender: TObject); begin   FileListenItem.Checked := not FileListenItem.Checked;   if FileListenItem.Checked then   begin     ClientSocket.Active := False;     ServerSocket.Active := True;     Statusbar1.Panels[0].Text := 'Listening...';   end   else   begin     if ServerSocket.Active then       ServerSocket.Active := False;     Statusbar1.Panels[0].Text := '';   end; end; procedure TChatForm.FileConnectItemClick(Sender: TObject); begin   if ClientSocket.Active then ClientSocket.Active := False;   if InputQuery('Computer to connect to', 'Address Name:', Server) then     if Length(Server) > 0 then       with ClientSocket do       begin         Host := Server;         Active := True;         FileListenItem.Checked := False;       end; end; procedure TChatForm.Exit1Click(Sender: TObject); begin   ServerSocket.Close;   ClientSocket.Close;   Close; end; procedure TChatForm.Memo1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin   if Key = VK_Return then     if IsServer then       ServerSocket.Socket.Connections[0].SendText(Memo1.Lines[Memo1.Lines.Count - 1])     else       ClientSocket.Socket.SendText(Memo1.Lines[Memo1.Lines.Count - 1]); end;   procedure TChatForm.FormCreate(Sender: TObject); begin   FileListenItemClick(nil); end; procedure TChatForm.ServerSocketError(Sender: TObject; Number: Smallint;   var Description: string; Scode: Integer; const Source, HelpFile: string;   HelpContext: Integer; var CancelDisplay: Wordbool); begin   ShowMessage(Description); end; procedure TChatForm.Disconnect1Click(Sender: TObject); begin   ClientSocket.Active := False;   ServerSocket.Active := True;   Statusbar1.Panels[0].Text := 'Listening...'; end; procedure TChatForm.ClientSocketConnect(Sender: TObject;   Socket: TCustomWinSocket); begin   Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteHost; end; procedure TChatForm.ClientSocketRead(Sender: TObject;   Socket: TCustomWinSocket); begin   Memo2.Lines.Add(Socket.ReceiveText); end; procedure TChatForm.ServerSocketClientRead(Sender: TObject;   Socket: TCustomWinSocket); begin   Memo2.Lines.Add(Socket.ReceiveText); end; procedure TChatForm.ServerSocketAccept(Sender: TObject;   Socket: TCustomWinSocket); begin   IsServer := True;   Statusbar1.Panels[0].Text := 'Connected to: ' + Socket.RemoteAddress; end; procedure TChatForm.ServerSocketClientConnect(Sender: TObject;   Socket: TCustomWinSocket); begin   Memo2.Lines.Clear; end; procedure TChatForm.ClientSocketDisconnect(Sender: TObject;   Socket: TCustomWinSocket); begin   FileListenItemClick(nil); end; procedure TChatForm.ClientSocketError(Sender: TObject;   Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;   var ErrorCode: Integer); begin   Memo2.Lines.Add('Error connecting to : ' + Server);   ErrorCode := 0; end; procedure TChatForm.ServerSocketClientDisconnect(Sender: TObject;   Socket: TCustomWinSocket); begin   Statusbar1.Panels[0].Text := 'Listening...'; end; procedure TChatForm.BitBtn1Click(Sender: TObject); begin    form1.show; end; end. 2．代码重点部分说明 ServerSocket 和 ClientSocket 有一个共同的属性 Active,它用来控制组件是否处于工作状态。当ServerSocket 设置为True 时,服务器端开始监听是否有客户要与之连接。当ClintSocket 设置为True时,客户端准备与服务器端连接。在上述代码中： procedure TChatForm.FileListenItemClick(Sender: TObject); begin   FileListenItem.Checked := not FileListenItem.Checked;   if FileListenItem.Checked then   begin     ClientSocket.Active := False;     ServerSocket.Active := True;     Statusbar1.Panels[0].Text := 'Listening...';   end   else   begin     if ServerSocket.Active then       ServerSocket.Active := False;     Statusbar1.Panels[0].Text := '';   end; end;    是这样的：    如果Listen菜单有复选标记，用户单击它后取消复选标记，关闭服务器，打开客户端，将这个窗口作为客户程序来运行。如果Listen菜单没有复选标记，用户单击它后标上复选标记，打开服务器，关闭客户端，将这个窗口作为服务器程序来运行。同时界面状态栏的文字，提醒用户处于的状态。    以下代码：    procedure TChatForm.FileConnectItemClick(Sender: TObject); begin   if ClientSocket.Active then ClientSocket.Active := False;   if InputQuery('Computer to connect to', 'Address Name:', Server) then     if Length(Server) > 0 then       with ClientSocket do       begin         Host := Server;         Active := True;         FileListenItem.Checked := False;       end; end; 的作用是这样的： 这个菜单项被触发时，首先关闭 ClientSocket 。然后调用 InputQuery 函数，询问用户要连接服务器的IP地址，用户正确输入后，将新的IP值付给 ClientSocket 的 Address Name 属性，同时设置 Active 为 True ，让它用新的IP地址与指定的服务器连接。   3．图二界面的作用    记分裁判系统送出的比赛数据，是按标准 IP/TCP 格式-“ START,……,END ”送出的。下面是一组具体的例子：     START,男子组100米决赛1组,4,1,4,90029,刘子雨,,11.22,2,6,90028,刘英力,,11.43,3,3,90032,刘英男,,11.49,4,5,90019,周淑华,,11.57,END          上面各组数据是用“，”分开的，它们是这样约定的： 第一个分号前，“ START ”                  格式头 第二个分号前，“ 男子组100米决赛1组 ”   组别       第三个分号前，“ 4 ”                      参加人数 第四个分号前，“ 1 ”                   第一名 第五个分号前，“ 4 ”                   第一名所在跑道 第六个分号前，“ 90029 ”               第一名编号 第七个分号前，“ 刘子雨 ”              第一名姓名 第九个分号前，“ 11.22 ”                第一名成绩 （注：前面夹一分号） 第十个分号前，“ 6 ”                   第二名所在跑道        . . .         （共四组这样的数据） END                                        格式尾   按装在大屏幕主机上“ 界面二”，用菜单项 “ Listen ” 置为监听状态，做服务器端；按装在裁判系统主机上“ 界面二”，用菜单项 “Listen ”置为客户机状态，做客户端。并随时准备与“ 连接键”联用，给出 IP 地址，与服务器连接。 界面二中 Memo2 的是为接受裁判系统送来的数据而设计的。它的WordWrap 属性为 False 。这样它接受到数据，无论多长，它都是一行数据。这为以后从Memo2剥离数据打下基础。 至于界面二中的其他组件，读者看一下程序，不需赘述自明。 4．剥离数据的中间界面     前面我们说过，裁判系统送来的是一组“ START …… END ”数据，它里面除了我们有用的数据外，还有一些格式分界用的代码，象“START”；“END”；“，” 等等。我们必须从“ START …… END ”数据中，分离出我们所要显示的数据。而不必理会不需显示的数据。下面“图 三”即是为这个目的而设计的。                        图  三   按一下“模拟”键（这是为调机设计的），会触发 OpenDaiglog1 对话框，询问输入“ START …… END ”数据（本文电子版提供两组这样的数据，调试者可事先复制到机器的一个目录中）。当完成OpenDaiglog1 对话框操作后，会在图二的 Memo2 中出现这组数据。 当再按“显示”键时，程序会要分两步走： ★：第一步，将图三显示成“图四”   图 四   从上图中可以看出，Memo2 的每一行是以“，”为“断点”，阶梯式显示“ START …… END ”内容。Memo3 的每一行，是对应 Memo2 最后一个“，”所在的位置（左第一个为“1”）。Memo4 是已剥离出带“，”的数据。   完成以上功能，只需以下代码： procedure TForm1.BitBtn1Click(Sender: TObject);  var       s,s1,s2:string;       i,j,m,n,k,g:integer;   begin       s:=chatform.memo2.Text ;        j:=length(s);        for i:=1 to j do        begin          if s[i]=',' then          begin           s1:=copy(s,-i,i);            j:=length(s1);            memo2.Lines .add(s1);             memo3.Lines .add(inttostr(j));            end ;            end ;              for  g:=0  to memo3.Lines.Count-2   do              begin             m:= strtoint(trim(memo3.lines[g]));               n:= strtoint(trim(memo3.lines[g+1]));             k:=n-m;             memo4.Lines.add(copy(memo2.Lines [g+1],m,k)) ;             end;   为了最终将比赛成绩，在Memo2、Memo3、Memo4 上覆盖了一个 panel1 如图五 (运行是时，实际看不到Memo2、Memo3、Memo4的内容)。     图 五 ★     ：第二步，将图五显示成图六。     图 六 以上两步的完整程序如下： unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, ExtCtrls, Buttons; type   TForm1 = class(TForm)     BitBtn1: TBitBtn;     Edit1: TEdit;     Memo4: TMemo;     Memo2: TMemo;     Memo3: TMemo;     Panel1: TPanel;     Label9: TLabel;     Label2: TLabel;     Label30: TLabel;     Label3: TLabel;     Label14: TLabel;     Label10: TLabel;     Label11: TLabel;     Label12: TLabel;     Label13: TLabel;     Label4: TLabel;     Label5: TLabel;     Label6: TLabel;     Label7: TLabel;     Label8: TLabel;     Label19: TLabel;     Label15: TLabel;     Label16: TLabel;     Label17: TLabel;     Label18: TLabel;     Label24: TLabel;     Label23: TLabel;     Label22: TLabel;     Label27: TLabel;     Label26: TLabel;     Label25: TLabel;     Label20: TLabel;     Label21: TLabel;     Label28: TLabel;     Label29: TLabel;     OpenDialog1: TOpenDialog;     Button2: TButton;     Label1: TLabel;     Label31: TLabel;     Label32: TLabel;     procedure BitBtn1Click(Sender: TObject);    // procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1DblClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses main; {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject);  var       s,s1,s2:string;       i,j,m,n,k,g:integer; begin       s:=chatform.memo2.Text ;        j:=length(s);        for i:=1 to j do        begin          if s[i]=',' then          begin           s1:=copy(s,-i,i);            j:=length(s1);            memo2.Lines .add(s1);             memo3.Lines .add(inttostr(j));            end ;            end ;              for  g:=0  to memo3.Lines.Count-2   do              begin             m:= strtoint(trim(memo3.lines[g]));             n:= strtoint(trim(memo3.lines[g+1]));             k:=n-m;             memo4.Lines.add(copy(memo2.Lines [g+1],m,k)) ;             end;             label2.Caption :=copy (memo4.Lines[2],2,60);   //类别             label3.Caption :=copy (memo4.Lines[3],2,2);   //人数             //label4.Caption :=copy (memo4.Lines[4],2,2);  //名次             label5.Caption :=copy (memo4.Lines[5],2,2);  //跑道 -1             label6.Caption :=copy (memo4.Lines[6],2,5);  //编号 -1             label7.Caption :=copy (memo4.Lines[7],2,6);  //姓名 -1             label8.Caption :=copy (memo4.Lines[9],2,6);  //成绩 -1             label15.Caption :=copy (memo4.Lines[11],2,2);  //跑道 -2             label16.Caption :=copy (memo4.Lines[12],2,5);  //编号 -2             label17.Caption :=copy (memo4.Lines[13],2,6);  //姓名 -2             label18.Caption :=copy (memo4.Lines[15],2,6);  //成绩 -2             label21.Caption :=copy (memo4.Lines[17],2,2);  //跑道 -3             label22.Caption :=copy (memo4.Lines[18],2,5);  //编号 -3             label23.Caption :=copy (memo4.Lines[19],2,6);  //姓名 -3             label24.Caption :=copy (memo4.Lines[21],2,6);  //成绩 -3             label26.Caption :=copy (memo4.Lines[23],2,2);  //跑道 -4             label27.Caption :=copy (memo4.Lines[24],2,5);  //编号 -4             label28.Caption :=copy (memo4.Lines[25],2,6);  //姓名 -4             label29.Caption :=copy (memo4.Lines[27],2,6);  //成绩 -4            panel1.Visible :=true;  end; procedure TForm1.Button2Click(Sender: TObject); var   F: Textfile;   S:string; begin     memo2.Lines.Clear ;     memo2.Lines.Add('0');     memo3.Lines.Clear ;     memo3.Lines.Add('0');     memo4.Lines.Clear ;     memo4.Lines.Add('0');   OpenDialog1.Execute;    AssignFile(F, OpenDialog1.FileName);     Reset(F);     Readln(F, S);     { Read the first line out of the file }    chatform.memo2.Text := S;   { Put string in a TEdit control }     CloseFile(F); end; procedure TForm1.Edit1DblClick(Sender: TObject); begin    label1.Caption :=edit1.Text ; end; end. procedure TForm1.Button1Click(Sender: TObject);  var   F: Textfile;   S:string; begin     memo2.Lines.Clear ;     memo2.Lines.Add('0');     memo3.Lines.Clear ;     memo3.Lines.Add('0');     memo4.Lines.Clear ;     memo4.Lines.Add('0');   OpenDialog1.Execute;    AssignFile(F, OpenDialog1.FileName);     Reset(F);     Readln(F, S);   { Read the first line out of the file }    form1.memo2.Text := S;     { Put string in a TEdit control }     CloseFile(F); end; end.最后应当说明的是，我们所设计的界面二，不但可以显示体育比赛成绩，还可以在比赛中，随时与有联系的其他客户端通信，这些读者稍看一下程序，很容易看出。