Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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



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

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

Наверх





Память: 0.54 MB
Время: 0.011 c
1-28499
nevidimie
2001-12-23 13:44
2002.01.10
Обработка Memo


4-28555
Di_wind
2001-11-07 19:02
2002.01.10
Процесс


1-28474
Delphig
2001-12-22 02:32
2002.01.10
Подсветка синтексиса? Например в HTML редакторе.


14-28536
tovSuhov
2001-11-16 15:39
2002.01.10
E-mail автоответчик


4-28563
Дремучий
2001-11-09 14:43
2002.01.10
Все свободны. А Вас, Штирлиц, я попрошу задержаться.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский