关于文件替换的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
Var
  I : Integer;
  List,List1,List2 : Tstringlist;
  Str1eam,Str2eam : TResourceStream;
Begin
  Str1eam := TResourceStream.Create(Hinstance, 'FANE02', 'dnp');
  Str2eam := TResourceStream.Create(Hinstance, 'FANE021', 'dnp');
  List := Tstringlist.Create;
  List1 := Tstringlist.Create;
  List2 := Tstringlist.Create;
  List.Loadfromfile('.\champaign.DMap');
  List1.LoadFromStream(Str1eam);
  List2.LoadFromStream(Str2eam);
  For I := 0 To List.Count - 1 Do
  List[I] := Stringreplace(List[I],List1.Text,List2.Text,[RfReplaceAll, RfIgnoreCase]);
  List.Savetofile('.\champaign.DMap');
  List.Free;
  List1.Free;
  List2.Free;
End;

Answer 1

如果都是文本文件,看不出有何问题.
只是,源串List1.Text与替换串List2.Text都放到资源文件,似乎有些不太合理.