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

Вниз

файл массива   Найти похожие ветки 

 
alex78   (2003-05-28 02:46) [0]

Есть текстовой файл с вещественными числами. В каждой строчке по 10 чисел.
Можно ли описать этот файл как
type
dat = record
valu : array [1..10] of real;
end;
var
f:file of dat;
? И как в таком случае обращаться к данным в файле (считывать)?
Или есть возможность сделать это проще, но не рассматривая файл как текстовой (без использования strtofloat)


 
Нуу   (2003-05-28 04:14) [1]

Текстовый файл, в принципе нельзя обработать как "file of dat".
Но можно читать сей файл функцией Writeln(F,real1,real2..real10);
Если, конечно, сам файл записан грамотно.


 
DarkGreen   (2003-05-28 06:00) [2]


type
dat = record
valu : array [1..10] of real;
end;
var
F: File of Dat;
D: Dat;
begin
AssignFile(F, "C:\1.dat");
Reset(F);
while not Eof(F) do
begin
Read(F, D);
DoSomething(D);
end;
CloseFile(F);
end;

Вот только если ты захочешь читать из файла по одному числу real48 (если тебе нужны real, а не Double), то Dat надо объявить как:

type
dat = packed record
valu : array [1..10] of real;
end;


 
Думкин   (2003-05-28 06:16) [3]

Можно или нельзя?
Создай такой файл с 2 записями и сравни получившееся со своим файлом. Вот и ответ тебе будет.


 
Palladin   (2003-05-28 08:36) [4]


> DarkGreen © (28.05.03 06:00)

чушь порите батенька


> alex78 © (28.05.03 02:46)

основной вопрос числа в каком виде?
я понимаю тебе предельно это ясно ведь файл даже может быть перед тобой, но не сблаговолит ли великий спрашивающий запостить сюда пару строчек из этого файла


 
Anatoly Podgoretsky   (2003-05-28 09:53) [5]

Одназначно нельзя, в текстовом файле совсем другое представление, да и числа имеют различную длину от одного символа и выше, более того они даже не числа, с точки зрения системы, а наборы букв.


 
Vlad Oshin   (2003-05-28 11:24) [6]

Кусочек файла можно?



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

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

Наверх





Память: 0.45 MB
Время: 0.015 c
7-26794
Deedlit
2003-04-04 13:05
2003.06.09
Определение состояния функциональных клавиш


1-26451
Rise
2003-05-29 11:48
2003.06.09
_SystemTime


6-26634
nomad
2003-04-08 10:55
2003.06.09
savedialog


1-26576
Ольга
2003-05-27 13:54
2003.06.09
try ... except


1-26494
Rastafarra
2003-05-28 21:27
2003.06.09
поиск в RichEdit





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