Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Вниз

Как массив типа 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]

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.10;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.024 c
3-28404           Romul                 2001-12-07 13:16  2002.01.10  
Поле типа Boolean в DBF-файле


1-28449           Knyaz17               2001-12-21 11:47  2002.01.10  
Как наследовать метод не родителя, а родителя родителя?


1-28460           cahek2000             2001-12-21 08:40  2002.01.10  
Как убрать(скрыть) горизонтальный скролбар(прокрутку) у TDBGrid-а?


14-28541          модератор             2001-11-09 09:49  2002.01.10  
>Oleg Gashev


6-28524           Алексей Штыков        2001-10-16 14:38  2002.01.10  
Как втихую проверить обновления (любые) с сервера.?