Amazing bug ?

← →
Dodfr (2005-08-11 12:41) [0]

In this code, when I do form1.form.left:=PosX[0]; the PosX[1] changes and get PosX[0] value ?!? how is it possible as I do not write any value inside it after filling array once ???

const
MaxFormView=4;

type
_INISettings = record
OnTop:integer;
FontName:string;
FontSize:integer;
PosX:array[0..MaxFormView] of integer;
PosY:array[0..MaxFormView] of integer;
end;
INISettings = _INISettings;
PINISettings = ^INISettings;

var
Pini:INISettings;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
i:integer;

begin
for i:=0 to MaxFormView do
begin
Pini.PosX[i]:=str2int(ini.ReadString(ConstSettings,"PosX"+int2str(i),"0"));
Pini.PosY[i]:=str2int(ini.ReadString(ConstSettings,"PosY"+int2str(i),"0"));
end;

Form1.form.left:=Pini.PosX[0];
// now PosX[1]=PosX[0] !!!
Form1.form.Top:=Pini.PosY[0];
// now PosY[1]=PosY[0] !!!

If I copy/past the for/next and .left/top block a second time just below this code, array are refilled and this time they don"t change after the form.left end form.top !!!

← →
Dodfr (2005-08-11 12:47) [1]

If I change location of PosX and PosY in record definition it do not help.

If I simply fill arrays with this, it do not help :

for i:=0 to MaxFormView do
begin
Pini.PosX[i]:=i;
Pini.PosY[i]:=i;
end;

If I do some i2:=Pini.PosX[0] there is no bug.

How the form1.form.left:=PosX[0] could copy value of PosX[0] inside PosX[1] ???

Amazing bug ? Найти похожие ветки