Discussion :

[Isa31]

Bonjour a tous,

J'ai un petit soucis, je n'arrive pas à trouver l'équivalent en Delphi au

Code :

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

UBound

de VB?


Merci d'avance pour votre aide.

Isa

[octal]

utilises High() .... avec les tableaux dans delphi tu peux utiliser High et Low pour le max et min du rang ....
voilà l'exemple issue de l'aide delphi

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
 
function Sum( var X: array of Double): Double;
 
var
  I: Word;
  S: Real;
begin
  S := 0; { Notez que les indices de tableaux ouverts commencent toujours à zéro. }
  for I := 0 to High(X) do S := S + X[I];
  Sum := S;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
var
  List1: array[0..3] of Double;
  List2: array[5..17] of Double;
  X: Word;
  S, TempStr: string;
begin
  for X := Low(List1) to High(List1) do
      List1[X] := X * 3.4;
  for X := Low(List2) to High(List2) do
      List2[X] := X * 0.0123;
  Str(Sum(List1):4:2, S);
  S := 'Somme de List1: ' + S + #13#10;
  S := S + 'Somme de List2: ';
  Str(Sum(List2):4:2, TempStr);
 
  S := S + TempStr;
  MessageDlg(S, mtInformation, [mbOk], 0);
 
end;

[Isa31]

beaucoup, j'ai un peu de mal ces temps-ci