Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.13;
Скачать: CL | DM;

Вниз

Загрузка строк неизвестного размера из 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
7-40699
Номолос
2003-07-26 09:16
2003.10.13
Как получить список всех носителей информаци?


7-40702
Mitya_M
2003-07-25 17:11
2003.10.13
Использование Delphi приложений с > 2Gb памяти?


7-40710
GuestTM
2003-07-30 11:34
2003.10.13
глюки с DIBENG.DLL при смене видео режима!!!


3-40233
eds
2003-09-24 09:37
2003.10.13
При вставке текстовых данных в таблицу Firebird генерирует ошибку


7-40712
StanislavB
2003-07-19 08:32
2003.10.13
Сброс таблицы дескрипторов