var a: extended;
fd: file of extended;
fdname: string;
begin
WriteLn('Ololo vedi nazvanie faila'); readln(fdname);
assign(fd, fdname);
a:=200;
rewrite(fd);
repeat
write(fd, a);
a:=a+1;
until a=1000;
close(fd);
WriteLn('Ololo vse sdelano!');
readln;
readln;
end.
Кривая запись в файл!
Добрый день, форумчане. Раньше я никогда данные в файл не записывал, но сейчас решил узнать и это. После небольшого ознакомления сделал вот такой код:
Запись в файл идет, но в него записываются не числа, а символы и к ним сзади идут числа: ñòóôõö÷øùúûüýþÿ
Почему так выходит и как исправить данную проблему? Помогите, пожалуйста.:)
Код:
Запись в файл идет, но в него записываются не числа, а символы и к ним сзади идут числа: ñòóôõö÷øùúûüýþÿ
Почему так выходит и как исправить данную проблему? Помогите, пожалуйста.:)
Код вроде правильный, так что дайте кусок hex дампа файла..
Mr.Wolf72, когда будете дамп делать, может, сами себе на вопрос и ответите. :)
наверное, дело в размере extended типа и в его представлении. было бы хорошо потестить с integer, например. или с переводом числа в строку. а вообще, для записи в файл чисел(не строк), хорошо открывать его, как не типизированный
Все происходит правильно (насколько я понял). Вы объявляете тип файла file of extended. Соответственно, для программы это типизированный файл, состоящий из "кусков" по sizeof(extended). Когда вы его открываете не как файл of extended, то данные читаются не по таким "кускам", а по 1 байту (в крайнем случае по 2) и в соответствии с кодировкой преобразуются в символы. Если файл нужен в "читабельном" формате, то надо использовать текстовый файл (вместо file of extended пиши text вроде, но тип уже не помню какой в паскале, для дельфи - textfile).
Работать с ним также как и с типизированным, в результате работы твоего кода получаем:
Результат этот конечно в делфи - других нету под рукой компиляторов
Работать с ним также как и с типизированным, в результате работы твоего кода получаем:
Код:
2.00000000000000E+0002 2.01000000000000E+0002 2.02000000000000E+0002 2.03000000000000E+0002 2.04000000000000E+0002 2.05000000000000E+0002 2.06000000000000E+0002 2.07000000000000E+0002 2.08000000000000E+0002 2.09000000000000E+0002 2.10000000000000E+0002 2.11000000000000E+0002
.......
.......
Результат этот конечно в делфи - других нету под рукой компиляторов