Форум: "Основная";
Текущий архив: 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.028 c