Чудеса на виражах! Как такое может быть?

[Gypsy]

Господа, товарищи, люди в конце концов! Помогите. Или я в конец запарился, или это действительно чудеса.
Вот код. До этого кода значение Paper[l].Name равно 'GZZ9', после кода оно НИЧЕМУ НЕ РАВНО, т.е. ''. Не пойму, как это происходит.

for l:=1 to MaxCountStak do
begin
if Paper[l].Name = s1 then
begin
For i := Cells.Top to Cells.Bottom do
For j := Cells.Left to Cells.Right do
If (Data.Cells[i-Cells.Top, j-Cells.Left] <> '0') and (Data.Cells[i-Cells.Top, j-Cells.Left] <> '0,00') then
a.a[j, i] := Data.Cells[i-Cells.Top, j-Cells.Left];
FormateStakan(a, l);
ShowMessage('Paper.Name='+Paper[l].Name+' s1='+s1);
end;
end;

единственная процедура, которая используется в коде:

procedure FormateStakan(a: TArray; n: integer);
var i, j, k: integer; f: textfile; s: string;
begin
Assignfile(f, 'c:\stakan.txt');
rewrite(f);

i:=1;
while (a.a[2, i] <> '') and (a.a[2, i+1] <> '') do inc(i);
i:=i-1; k:=1;
for j:=i downto (i-(MaxOchered div 2)) do
begin
try
Paper[n].BidCount[k]:=strtoint(a.a[2, j]);
except
ShowMessage('a.a[2,j]='+a.a[2, j]);
end;
try
Paper[n].BidPrice[k]:=strtofloat(a.a[1, j]);
except
ShowMessage('a.a[1,j]='+a.a[1, j]);
end;
try
Paper[n].AskCount[k]:=strtoint(a.a[0, i+1+k]);
except
ShowMessage('a.a[0,i+1+k]='+a.a[0, i+1+k]);
end;
try
Paper[n].AskPrice[k]:=strtofloat(a.a[1, i+1+k]);
except
ShowMessage('a.a[1,i+1+k]='+a.a[1, i+1+k]);
end;

inc(k);
end;

Вот и все!)

[Alex Cones]

Используй пошаговую отладку (F7), после каждого шага наводи мышь на переменные, значение которых хочешь узнать. Там и увидишь, кто её обнуляет.

[Вавел из ГМТУ]

Где и как объявлена переменая Paper?

[Gypsy]

Сообщение от Вавел из ГМТУ

Где и как объявлена переменая Paper?

В текущем модуле после VAR до IMPLEMENTATION.

[Gypsy]

Сообщение от Alex Cones

Используй пошаговую отладку (F7), после каждого шага наводи мышь на переменные, значение которых хочешь узнать. Там и увидишь, кто её обнуляет.

Спасибо, щас попробуем.