Этот кусок кода компилится нормально, но компилятор

← →
Cobalt (2003-01-19 17:45) [0]

при сборке сообщает следующее:
Variable "t" might not have been initialized
Че за фигня?

type
TFlatArray = array[word] of byte;
procedure TForm1.LoadFile;
var t:TFileStream;
Buf:TFlatArray;
i, i1 :word;
begin
try
t:=TFileStream.Create(s,fmOpenRead);
SG1.RowCount:=RowCnt;
t.Position:=BegOfs*16;
t.Read(Buf, RowCnt*16);
for i:=0 to RowCnt do
begin
for i1:=0 to 15 do
begin
if (i=0)
then SG1.Cells[i1, i]:=IntToHex(i1, 2)
else if i1=0
then SG1.Cells[i1, i]:=IntToHex(BegOfs+i, 2)
else SG1.Cells[i1, i]:=IntToHex(Buf[(i-1)*16+i1-1], 2);
end;
end;
t.Position:=$14;
t.Read(Buf, 15);
NameLabel.Caption:="";
for i:=0 to 14 do
if Buf[i]<>0
then NameLabel.Caption:=NameLabel.Caption+chr(Buf[i]);
CurrentFile:=s;
finally
t.Free;
end;
end;

← →
Романов Р.В. (2003-01-19 17:52) [1]

t:=TFileStream.Create(s,fmOpenRead);
try

← →
Anatoly Podgoretsky (2003-01-19 18:13) [2]

Ой как правильно говорит и если ты не прислушаесь, то используй данную программу только для себя.

← →
Cobalt (2003-01-19 18:21) [3]

Значит, что, если при создании объекта случится exception, то объект создан не будет? И Free вызывать будет не у кого?

← →
Романов Р.В. (2003-01-19 18:28) [4]

Ага

← →
Cobalt (2003-01-19 18:32) [5]

Но, этот exception (в смысле, создание ) надо будет брать в отдельное try...finally?

← →
Романов Р.В. (2003-01-19 18:58) [6]

Опять 25... А что вы тогда собираетесь писать в finally?

Этот кусок кода компилится нормально, но компилятор Найти похожие ветки