Главная страница
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.011 c
1-60677
AlexNO
2002-08-06 12:09
2002.08.19
Нужно выдрать значение Text из всех TLabeledEdit ов на форме


1-60630
andreyz
2002-08-06 05:13
2002.08.19
Иконки в гриде


4-60925
Kost
2002-06-13 11:59
2002.08.19
Перехват нажатия пользователем кнопок максимизации/минимизации


3-60491
SerKom
2002-07-26 20:04
2002.08.19
Как востановить таблицу Paradox - Corrupt table/index header.


6-60783
MAB
2002-06-06 22:13
2002.08.19
Создаю чат для локальной сети