Текущий архив: 2009.03.15;
Скачать: CL | DM;
Вниз
stream and stringlist Найти похожие ветки
← →
аврам (2009-01-22 01:48) [0]есть функция которая сохраняет 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 02:17) [1]> аврам (22.01.09 01:48)
1. Эта функция пришет не в файл, а в поток (Stream).
2. У TStringList есть метод LoadFromStream.
← →
аврам (2009-01-22 12:52) [2]спасибо за помощь! получилось!
Страницы: 1 вся ветка
Текущий архив: 2009.03.15;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.031 c
