Problème pour mémoriser StringList

Version imprimable

Bonjour à tous,

Je cherche à comparer le nom des fichiers '.exe' d'un dossier spécifique avec des strings chargées à partir d'un fichier ini.
Voilà comment je m'y prends :

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Function Stringsuspecte(S : String) : boolean; var Ini : TIniFile; Strs : TStringList; I: Integer; Begin Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'SUMBConf.ini'); Strs := TStringList.Create(); Ini.ReadSection('String', Strs); for I := 0 to Strs.Count- 1 do Begin if Pos(Strs.Strings[i],S)<>0 then begin Result := True; Exit(); end; End; Result := False; Ini.Free; end;

Le test ne se fait pas : l'itemindex max de ma stringlist Strs est à 0.
Alors que mon fichier ini se compose comme suit :

Code:

1 2 3 4 5 6 7 8 9 10 [Exclu] [String] ins Uninstall update [Ext] .lnk= .exe=

Je ne comprends pas pourquoi Strs ne se remplit pas =X

Merci de votre aide =)

Omg...
mon fichier ini...

Code:

1 2 3 4 5 6 7 8 9 10 [Exclu] [String] ins= Uninstall= update= [Ext] .lnk= .exe=

^^
Désolé pour le post..

Pour ceux que ça intéresse :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Stringsuspecte(S : String; ini : String; section : String) : boolean;
var
  Ini : TIniFile;
  Strs : TStringList;
  I: Integer;
Begin
  Ini := TIniFile.Create(ini);
  Strs := TStringList.Create();
  Ini.ReadSection(section, Strs);
  for I := 0 to Strs.Count- 1 do
  Begin
    if Pos(Strs.Strings[i],S)<>0 then
      begin
        Result := True;
        Exit();
      end;
  End;
  Result := False;
  Ini.Free;
end;

True : il existe une valeur de la section du fichier ini contenue dans S
False : le contraire ^^'

Salut,

Tu doit confondre SECTION et CLE.

fichier.ini

Code:

1
2
3
4
5
 
[NAMESFILES]
F1=Bonjour
F2=Hello
F3=Bye

Sur un evenement on click d'un boutton.
Mettre un Memo sur la form pour voir le résultat

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button2Click(Sender: TObject);
Var
  LstFiles: TStringList;
  i: integer;
begin
  LstFiles := TStringList.Create;
  LstFiles.Clear;
  LectureFichierINI(ExtractFilePath(Application.ExeName)+'Essai.ini', LstFiles, 'NAMESFILES', 'F');
 
  Memo1.Clear;
  for i := 0 to LstFiles.Count-1 do
  Begin
    Memo1.Lines.Add(LstFiles.Strings[i]);
  end;
  LstFiles.Free;
end;

Lecture du fichier ini

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TForm1.LectureFichierINI(vFileName: String; Lst: TStrings; Section :String; Cle: String);
Var
  FichierIni : TInifile;
  S: String;
  i: integer;
begin
  i := 1;
  Lst.Clear;
  FichierIni := TIniFile.Create(vFileName);
  Try
    repeat
      S := FichierIni.ReadString(Section,Cle + IntToStr(i), '');
      if S <> '' then begin
        Lst.Add(S);
      end;
      inc (i);
    until S = '';
  Finally
    if assigned(FichierIni) then FichierIni.Free;
  end;
End;

C'est un exemple , as toi de voir comment l'adapter à ton besoin. ;)