Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





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


1-60727
BlackSun
2002-08-07 10:20
2002.08.19
Почтовый клиент


1-60634
Relaxer
2002-08-08 14:29
2002.08.19
Хелп.


1-60745
NetroSpace
2002-08-06 17:07
2002.08.19
Как наиболее рационально решить следующую проблему?


1-60706
MikeZ
2002-08-05 09:45
2002.08.19
Управление чужими программами





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский