| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

stream and stringlist

аврам ©   (2009-01-22 01:48:00) 

есть функция которая сохраняет outstream в файл, а мне нужно в list (list: tstringlist) как это сделать?
InStream, OutStream: TStream; Size: longword): longword;
var
 Buffer: array[0..8191] of byte;
 i, Read: longword;
begin
 Result:= 0;
 for i:= 1 to (Size div Sizeof(Buffer)) do
 begin
   Read:= InStream.Read(Buffer,Sizeof(Buffer));
   Inc(Result,Read);
   Decrypt(Buffer,Buffer,Read);
   OutStream.Write(Buffer,Read);
 end;
 if (Size mod Sizeof(Buffer))<> 0 then
 begin
   Read:= InStream.Read(Buffer,Size mod Sizeof(Buffer));
   Inc(Result,Read);
   Decrypt(Buffer,Buffer,Read);
   OutStream.Write(Buffer,Read);
 end;

---

аврам   (2009-01-22 12:52:00) [1]

спасибо за помощь! получилось!

---

Юрий Зотов   (2009-01-22 02:17:00) [2]

> аврам   (22.01.09 01:48)

1. Эта функция пришет не в файл, а в поток (Stream).  
2. У TStringList есть метод LoadFromStream.

---

Наверх