Bonjour a tous,
J'ai un petit soucis, je n'arrive pas à trouver l'équivalent en Delphi aude VB?
Code : Sélectionner tout - Visualiser dans une fenêtre à part UBound
Merci d'avance pour votre aide.
Isa
Bonjour a tous,
J'ai un petit soucis, je n'arrive pas à trouver l'équivalent en Delphi aude VB?
Code : Sélectionner tout - Visualiser dans une fenêtre à part UBound
Merci d'avance pour votre aide.
Isa
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;
beaucoup, j'ai un peu de mal ces temps-ci
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager