Советы по Delphi
TstringList и потоки
Возможно ли выполнить StringList.SaveToStream во время процесса WriteComponent? Если необходимо создать код, сохраняющий каждую строку, могу ли я воспользоваться Stream.WriteStr, или мне необходимо сохранять длину в байтах + сами символы? (Все мои строки < 256 символов).
Вы можете легко записывать строки, если определите, что список строк вместо DefineBinaryPropery должен использовать DefineProperty. Чтение и запись должны выпоняться соответственно с помощью методов TReader и TWriter. Записывать вы можете приблизительно так:
| Writer.WriteListBegin ;for i := 0 to TheStringList.Count - 1 doWriter.WriteString( TheStringList[ i ] ) ;Writer.WriteListEnd ; |
Для чтения можно воспользоваться следующим кодом:
| Reader.ReadListBegin ;while not Reader.EndOfList doTheStringList.Add( Reader.ReadString ) ;Reader.ReadListEnd ; |
- Mike Scott [000977]
