Главная страница
    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.44 MB
Время: 0.002 c
3-28403
Скалли
2001-12-07 10:23
2002.01.10
Редактирование поля типа Date (дата+время)


4-28557
vovan1
2001-11-08 18:35
2002.01.10
CreateProcess


4-28558
Viking
2001-11-08 19:44
2002.01.10
Сворачивание окна


4-28556
cher_gvf
2001-11-09 17:43
2002.01.10
Где почитать о потоках и процессах?


6-28523
Dr. Web
2001-10-03 10:34
2002.01.10
Фильтрация IP пакетов...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский