Discussion :

[Invité]

Bonjour,

j'en suis sur a 99%, le VarArrayCreate merde sous Kylix2.Le code suivant ne me renvoie pas les données dans le bon ordre.

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
 
var
  i,j, a, b: integer;
  varTest: variant;
begin
  a := 16;
  b := 16;
  varTest := VarArrayCreate([0,a,0,b],varVariant);
 
  memGetBroadcasts.Clear;
 
  // Stockage
  for i:= 0 to a do begin
   for j:= 0 to b do begin
      varTest[i,j] := IntToStr(i) + '*' + IntToStr(j);
      memo1.Lines.Add('Affectation ' + IntToStr(i) + '/' + IntToStr(j) + '=' + varTest[i,j]);
   end;
  end;
 
  // Lecture  
  for i:= 0 to a do begin
    for j:= 0 to b do begin
     memo1.Lines.Add(IntToStr(i) + '/' + IntToStr(j) + '=' + (varTest[i,j]));
    end;
  end;
end;

Des fois ca marche, des fois l'ordre n'esr pas correcte, des fois le VarArrayCreate plante (avec a=4 et b=16 par exemple).

Pour a=b=2 j'ai

Affectation 0/0=0*0
Affectation 0/1=0*1
Affectation 0/2=0*2
Affectation 1/0=1*0
Affectation 1/1=1*1
Affectation 1/2=1*2
Affectation 2/0=2*0
Affectation 2/1=2*1
Affectation 2/2=2*2

Résultat:

0/0=0*0
0/1=1*0
0/2=2*0
1/0=1*0
1/1=2*0
1/2=2*1
2/0=2*0
2/1=2*1
2/2=2*2

C n'importe qoi!
Quelq'un peut il me confirmer ce bug?
Merci

[Invité]

voici ma solution

apparement VarArrayCreate fonctionne quand on utilise une seule dimension.

Donc j'utilise un TGetValeurResultList (dérivé de TList) qui stocke un objet TGetValeurResult.
J'accède a mes dimensions avec la fonction TGetValeurResultList.Val(i,j)

D'accord c un peu lourd, mais je récupère des unités issues de Delphi7 qui fonctionnent correctement. Les modifs sont moindres dans le code.

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
 
TGetValeurResult = class(TObject)
public
  varValeurs: variant;
end;
 
TGetValeurResultList = class(TList)
protected
  function Get(Index: Integer): TGetValeurResult;
  procedure Put(Index: Integer; const Value: TGetValeurResult);
private
public
  destructor destroy;override;
  property Items[Index: Integer]: TGetValeurResult read Get write Put; default;
  function Val(i,j: integer): variant;
end;
 
function TGetValeurResultList.Get(Index: Integer): TGetValeurResult;
begin
  Result := TGetValeurResult(inherited get(Index));
end;
 
procedure TGetValeurResultList.Put(Index: Integer;
  const Value: TGetValeurResult);
begin
  inherited Put(Index, Pointer(Value));
end;
 
function TGetValeurResultList.Val(i, j: integer): variant;
begin
  result := Self.Items[i].varValeurs[j];
end;