Discussion :

[snaxisnake]

bonjour,
voilà, j'affiche un tableau avec des données. La première colonne est celle d'un numéro,la clé. Je voudrais trouvé le maximum de cette colonne.
En fait c'est pour pouvoir incrémenté par la suite...
Voici mon tableau.

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 Tvoirconcert.Formactivate(Sender: TObject);
  var I:integer;
begin
    tablC.Cells[0,0]:='Concert';
    tablC.Cells[1,0]:='Groupe';
    tablC.Cells[2,0]:='Date';
    tablC.Cells[3,0]:='Prix';
    tablC.Cells[4,0]:='Concert Complet';
    tablC.Cells[5,0]:='Numéro';
   for I := 1 to nbconcert do begin
         tablC.Cells[5,I]:=inttostr (tabconcert[i].GetNumC());
         tablC.Cells[2,I]:= datetostr(tabconcert[i].GetDateC());
         tablC.Cells[3,I]:= floattostr(tabconcert[i].GetPrixC());
         tablC.Cells[1,I]:= tabconcert[i].GetGroupC();
         tablC.Cells[4,I]:= tabconcert[i].ConcertComplet();
   end;
end;
end.

merci

[anapurna]

salut

si c'est un tableau
la fonction high te donne la borne limite supererieur de ton tableau sinon j'ai pas comprit la question

@+ Phil

[snaxisnake]

Non en fait je cherche la clé la plus grande, car elle ne sont pas dans l'ordre en fait. le nombre le plus grand dans la premiere colonne.

[anapurna]

salut

pour ca tu ne peut faire qu'une boucle

Code :

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

1
2
3
4
5
6
7
 
max := -1:
For i: = low(tab) to high(tab) do
begin
  if max < tab[i].cle then 
    max := tab[i].cle
end;

@+ Phil

[Eric Sigoillot]

salut

pour ca tu ne peut faire qu'une boucle

Code :

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

1
2
3
4
5
6
7
 
max := -1:
For i: = low(tab) to high(tab) do
begin
  if max < tab[i].cle then 
    max := tab[i].cle
end;

La manière optimale d'écrire ton algo est celle-ci, elle évite une comparaison. Qui plus est, ta méthode ne convient pas pour des entiers négatifs.

Code :

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

1
2
3
4
5
Max := Tab[Low(Tab)];
for i := Succ(Low(Tab)) to High(Tab) do
begin
  if Tab[i] > Max then Max := Tab[i];
end;

@++

[edam]

au lieu d'un tableau dynamique utlise TClientdataset (Mybase)
http://jmcarayon.developpez.com/mybase/
http://delphi.developpez.com/sources...yclientdataset
bon dev

[snaxisnake]

yes, merci a tous!