Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Сохранение Тлист с помощью потоков

Автор: zarogon 25.3.2007, 18:28

Люди проблема. Не сохраняет мой список (ТЛист) через потоки. Ругается вот сдесь:

Код



procedure TVladelecList.SaveList(FileName: string);
var
  Stream:TStream;
  i:integer;
begin
  try
    try
         Stream:=TFileStream.Create(FileName,fmOpenWrite);
      if Count<>0 then
        for i:=0 to Count-1 do
            TVladelec(Items[i]).Save(Stream);
    except
      ShowMessage('Помилка при створенні файлу '+#13+FileName);
    end;
  finally
    Stream.Free;
  end;
end;

В атаче сам проект, кто может гляньте.

заранее спасибо

<b>Добавлено через 1 минуту и 6 секунд</b>
ВОт атач