这个不难,用一个TMemo来作: procedure TForm1.btnReplaceClick(Sender: TObject); var icount:Integer; TmpStr:String; begin Memo1.Lines.LoadFromFile('e:\file.txt'); for icount:=0 to Memo1.Lines.Count-1 do begin TmpStr:=Memo1.Lines[icount]; TmpSTr:=StringReplace(TmpStr,'!<!--replace--> ', Table1.FieldByName('AField').AsString, [rfReplaceAll]); Memo1.Lines[icount]:=TmpStr; end; Memo1.Lines.SaveToFile('e:\file.txt'); end;
procedure TForm1.btnReplaceClick(Sender: TObject);
var
icount:Integer;
TmpStr:String;
begin
Memo1.Lines.LoadFromFile('e:\file.txt');
for icount:=0 to Memo1.Lines.Count-1 do
begin
TmpStr:=Memo1.Lines[icount];
TmpSTr:=StringReplace(TmpStr,'!<!--replace--> ',
Table1.FieldByName('AField').AsString,
[rfReplaceAll]);
Memo1.Lines[icount]:=TmpStr;
end;
Memo1.Lines.SaveToFile('e:\file.txt');
end;
或者用。ini文件