Чтение данных в Delphi

  • Автор темы Siammi
  • Дата начала
S

Siammi

Гость
#1
Здравствуйте!

У меня есть файл. Вот на него ссылка: http://dl.dropbox.com/u/280706/bul_hip_art.spo

Информация к файлу: Данные представлены последовательно тремя отсчетами в формате long по трем каналам
(t - указатель чтения потока данных из файла):

red = bufstream[t]; //канал красного
fon = bufstream[t+1]; //канал фона
ired = bufstream[t+2]; //канал инфракрасного

Помогите, пожалуйста, прочитать данные из файла с помощью Delphi и создать по одному массиву чисел на каждый канал.

Заранее спасибо.
 
N

niello

Гость
#2
Код:
const
SRC: Array [0..5]of Longint =
(10,15,10,10,10,10);
var
F: file of Longint;
D: Array of Longint;
len: Integer;
begin
//Write
AssignFile(F,'C:\fileXXXXXXX.dat');
Rewrite(F);
BlockWrite(F,SRC,Length(SRC)*SIZEOF(Longint));
CloseFile(F);


//Read
AssignFile(F,'C:\fileXXXXXXX.dat');
Reset(F);
len:=FileSize(f);

SetLength(D,len div SizeOf(LongInt));
BlockRead(F,D[0],len);

CloseFile(F);
Ну а из одного массива 3 получить вообще проблемой не должно быть к примеру через цикл фор данные в три массива записывать, а вобще было бы лучше если бы сделать запись(структуру) в которую входят все эти поля и просто записать.
 
S

StudyMen

Гость
#3
Профессиональная и оперативная помощь студентам в решении задач по программированию.
Реализатор: ведущий разработчик. Более 5000 выполненных работ по программированию для студентов всех ВУЗов России более чем на 25 различных языках программирования.
Стоимость: от 30 рублей за задачу.
Оплата: оплата производится после выполнения задачи (то есть без предоплаты).
Способ оплаты: электронный платежные системы webMoney и Яндекс-деньги.
Контакты для связи:
Email: administrator@studymen.ru
Skype: studymen
ICQ: 639151387