Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.10;
Скачать: CL | DM;

Вниз

Как массив типа Array Of Array Of String сохранить в TMemoryStream и обратно?   Найти похожие ветки 

 
ctapik-net ©   (2001-12-23 09:44) [0]

Привет Знатоки! Очень нужен Сабж. Заранее благодарен


 
McSimm ©   (2001-12-23 11:30) [1]

Только в цикле.
Сохранять придется: размерность массивов, длины строк и сами строки.
Читать придется последовательно от начала (собственно Stream для того обычно и нужен) считывая размерность массивов, длину очередной строки и саму строку.

Для примера: функции для чтения/записи строк:
function ReadString(AStream: TStream): String;
var Size: Integer;
begin
AStream.Read(Size, SizeOf(Integer));
SetLength(Result, Size);
if Size > 0 then
AStream.Read(Result[1], Size)
end;

procedure WriteString(AStream: TStream; S: String);
var Size: Integer;
begin
Size := Length(S);
AStream.Write(Size, SizeOf(Integer));
if Size > 0 then
AStream.Write(S[1], Size)
end;


 
ctapik-net ©   (2001-12-23 18:31) [2]

спасибо большое



Страницы: 1 вся ветка

Текущий архив: 2002.01.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
4-28564
YUS
2001-11-09 08:04
2002.01.10
Создание Dll.


1-28462
Anatoly Podgoretsky
2001-12-21 21:49
2002.01.10
Как хранить настройки программ - 1


3-28411
dva
2001-12-08 00:27
2002.01.10
Vopros


3-28422
andey
2001-12-09 19:12
2002.01.10
пересчет полей


6-28519
karafuto
2001-10-16 17:13
2002.01.10
Снова АнтиФриз(InDy)