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

Вниз

сохранить массив of String   Найти похожие ветки 

 
f3n   (2004-06-01 18:56) [0]

Делаю так:
...
type
 mapS = array [0..100, 0..99] of string;
...
var
   desc: mapS;
   FileName3 : String;
   FileDesc : file of mapS;
...
заполняем массив из стрингграйды.
теперь, хочу сохранить в файл:

FileName3:= SaveDialog1.FileName;
 AssignFile(FileDesc, FileName3);
 Rewrite(FileDesc);
 Write(FileDesc,desc);
 Reset(FileDesc);
----------------------------------

РУГАЕТСЯ: Type "mapS" needs finalization - not allowed in file type

Что не так? И как можно, что б так :)
Фактически, что нужно, это %сабж% в файл


 
Тимохов ©   (2004-06-01 19:06) [1]

сами подумайте - как дельфи это будет обрабатывать:
string - не известно какой длины. Дельфи не такая умная.

опишите не of string, а of string[255].
но тогда у вас будет ограничена длина строки.
если нужна не ограниченная строка - тогда делайте свой пеханизм записи, например через blockwrite.


 
Anatoly Podgoretsky ©   (2004-06-01 19:06) [2]

То что ты пытаешься записать указатели вместо данных.
Какая у тебя максимальная длина отдельной строки, если не более 255 то можно of ShortString
Или отказ от типизированных в пользу текстовых или нетипизированных.


 
f3n   (2004-06-01 19:07) [3]

да :) логично :)
спасибо большое, 255 символов вполне хватит


 
Anatoly Podgoretsky ©   (2004-06-01 19:10) [4]

А если уйдешь в сторону текстовых файлов то не будешь и этим ограничен, при этом файл будет минимально возможного размера



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

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-1085984945
Максим
2004-05-31 10:29
2004.06.13
Подробнее о Preview. Я использую не QRPreview.


1-1085726435
evgen
2004-05-28 10:40
2004.06.13
Как избежать абсолютных ссылок?


1-1085778202
Talle
2004-05-29 01:03
2004.06.13
Динамический массив


1-1086160251
Anton
2004-06-02 11:10
2004.06.13
Записи с вариантами


14-1085488754
Hatter
2004-05-25 16:39
2004.06.13
Gigabyte GA-8S648