jason
Мимокрокодил
Необходимо в скопированном файле File.txt найти значение "FromStr" и поменять его на "ToStr" Нагуглил следующий код, но почему-то он не работает, пробовал экспериментировать читать мануал, но похоже программист из меня не очень,. Пожалуйста помогите найти ошибку. Дистрибутив inno setup v5.5.8-unicode.exe, ос windows 7
Код:
[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program
[Files]
Source: "File.txt"; DestDir: "{app}\Files"; Flags: ignoreversion;
[Code]
var
UnicodeStr: string;
ANSIStr: AnsiString;
begin
LoadStringFromFile(ExpandConstant('{app}\Files\File.txt'), ANSIStr)
UnicodeStr := String(ANSIStr);
StringChangeEx(UnicodeStr, ExpandConstant('"FromStr"'), ExpandConstant('"ToStr"'), False)
SaveStringToFile('{app}\Files\File.txt', AnsiString(UnicodeStr), True);
end.