TWriter
Страницы:
<
1
2
>
fs © (2009-05-15 15:52:00)
Столкнулся с проблемой: написал алгоритм сохранения записей
класса наследника от TList. Вот собственно код:
procedure TBranchesBank.WriteTo(const AFileName: string);
var
P: PBranchBankItem;
i: Integer;
S: TStream;
W: TWriter;
begin
S := TFileStream.Create(AFileName, fmCreate);
try
W := TWriter.Create(S, 0);
try
for I := 0 to Count - 1 do
with P^ do
begin
P :=
PBranchBankItem(List[i]);
W.WriteInteger(Number);
W.WriteString(City);
W.WriteString(Address);
W.WriteString(Name);
W.WriteInteger(Code)
end;
finally
W.Free;
end;
finally
S.Free;
end;
end;
на строке
W.WriteInteger(Number);прога вешается. Почему
возникает ошибка не понятно.
Palladin (2009-05-15 15:54:00) [21]
что за Number и Ко? откуда эти идентификаторы то
взялись?
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
