Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

File of Integer

__msaA © (2008-01-25 21:34:00)
procedure TForm1.Button1Click(Sender: TObject); var f: File of Integer; n: Integer; begin AssignFile(f,'C:/input.txt'); reset(f); while not EOF(F) do begin read(f,n); ListBox1.Items.Add(IntToStr(n)); end; CloseFile(f); end;

Содержимое input.txt:
4 8 15 16 23 42

ListBox1 показывает совсем не те числа! Вот они:
540549172 824194353 858923062

Где допущена ошибка?

__msaA (2008-01-25 22:56:00) [1]
Да я забыл просто про то, акой тип выбрать. Я это уже проделывал, просто вспоминал-вспоминал, думал 10 минут и не вспомнил. Поэтому пришел сюда ) но щас вспомнил, спасибо!

Anatoly Podgoretsky (2008-01-25 22:44:00) [2]
> __msaA (25.01.2008 22:04:11) [11]

Это стыдно писать не то что в олимпиадных задачах, а в любых, это допустимо в книжках для детей и в справке. Текстовым и типизированым файлам не одно десятилетие.
Для детей на моем сайте есть статья - файлы Паскаля.

Amoeba (2008-01-25 22:07:00) [3]
Для начала сюда:
http://www.delphikingdom.com/lyceum/seminar.asp?ID=2

__msaA (2008-01-25 22:04:00) [4]
В олимпиадных задачах такого нет ))) Завтра на олимпиаду, я все знаю, а вот такие файлы, где используются числа ввиде строк, я не использую. Использую структуры ))

{RASkov} (2008-01-25 22:02:00) [5]
> [9] __msaA (25.01.08 21:54)
> , я угадал?

А мы разве в гадалки играем? :)

Тут не гадать нужно, а хелп читать )

В твоем случае правильнее будет: метод Read читает по sizeof(integer) байт за раз из типизированного файла f: File of Integer;
в переменную типа Integer..... во как :)

__msaA (2008-01-25 21:54:00) [6]

> var f:TextFile;

Во! Спасибо! ))) Как это я сам не додумался? )) А File of Integer наверно читает числа по sizeof(integer) байтов, я угадал?

turbouser (2008-01-25 21:50:00) [7]

> __msaA (25.01.08 21:49) [7]
>
>
> > в блокноте что-ли напечатал?
>
> Да!! ) Мне нужно уметь читать такие файлы

var f:TextFile;

__msaA (2008-01-25 21:49:00) [8]

> в блокноте что-ли напечатал?

Да!! ) Мне нужно уметь читать такие файлы

Amoeba (2008-01-25 21:48:00) [9]
Данный файл у тебя не типизированный, а текстовый! Так что будь добр объявить файловую переменную не как File of Integerкак TextFile.

__msaA (2008-01-25 21:48:00) [10]
А как читать мой файл? Какой нужен тип файла?

turbouser (2008-01-25 21:47:00) [11]

> __msaA (25.01.08 21:45) [2]
>
> А я его сам напечатал ))

Вот тут и ошибка. Надо и писАть в файл как f: File of Integer;

engine (2008-01-25 21:47:00) [12]
> [2] __msaA (25.01.08 21:45)

в блокноте что-ли напечатал?

__msaA (2008-01-25 21:45:00) [13]
А я его сам напечатал )) Ну раньше выходило, а щас нет. Мне нужно, чтоб в листбоксе выходили именно эти числа. Это типпизированные файлы чтоли называются...

turbouser (2008-01-25 21:43:00) [14]

> __msaA (25.01.08 21:34)
>
> Где допущена ошибка?

А как 4 8 15 16 23 42оказалось в input.txt ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »