VarArrayCreate qui merde sous Kylix2
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:
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