Discussion :

[JackNUMBER]

Bonsoir une petite question facile, comment "simplifier" ces conditions imbriquées :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
for i:= CheckListBox1.Count -1 downto 0 do
 if CheckListBox1.Checked[i] then
 begin
  if CheckListBox1.Items[i]=Chemin+'0123' then
  RemoveDir(CheckListBox1.Items[i])
 else
  if CheckListBox1.Items[i]=Chemin+'blabla' then
   RemoveDir(CheckListBox1.Items[i])
  else
   if CheckListBox1.Items[i]=Chemin+'abc' then
    RemoveDir(CheckListBox1.Items[i])
   else
[...]

avec quelque chose du genre :
if CheckListBox1.Items[i]=Chemin+'0123' or Chemin+'blabla' or Chemin+'abc' then
RemoveDir(CheckListBox1.Items[i])




Merci de votre aide !

[JackNUMBER]

Du coup j'ai trouvé juste après avoir posté....

Code :

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

if( CheckListBox1.Items[i]=Chemin+'0123') or (CheckListBox1.Items[i]=Chemin+'blabla') or (CheckListBox1.Items[i]=Chemin+'abc') then

après tellement de recherches ^^

[sjrd]

Mouais... Tu en as combien des fichiers possibles comme ça ? Tu peux récrire tout ça beaucoup plus proprement comme ceci :

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
16
17
18
19
20
21
22
23
const
  RemovableDirs: array[0..2] of TFileName = (
    '0123', 'blabla', 'abc'
  );
var
  Path: TFileName;
  // autres variables
begin
  // ... début du code
  for I := CheckListBox1.Count-1 downto 0 do
  begin
    if CheckListBox1.Checked[I] then
    begin
      Path := CheckListBox1.Items[I];
      if AnsiStartsText(Chemin, Path) and
        AnsiMatchText(Copy(Path, Length(Chemin+1), MaxInt), RemovableDirs) then
      begin
        RemoveDir(Path);
      end;
    end;
  end;
  // ... fin du code
end;