求助生成并替换txt里的内容

Question

我想的是和那个生成exe一样,可以替换里面的资源,并生成那个txt文本!有哪位高手会,教下撒

Answer 1

意思就是,我把一个txt文本做成资源,然后释放的时候,替换里面的几个字符!该怎么做!

Answer 2

准备好你的文本文件新建一个扩展名为".rc"的文件(resource)，内容为：
格式为：资源名 类型 文件名(没加路径就是当前路径)工程里添加该".rc"文件
Delphi菜单->Project->Add to Project... (文件类型选为“*.rc”)上面的步骤完成后，可以在工程代码中看到：
program Project1;
{$R 'test.res' 'test.rc'}
//...
文本资源已经加到当前工程中如下代码就不再加说明了，你自己查查帮助看看
procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  with TResourceStream.Create(HInstance, 'Test_Text', 'File') do try
    if Size <= 0 then Exit;
    SetLength(S, Size);
    Read(S[1], Size);
    with TStringList.Create do try
      Text := StringReplace(S, '${Name}', 'Zswang',
        [rfReplaceAll, rfIgnoreCase]); // 替换字符
      SaveToFile('c:\temp\temp.txt'); // 保存为文件
    finally
      Free;
    end;
  finally
    Free;
  end;
end;输出

Answer 3

在使用时用StringReplace替换相应的字符串.