Discussion :

[Debutant_pc]

Bonjour

Je lis un fichier et remplis une collection d objets que je parcours à l aide d une boucle for.

Mon pb est que suivant le fichier je dois parcourir ma boucle par ordre croissant ou par ordre décroissant.

Pour cela j ai fait deux procédures distinctes.

Y aurait il un moyen de n en faire qu une en précisant lors de son appel, l ordre dans lequel la collection doit être parcourue ?

Merci pour votre aide.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure Affiche(aSource: TStringList; aDest: TMemo; FromEnd: Boolean =False);
var
  Count, Index: integer;
begin
  Count := aSource.Count;
  for i:=0 to Count-1
    do begin
      if FromEnd then
        Index := Count-1-i;
      else  
        Index := i;
      aDest.Append(aSource[Index]);
  end;
end;

[Papy214]

ce serait pas plus simple avec un

Code :

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

1
2
3
4
  for I := max downto min do
  begin
    // ...
  end;

??

[Debutant_pc]

Merci pour vos réponses:

@Papy214 : c est ce que je fais et qui m'oblige à avoir 2 procédures distinctes, une dans chaque sens de lecture.

@tourlourou : Merci, c est exactement ce qu il me fallait !

[pprem]

Même si c'est pratique de poser la question, il existe une documentation bien fournie sur le langage Pascal comme sur les libraires :
http://docwiki.embarcadero.com/RADSt...structions_for

et ne pas hésiter à jeter un oeil aux tutoriels ici dont celui sur l'initiation au Pascal