我是新手，请各位帮我看看这个题该怎么解，谢谢。

哪位能帮下忙吗？急！！！�

先查询出是湖北的人，在插入到另一个里面
read
write

遍历所有记录，如果记录不大的话，可以以结构体或者多维数组的形式存放，如果大的话，可以将他放在数据库中。最后再查找输出�

假设 DATA.TXT 文件内容如下：

黎明 
男 
湖南 

陈涛 
男 
湖北 

夏梅 
女 
广东 

梁明 
男 
湖北

hgy
男
湖北

hgy2
男
湖北

hgy3
女
湖北

hgy11
女
安徽

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 Name:string; //存储原文本文件中每条数据记录的 姓名
 Sex:string; //... 性别
 Other:string; //...
 SourceFile:TextFile; //原文本文件
 TargetFile:TextFile; //存储所筛选出数据的文件
begin
 AssignFile(SourceFile,'C:\DATA.txt');
 Reset(SourceFile); //置原文件于只读状态

 AssignFile(TargetFile,'C:\Result.txt');
 Rewrite(TargetFile); //置目标文件于读写状态以写入符合条件的数据

 { 请注意 SeekEof 函数的用法!
 此函数判断文本文件是否结束，它会自动过滤文本文件中的空白行
 ——而此功能正符合我们的需要 }
 try
 while not SeekEof(SourceFile) do
 begin
 ReadLn(SourceFile,Name); { 以"行"为单位读取 SourceFile 文件中的数据 }
 ReadLn(SourceFile,Sex);
 ReadLn(SourceFile,Other);
 if Trim(Other)='湖北' then
 begin
 WriteLn(TargetFile,Name); { 以行为单位写数据至 TargetFile 文件中 }
 WriteLn(TargetFile,Sex);
 WriteLn(TargetFile,Other);
 WriteLn(TargetFile,'------------------------'); { 为符合条件的每条数据打上结束标记 }
 end;
 end; //End While
 finally
 CloseFile(SourceFile);
 CloseFile(TargetFile);
 end; //End Try

end;

end.

程序运行结果：
陈涛 
男 
湖北 
------------------------
梁明 
男 
湖北
------------------------
hgy
男
湖北
------------------------
hgy2
男
湖北
------------------------
hgy3
女
湖北
------------------------

请注意：DATA.TXT 文件需先手动创建并指定给 SourceFile：AssignFile(SourceFile,'C:\DATA.txt');