Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Cobalt © (2003-01-19 17:45:00)
при сборке сообщает следующее:
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 18:58:00) [1]
Опять 25... А что вы тогда собираетесь писать в finally?

Cobalt (2003-01-19 18:32:00) [2]
Но, этот exception (в смысле, создание ) надо будет брать в отдельное try...finally?

Романов Р.В. (2003-01-19 18:28:00) [3]
Ага

Cobalt (2003-01-19 18:21:00) [4]
Значит, что, если при создании объекта случится exception, то объект создан не будет? И Free вызывать будет не у кого?

Anatoly Podgoretsky (2003-01-19 18:13:00) [5]
Ой как правильно говорит и если ты не прислушаесь, то используй данную программу только для себя.

Романов Р.В. (2003-01-19 17:52:00) [6]
t:=TFileStream.Create(s,fmOpenRead);
try

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »