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]

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

stream and stringlist Найти похожие ветки