Главная страница
    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.028 c
9-1089564914
volser
2004-07-11 20:55
2004.11.07
Загрузка текстуры с TPicture или TBitmap


1-1097967106
ranetka
2004-10-17 02:51
2004.11.07
Диманический массив как поле класса


3-1097054853
GlaDimoN
2004-10-06 13:27
2004.11.07
создание отчета


14-1098191610
Uran
2004-10-19 17:13
2004.11.07
Installshields


14-1098092835
Gari
2004-10-18 13:47
2004.11.07
Как много изменений в новой версии Delphi





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