Здравствуйте = )

Ситуация: использую TFileStream для записи и чтения из файла переменных разных типов.

Проблема: записываю русский текст в переменную (string). Переменную записываю в файл. Открываю файл и он мне выводит вместо строки чушь какую-то. Соответственно весь оставшийся файл испорчен (видимо русский текст занимает больше чем 4 Кбайта.

При этом заметил такую особенность: если я записываю файл и открываю его не выходя из программы - все в порядке!

В чем дело? Может кто-то сталкивался?

Телепаты на юге. Код в студию!

смотря как записывать переменную string, у нее нулевой байт не нужно записывать

Помимо кода версию Delphi не забудь.

Именно переменную?     Так это ж указатель!

Откуда взялось 4 кило? Что это вообще за число?

Ну да, это может быть. Записал указатель, потом прочитал его. Если строка куда указывает указатель все еще на месте то будет казаться что все работает.

Да, было бы не плохо.

Нулевой байт имеет особый смысл только у ShortString. Но в этом случае его записывать как раз нужно.


Ну в новых версиях дельфи строки стали уникодными, но вполне возможно писать так, чтобы оно корректно работало под любой версией (ну кроме первой). Нужно просто вместо 1 байта на симбол использовать SizeOf(Char)

Добавлено через 57 секунд
Модератор: И да, вопрос-то для начинающих!

Вообщем суть такая:



ПРо русский я наврал = )) Попробовал и английский тоже косячит.

4 кило взялось из строки: ShowMessage(IntToStr(SizeOf(String))) или ShowMessage(IntToStr(SizeOf(t.s))).

Ну так и есть, пишешь указатель. Не все телепаты в отпуске 
SizeOf возвращает значение в байтах. 4 байта - потому что строка на самом деле указатель на символы. а размер указателя - 4 байта. Чтобы записать собственно строку, делай что-то такое
Только когда ты захочешь прочитать, то окажется что длина строки неизвестна. Поэтому записывай сначала длину, потом строку как я показал. Тогда читаешь длину и определяешь сколько байт в строке (длина строки умножить на размер символа)

Ссылка раз.
Ссылка два.

Спасибо всем за обсуждение и помощь.
Думаю проблемы больше нет = )

За ссылки отдельное спасибо, доступно написано.

При выводе переменной e на экран получается  больше 20 тыс, однако должно быть меньше.

Подскажите в чем дело.

??

выглядит нормально. Ошибка где-то в другом месте.

У битмапов есть свой метод чтения из потока.
ограничение этого метода - Tbitmap читает от текущей позиции указателя в потоке и до конца потока, вне зависимости от того, его данные содержатся там или нет.
А в вашем коде считывается вместо полных данных битмапа только первые 4 байта. И то, что считывается в переменную e на самом деле должно было считаться в битмап.
Для анализа работы с потоками нужно помнить, что Read и Write - это функции, и они возвращают количество реально считанного/записанного.
В режиме пошаговой отладки бывает полезно вывести в Watches myStream.Position.

Это было раз.

Второе - из кода непонятно, а почему собственно должно было считаться число меньшее 20000? Может, вы записали в поток больше 20000?

эээ... То есть TBitmap это Graphics.TBitmap? мда... Тогда читаем kami 

Я без малейшего понятия. Но думаю, что автор не должен был додуматься перекрыть своим объявление этого класса  Кроме того - не представлена конкретная задача, и даже полная структура 

Что затрудняет работу телепатора в автономном режиме 

Я подумал про Windows.TBitmap. его можно читать вышеуказаным кодом. Хотя если подумать смысла в этом не то что бы вагон.

Упс... забыл про него...
Чего-то у нас много получается "подумал-забыл".   Надо подождать разъяснений ТС 

Для ТС: на всякий случай (не знаю, будет полезно или нет) - процедуры чтения и записи того, что спрашивалось (само собой - применять только парами).

kami, а как же try..finally в последних двух процедурках?


pushok, вообще глянь еще такую штуку как TWriter/TReader. Там реализовано много методов для записи и чтения различных данных.

а я так и написал:

А если честно - "ниахоооота" (с) мультик про Великого Нехочуху.

По аналогии написал две функции для TStringList. Выкладываю на всякий случай (вроде работает, но если какие-то ошибки). А строки решил пока по-обычному записывать (string[1]).



Всем большое спасибо.

Такие вещи, как обработка ошибок должны всегда в первую очередь писаться.    

Вот у pushok теперь потенциальноошибконеобрабатываемый код.

pushok, используй try..finally при создании доп потоков, плюс я бы еще проверял на всякий случай все эти входящие параметры на существование(if not Assigned() then Exit).