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

Вниз

как сохранить в файл тип Record   Найти похожие ветки 

 
Miralex   (2003-08-04 14:32) [0]

У меня есть тип-запись:
UserData : Record
Name : String;
Salary: Real;
end;

как мне сохранить UserData в файл?
и как мне потом его читать с файла?


 
MalkoLinge   (2003-08-04 14:35) [1]

Есть такая неплохая штука - типизированный файл...

File of ВАШТИП


зы
Книжки нужно читать...научные :)))


 
Miralex   (2003-08-04 14:37) [2]

напиши пожалуйста пример для моего случая!


 
Guerrillero   (2003-08-04 14:37) [3]

File types + F1


 
HolACost   (2003-08-04 14:40) [4]

Для вашего проблиматично со стрингом 9Если вы не меняли его тип с поумолчанию)... т.к. он = 4 байтам всегда - т..к по умолчанию это указатель!...
а в общем пример

a: UserData
BlockWrite(F, a, sizeof(UserData));
BlockRead*F, a, sizeof(UserData));


 
MalkoLinge   (2003-08-04 14:43) [5]

Черт стринга я и не углядел. ShortString почставь там иначе поседеешь :)


 
Miralex   (2003-08-04 15:14) [6]

пожалуйста обьясните поподробнее как мне ето сделать!


 
HolACost   (2003-08-04 15:19) [7]

Как!
2 варианта - делать типизированный файл или делать битнарный и писать в него рекорды!
Для работы со стрингом лучше всего указать конкретный размер строки... например a:string[20]!
Далее
f:file of UserData - это для типизированного файла
a:UserData;
AssignFile(f, "path");
Reset/Rewrite(F);
write(f, a);
read(f,a);

Я дал пример ранее!
Но лучше в зависимости от задачи использовать что-то другое... например текстовый файл!


 
Echelon   (2003-08-04 16:19) [8]

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


 
Miralex   (2003-08-04 17:18) [9]

огромное спасибо!
разобрался!



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

Форум: "Потрепаться";
Текущий архив: 2003.08.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.003 c
14-58406
artgamer
2002-12-12 23:56
2003.08.18
Караул!!! Не могу запустить приложение MCK!!!


14-58466
Julliete
2003-07-23 17:35
2003.08.18
Удаление всех записей из таблицы


14-58444
Best Gun
2003-08-02 17:39
2003.08.18
Microsoft .NET Framework


14-58462
Spawn
2003-07-24 09:32
2003.08.18
Удаление ограничительных полей


14-58388
Doctor Deejay
2003-08-04 09:03
2003.08.18
Hyperlink





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский