Inno Setup ile bir dosyadaki metni değiştirin

Question

Merhaba Inno Setup (Delphi tabanlı) ile bir metin dosyasındaki bir metnin değiştirilmesiyle ilgili bir sorunum var.

Benim Kod:

procedure FileReplaceString(const FileName, searchstring, replacestring: string); 
var 
    fs: TFileStream; 
    S: string; 
begin 
    fs := TFileStream.Create(FileName, fmOpenread or fmShareDenyNone); 
    try 
     SetLength(S, fs.Size); 
     fs.ReadBuffer(S[1], fs.Size); 
    finally 
     fs.Free; 
    end; 
    { the compiler stops here with: unknown identifier 'StringReplace' } 
    S := StringReplace(S, SearchString, replaceString, [rfReplaceAll, rfIgnoreCase]); 
    fs := TFileStream.Create(FileName, fmCreate); 
    try 
     fs.WriteBuffer(S[1], Length(S)); 
    finally 
     fs.Free; 
    end; 
end; 

yerine, ben StringChange() kullanmak zorunda öğrendim ama benim koduyla nasıl kullanılacağını bilmiyorum. Delphi veya Inno Setup hakkında fazla bir şey bilmiyorum. Umarım bana yardımcı olabilirsin.

Answer 1

Bu fonksiyon işi yapar umut:

function FileReplaceString(const FileName, SearchString, ReplaceString: string):boolean; 
var 
    MyFile : TStrings; 
    MyText : string; 
begin 
    MyFile := TStringList.Create; 

    try 
    result := true; 

    try 
     MyFile.LoadFromFile(FileName); 
     MyText := MyFile.Text; 

     { Only save if text has been changed. } 
     if StringChangeEx(MyText, SearchString, ReplaceString, True) > 0 then 
     begin; 
     MyFile.Text := MyText; 
     MyFile.SaveToFile(FileName); 
     end; 
    except 
     result := false; 
    end; 
    finally 
    MyFile.Free; 
    end; 
end; 

Kudos tlama için geri bildirim için.