Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.02.17;
Скачать: [xml.tar.bz2];

Вниз

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]

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


 
Amoeba ©   (2008-01-25 22:07) [12]

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


 
Anatoly Podgoretsky ©   (2008-01-25 22:44) [13]

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

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


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

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



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.02.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.039 c
2-1201180928
Dennis I. Komarov
2008-01-24 16:22
2008.02.17
MultiSelect


2-1201105865
SamProf
2008-01-23 19:31
2008.02.17
Как правильно сделать работу с TAdvNavBar


2-1201197179
Anton
2008-01-24 20:52
2008.02.17
Считать данные из таблицы Access в упорядоченную структуру ?


2-1201155932
Василий К.
2008-01-24 09:25
2008.02.17
Extended в TThread и его деление...


2-1201267828
asdfa
2008-01-25 16:30
2008.02.17
Как пропустить выполнение цикла верхнего уровня?





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