Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.09;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-26498
0utsider
2003-05-23 11:39
2003.06.09
ShellTreeView


6-26644
Crash33
2003-04-07 17:45
2003.06.09
TWebBrowser


6-26639
vinnety
2003-04-08 21:35
2003.06.09
Сокеты в Дельфи


4-26842
Unknown user
2003-04-11 18:23
2003.06.09
Какие сообщения использовать чтобы выполнять перерисовку котрола


7-26798
Vlad Oshin
2003-04-02 14:02
2003.06.09
как узнать производителя сетевой?