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

Вниз

Текста в записях   Найти похожие ветки 

 
Hellman ©   (2002-08-06 08:08) [0]

Например, еcть запись:

type
rec = record

subj : string[16];

//сюда надо вставить текстовые данные
end;

FRec : file of rec;
Что можно использовать в записях, чтобы сохранить многостроковый текст
в файл????


 
Song ©   (2002-08-06 08:34) [1]

Ну например массив строк


 
ЮЮ ©   (2002-08-06 08:38) [2]

И как мног0 строк можно запихать в 16 байт? Если это и вся структура, то лучше использовать TextFile вместо file of rec.


 
Anatoly Podgoretsky ©   (2002-08-06 08:54) [3]

Можно записхать от одной до 8 строк


 
ЮЮ ©   (2002-08-06 09:01) [4]

Можно и больше, сделав предположение что, что если начинается с заглавной,то - с новой строки. :-)


 
Leran2002 ©   (2002-08-06 09:09) [5]

Могу предложить такую структуру (сразу скажу что не тестировал, это только теоретические соображения):

type
rec = record
subj:string[16];
l:integer; // содержит длину строки mystr
mystr:string; // строка
end;

var
f:file;
r:rec;

AssignFile(f,…);
Reset(f,1); // для чтения из существующего файла
Rewrite(f,1); // для создания нового файла


Пример чтения из файла одного элемента

BlockRead(f,r.subj,SizeOf(r.subj));
BlockRead(f,r.l,SizeOf(r.l));
BlockRead(f,r.mystr,r.l);


Для записи элемента

BlockWrite(f,r.subj,SizeOf(r.subj));
r.l:=Length(r.mystr);
BlockWrite(f, r.l,SizeOf(r.l));
BlockWrite(f, r.mystr,r.l);


 
Leran2002 ©   (2002-08-06 09:12) [6]

Могу предложить такую структуру (сразу скажу что не тестировал, это только теоретические соображения):

type
rec = record
subj:string[16];
l:integer; // содержит длину строки mystr
mystr:string; // строка
end;

var
f:file;
r:rec;

AssignFile(f,…);
Reset(f,1); // для чтения из существующего файла
Rewrite(f,1); // для создания нового файла

Пример чтения из файла одного элемента

BlockRead(f,r.subj,SizeOf(r.subj));
BlockRead(f,r.l,SizeOf(r.l));
BlockRead(f,r.mystr,r.l);

Для записи

BlockWrite(f,r.subj,SizeOf(r.subj));
r.l:=Length(r.mystr);
BlockWrite(f, r.l,SizeOf(r.l));
BlockWrite(f, r.mystr,r.l);



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

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

Наверх




Память: 0.48 MB
Время: 0.009 c
1-60680
Сергей Б.
2002-08-01 16:04
2002.08.19
Сохранение данных в оригинальном формате.


4-60899
MARcoDEN
2002-06-10 20:21
2002.08.19
Проблема с хэндлом


1-60581
maxim2
2002-08-08 08:25
2002.08.19
Не могу додуматься как сделать?


3-60526
UnDISCOvery
2002-07-30 11:58
2002.08.19
Как создать автоинкрементное поле SQL-запросом ?


4-60924
Sour
2002-06-12 09:37
2002.08.19
Как принудительно убить чужое приложение, зная handle