[Inno Setup] Modifier le contenu d'un fichier et type mismatch

**Shadow aok** · 01/06/2012, 12h16

Hello,

Je tourne sous Inno Setup 5.4.3 et j'ai un petit souci pour modifier le contenu d'un fichier, j'ai le droit à un type mismatch lors de la lecture du contenu du fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure CurStepChanged(CurStep: TSetupStep);
var
  ConfigFile,NewFolder,FileContent: String;
begin
    ConfigFile := ExpandConstant('{userappdata}')+'\test\data\test.xml';
 
...
        LoadStringFromFile(ConfigFile, FileContent);
        StringChange (FileContent, '<name>test</name>', NewFolder);
        DeleteFile(SrcFile);
        SaveStringToFile(ConfigFile,FileContent, True);
end;

L'erreur "TypeMismatch" porte sur la ligne "LoadStringFromFile", colonne 52, soit entre "FileContent" et la parenthèse fermante.
Pourtant, le contenu du fichier peut bien se charger dans un string non ?

Merci.

**Cl@udius** · 01/06/2012, 12h45

Salut

D'après la doc, LoadStringFromFile attend un AnsiString pour le deuxième paramètre.
Donc je suppose un problème de type pour FileContent qui est implicitement un WideString.

PS: En supposant bien-sûr que tu utilises la version unicode d'Inno Setup.

@+ Claudius

**Shadow aok** · 01/06/2012, 13h02

Effectivement, j'utilise bien la version unicode.
Cela marche mieux avec FileContent en AnsiString mais maintenant il râle sur la ligne suivante, pour la même raison.

J'ai tenté de passer NewFolder également en AnsiString, sans succès.

**Cl@udius** · 01/06/2012, 13h22

Utilise deux variables: FileContent et FileContentW.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure CurStepChanged(CurStep: TSetupStep);
var
  ConfigFile,NewFolder, FileContentW: string;
  FileContent: AnsiString;
begin
    ConfigFile := ExpandConstant('{userappdata}')+'\test\data\test.xml';
 
//...
        LoadStringFromFile(ConfigFile, FileContent);
        FileContentW := FileContent;
        StringChange (FileContentW, '<name>test</name>', NewFolder);
//        DeleteFile(SrcFile);
        FileContent := FileContentW;
        SaveStringToFile(ConfigFile, FileContent, True);
end;

C'est pas 'terrible', mais bon...