File of Integer

← →
__msaA (2008-01-25 21:34) [0]

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

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

← →
turbouser © (2008-01-25 21:43) [1]

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

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

← →
__msaA (2008-01-25 21:45) [2]

А я его сам напечатал )) Ну раньше выходило, а щас нет. Мне нужно, чтоб в листбоксе выходили именно эти числа. Это типпизированные файлы чтоли называются...

← →
turbouser © (2008-01-25 21:47) [3]

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

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

← →
engine © (2008-01-25 21:47) [4]

> [2] __msaA (25.01.08 21:45)

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

← →
Amoeba © (2008-01-25 21:48) [5]

Данный файл у тебя не типизированный, а текстовый! Так что будь добр объявить файловую переменную не как File of Integer как TextFile.

← →
__msaA (2008-01-25 21:48) [6]

А как читать мой файл? Какой нужен тип файла?

← →
__msaA (2008-01-25 21:49) [7]

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

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

← →
turbouser © (2008-01-25 21:50) [8]

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

var f:TextFile;

← →
__msaA (2008-01-25 21:54) [9]

> var f:TextFile;

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

← →
{RASkov} © (2008-01-25 22:02) [10]

> [9] __msaA (25.01.08 21:54)
> , я угадал?

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

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

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

← →
__msaA (2008-01-25 22:04) [11]

В олимпиадных задачах такого нет ))) Завтра на олимпиаду, я все знаю, а вот такие файлы, где используются числа ввиде строк, я не использую. Использую структуры ))

Для начала сюда:
http://www.delphikingdom.com/lyceum/seminar.asp?ID=2

> __msaA (25.01.2008 22:04:11) [11]

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

← →
__msaA (2008-01-25 22:56) [14]

Да я забыл просто про то, акой тип выбрать. Я это уже проделывал, просто вспоминал-вспоминал, думал 10 минут и не вспомнил. Поэтому пришел сюда ) но щас вспомнил, спасибо!

File of Integer Найти похожие ветки