请教delphi读取文本文件的问题？？？？？

Question

我有一个txt文件，内容如下：NAME:LI XIAOMINGPOST:205335ADDRESS: JILIN ROAD我想用DELPHI来编一个程序首先读取OOST:后面的数字205335到edit1中，然后输入一个新的数字例如123456，此时，文本文件变成了NAME:LI XIAOMINGPOST:123456ADDRESS: JILIN ROAD保存次文件到c:\新建文件夹中请高人帮忙，给出代码。谢谢

Answer 1

implementation{$R *.dfm}
var
  tempList : TStringList;procedure TForm1.btn1Click(Sender: TObject);
begin
  tempList.Values['POST'] := edt1.Text;
  tempList.SaveToFile('E:\you other text file.txt');
end;procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  tempStr  : string;
begin
  tempList := TStringList.Create();
  tempList.LoadFromFile('E:\you text file.txt');
  for I := 0 to tempList.Count - 1 do
  begin
    tempStr := tempList[i];
    tempList[i] := AnsiReplaceText(tempStr, ':', '=');
  end;
  edt1.Text := tempList.Values['POST'];
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tempList.Free();
end;

Answer 2

有问题
tempList[i] := AnsiReplaceText(tempStr,  ': ',  '= '); 
运行不了，请调试一下，谢谢大侠热心帮忙．

Answer 3

楼主需要引用 StrUtils 单元  uses 后加上试试

Answer 4

先引用 strutils 单元如下代码：procedure TForm1.FormShow(Sender: TObject); //显示post后的值到edit
var
   slist:Tstringlist;
begin
   slist:=Tstringlist.Create;
   try
      slist.LoadFromFile('c:\demo.txt');
      //第二行为post内容，故为strings[1],且post：字符串为5，故从6开始进行截取后面的值.
      edit1.Text:=copy(slist.Strings[1],6,length(slist.Strings[1]));
      slist.savetoFile('c:\demo.txt');
   finally
      slist.Free;
   end;
end;procedure TForm1.Button1Click(Sender: TObject); //写入到新文件
var
   stringlist:Tstringlist;
   str:string;
begin
    stringlist:=Tstringlist.Create;
   try
      stringlist.LoadFromFile('c:\demo.txt');
      str:=copy(stringlist.Strings[1],6,length(stringlist.Strings[1]));
      stringlist.Strings[1]:=AnsiReplaceText(stringlist.Strings[1],str,edit1.text);//替换为edit1的内容
      stringlist.SaveToFile('c:\demonew.txt'); //写入到新文件demonew.txt中
   finally
      stringlist.Free;
   end;
end;
以上程序还将优化修改，只是实现效果哈.呵呵~~~

Answer 5

已经可以了，可是我为什么加不上分呢？？？提示我无权加分，sorry !!!