Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    Est il possible de préciser le sens d une boucle for ?
    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.

  2. #2
    Modérateur

    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;
    Delphi 5 Pro - Delphi 10.3.2 Rio Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Membre émérite
    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;



    ??

  4. #4
    Membre du Club
    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 !

  5. #5
    Membre expérimenté
    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

###raw>template_hook.ano_emploi###