Главная страница
    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.82 MB
Время: 0.021 c
6-28519
karafuto
2001-10-16 17:13
2002.01.10
Снова АнтиФриз(InDy)


1-28481
$Hic0
2001-12-21 13:17
2002.01.10
Вопрос про TreeView и ImageList


3-28413
Yavfast
2001-12-08 10:37
2002.01.10
Создание объектов-полей в Runtime


4-28564
YUS
2001-11-09 08:04
2002.01.10
Создание Dll.


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