Discussion :

[Bourak]

Salut tous les developpeures

J'ai un tableau tabseance contenant des heures non trie ;
La problème que j'ai tester tous les methodes pour la trier mais pas de solution.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
//tabseances est declaré comme variable globale 
tabseances : array[0..24] of string ;
// il sera rempli par des heures non trie (08:00:00),(10:00:00), (09:00:00).....ect
 
/// Ma solution est ceci mais elle ne fonctionne pas bien
 
procedure Tfrmjour.Button1Click(Sender: TObject);
var t,f,t1,f1 :string;
i,j :integer;
ht,hf : ttime;
tabtemp : array[0..24] of string ;//tableau contenant les heures trie
 
begin
 
for i:= 0 to 24 do begin
  for j:=0 to 24 do begin
    t:= tabseances[i];
    f:= tabseances[j];
 
      if ((t <> '')and(f <> '')) then
      begin
 
         ht := strtotime(t);
         hf := strtotime(f);
         if (hf < ht)  then  
           tabtemp[i] :=f
        else
         if  (hf >= ht)    then
           tabtemp[i] :=t ;
     end;
 
  end;
end;
end;

Merci d'avance

[bruno07]

tu peux utiliser la propriété SORTED d'un TStringList.

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
procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
TempString : TStringList ;
begin
tabseances[0] := '08:00:00' ; // Pour les tests
tabseances[1] := '10:00:00' ; // Pour les tests
tabseances[2] := '09:00:00' ; // Pour les tests
TempString := TStringList.create ;
TempString.clear ;
TempString.sorted := True ;
Memo1.Clear ;
for i:= 0 to 24 do Memo1.text := Memo1.text + 'Avant : ' + tabseances[i] + #13#10 ; // Affiche le tableau du départ
for i:= 0 to 24 do if tabseances[i] <> '' then TempString.Add(tabseances[i]); // on recupere les enreg
for i:= 0 to TempString.Count - 1  do tabseances[i] := TempString.Strings[i]; // on sauvegarde le resultat trié
for i:= 0 to 24 do Memo1.text := Memo1.text + 'Aprés : ' + tabseances[i] + #13#10 ; // affiche le résultat trié
TempString.free ; // on libere la mémoire
end;

[OutOfRange]

Salut

Il me semble effectivement que ton code ne peut pas aboutir au bon résultat, car à aucun moment tu ne compares la nouvelle valeur à classer avec celles qui le sont déjà (tabtemp[i])

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
for i:= 0 to 24 do begin
 t:= tabseances[i];
  for j:=0 to 24 do begin

    f:= tabtemp[j];

      if ((t <> '')and(f <> '')) then
      begin
       
         ht := strtotime(t);
         hf := strtotime(f);
         if (hf > ht)  then  
           tabtemp[i] :=t
        else
         if  (hf <= ht)    then
           tabtemp[i] :=t ;
     end;

  end;
end;
end;

Je n'ai pas testé, c'est juste une piste de réflexion...
Et mon code ne peut pas fonctionner, il faudrait d'abord initialiser tous les tabtemp à '00:00:00'...

[Bourak]

Merci à tous pour votre aide