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

Вниз

Сохранение данных в бинарный файл   Найти похожие ветки 

 
maximka   (2004-10-22 20:36) [0]

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

Примерный текст задачи:
дана стринговая переменная вида str := "ffd8ffe000104a4649460001", в которой содержатся данные в шестнадцатиричном виде. И эти данные необходимо записать в бинарный файл так чтобы каждый записанный байт соответствовал своему шестнадцатиричному значению в представленной стринговой переменной.

Вот такую вот задачку мне дали порешать. Помогите пожалуйста. Буду очень благодарен если представите исходник с пояснениями, чтоб я понял как это делается. Огромное вам спасибо.


 
Юрий Зотов ©   (2004-10-22 20:46) [1]

1. Если длина строки - нечетная, добавляем к ней слева символ "0"
2. Проходим строку в цикле while по парам символов. Каждая пара берется, как подстрока, дополняется слева символом "$", преобразуется в число вызовом StrToInt и затем это число записывается в file of byte.

Вот и все. А код - это уж сами, а то неинтересно будет.


 
maximka   (2004-10-22 20:52) [2]

спасибо я это понял, но я никогда не работал с записью в текстовые файлы, а тут еще и бинарные. можете хотя бы запись в файл показать? спасибо заранее


 
wnew ©   (2004-10-22 20:57) [3]

maximka   (22.10.04 20:52) [2]
Нажимаешь F1, в индексе печатаешь write, получаешь помощь с примером по procedure Write( [var F: Text; ] P1 [ , P2,..., Pn] );


 
begin...end ©   (2004-10-22 20:59) [4]


> [2] maximka   (22.10.04 20:52)

var
 F: file of Byte;
 Value: Byte;

begin
 AssignFile(F, "c:\MyFile.bin");
 Reset(F);
 // В Value записываем нужное число
 Write(F, Value);
 CloseFile(F)
end.


 
maximka   (2004-10-22 21:00) [5]

У меня дельфи7, и там вроде нет примера, у меня с английским немного грустно, поэтому я хотел с пояснениями на русском понять это. извините конечно что глупые вопросы задаю, но я ученик всеголишь.


 
maximka   (2004-10-22 21:01) [6]

воооо, спасибочки большое begin...end


 
Юрий Зотов ©   (2004-10-22 22:15) [7]

wnew © (22.10.04 20:57) [3]
maximka (22.10.04 21:00) [5]

LOL.



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

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

Наверх




Память: 0.46 MB
Время: 0.039 c
14-1097832119
}|{yk
2004-10-15 13:21
2004.11.07
Программа составления генеалогий


1-1098348416
Mishenka
2004-10-21 12:46
2004.11.07
Описание события у компонента


1-1098647524
MegaBonus
2004-10-24 23:52
2004.11.07
Почему замедляется работа процедуры?


4-1096816084
Teap0t
2004-10-03 19:08
2004.11.07
создаем Сервис под XP


6-1093710572
Фёдор Мегатронов
2004-08-28 20:29
2004.11.07
Как узнать имя файла по указанному урлу ?





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