Trouver un champ dans un tableau

Version imprimable

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:

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

29/05/2006, 18h44
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
29/05/2006, 18h49
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.

salut

pour ca tu ne peut faire qu'une boucle

Code:

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

29/05/2006, 18h53
edam

au lieu d'un tableau dynamique utlise TClientdataset (Mybase)
http://jmcarayon.developpez.com/mybase/
http://delphi.developpez.com/sources...yclientdataset
bon dev
30/05/2006, 14h19
snaxisnake

yes, merci a tous!
30/05/2006, 16h37
Eric Sigoillot
Citation:
Envoyé par anapurna

salut

pour ca tu ne peut faire qu'une boucle

Code:

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:

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;
@++ ;)