Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Вниз

Загрузка строк неизвестного размера из TMemoryStream   Найти похожие ветки 

 
delpher_gray   (2003-10-01 13:32) [0]

Программеры !
Подскажите как записывать и читать строки из MS неопределённого размера ?
Например я пробовал писать так:

while ... do
begin
StrSize := Ltngth(Str);
MS.Write(StrSize, SizeOf(StrSize));
MS.Write(Str, StrSize);
end;


А читать так:

while MS.Position < MS.Size do
begin
MS.Read(StrSize, SizeOf(StrSize));
MS.Read(Str, StrSize);
end;


Писать - проблем нет, а вот читать не получается...

Заранее благодарен.


 
Verg   (2003-10-01 13:34) [1]


> MS.Write(Str [1], StrSize);


SetLength(Str, StrSize);
> MS.Read(Str [1], StrSize);


 
Digitman   (2003-10-01 13:43) [2]

что-то мне помнится - ты вроде как уже получал этими граблями по лбу, когда задавал подобный вопрос в "Сети") ... или ошибаюсь ?


 
delpher_gray   (2003-10-01 14:37) [3]

2Digitman:
Да я задавай, но я не понял :(
Терь вроде бы всё ясно...

2Verg:
А зачем ставить [1] возле Str ? Вот тока этого я не понял....


 
han_malign   (2003-10-01 14:41) [4]

>А зачем ставить [1] возле Str ? Вот тока этого я не понял....
- ну, в принципе можно и PChar(Str) ^, или Pointer(Str) ^ - читайте про внутреннее представление открытых строк и массивов...



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

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

Наверх




Память: 0.44 MB
Время: 0.008 c
1-40387
Zhouck
2003-09-29 11:38
2003.10.13
перехожу с С++B на Delphi. Как сделать в Delphi безразмерный масс


6-40533
ZHK
2003-08-14 15:38
2003.10.13
ESC and Telnet?


1-40503
Петр
2003-10-02 08:58
2003.10.13
Вопрос по отладке в Borland CBuilder


6-40544
SergP
2003-08-13 18:16
2003.10.13
Прокси-Сервер. Как закрыть соединение с браузером.


7-40692
Duncan
2003-07-28 15:08
2003.10.13
CreateProcess





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