急求delphi读取文本文件、字词抽取、存储代码

Question

    各位大师帮帮忙，小弟急求一个delphi代码
    文本名称是“email1.txt”
    文本内容如下：
    
    A/C our direct charterers 
    6,500-7,000mt agriproducts in bulk/bagged (sf 65 wog )
    1sp / 1/2sb(a) Kandla - Mumbai range / 1/2sb (a)  Vietnam range 
    Mid april onwards
    Load rate : 2000 mts pwwd sashexiu 
    Dis rate : 1500 mts pwwd sashexiu 
    3.75% ttl iac 2.5%    想分三块，具体思路是：
    1、delphi读取文本文件，读取的内容要保存着，用于第二块的抽取；
    2、用正则表达式匹配和抽取，这个要用到TPerlRegEx控件我知道，就假设已经安装好了，然后我想匹配出“6,500-7,000mt”和“agriproducts”，然后保存起来；
    3、将第2步中抽取出来的单词，写入一个txt文本文件保存起来就行。
    
    麻烦大家帮帮忙哈，我是delphi语言的菜鸟，被逼要用delphi语言写这些，看了网上很多模板，不会改成自己要用的，求求各位大师啦！

Answer 1

1.读取文本文件，可以使用两种方式,你可以使用最简单的
self.memo1.lines.loadfromfile(filename)
2.如果只是匹配字符串根本不需要使用什么控件
s:=self.memo1.lines.text;
i:=pos('6,500-7,000mt',s);
j:=pos('agriproducts',s);
至于你说的保存起来，我就不太明白保存什么了
3.写文本文件
//将一些报文保存到文本文件中，便于调试时使用***********************************
//name就是文件名 content就是你要写入的内容
procedure Tw_zjm.writefile_pro(name, content: string);
var
  fl:TextFile;
  k:integer;
begin
  if not fileexists(name) then
  begin
    k:=filecreate(name);
    if k>0 then
    begin
      fileclose(k);
      assignfile(fl,name);
      append(fl);
      writeln(fl,datetimetostr(now)+'：');
      writeln(fl,content);
      closefile(fl);
    end;
  end
  else
  begin
    assignfile(fl,name);
    append(fl);
    writeln(fl,datetimetostr(now)+'：');
    writeln(fl,content);
    closefile(fl);
  end;