|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Проблема с кодировкой
Имеется вот такая вот структура:
Код:
type TFigure = record Points: array [0 .. 1] of TPoint; Model: string; procedure SetFigure(str: string); end; type TMarker = record Name: string; Description: string; Color: TColor; Style: TPenStyle; Width: integer; Figures: array [0 .. 5] of TFigure; end; TFigure.Model: string; заполняю из TEdit Запись TMarker сохраняю вот так: Код:
AssignFile(MFile, SaveDialog1.FileName + '.dat'); Rewrite(MFile, 1); BlockWrite(MFile, Marker, SizeOf(Marker)); CloseFile(MFile); Загружаю вот так: Код:
AssignFile(mFile, 'C:\Flag1.dat'); Reset(MFile, 1); BlockRead(MFile, Marker, SizeOf(Marker)); CloseFile(MFile); Но на выходе получаю: Код:
Marker.Name '묌'#1'#'#0#9#0#$1C#0'僨... Как побороть? Ps. DELPHI XE3 Последний раз редактировалось Uniq!, 10.04.2013 в 20:19. |
#2
|
||||
|
||||
Если это запись (структура) считываемая из файла, то все её поля должны быть фиксированной длины, т.е. напр. Name: string[50];
З.Ы. Да, и как объявлен MFile? Должен быть как file of TMarker. P.S. Вот ссылка на типизированные файлы. Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 10.04.2013 в 21:13. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Uniq! (10.04.2013)
|
#3
|
||||
|
||||
Шикарно, спасибо.
|