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

Тема в разделе "Pascal and Delphi", создана пользователем Siammi, 31 янв 2011.

  1. Siammi

    Siammi Гость

    Здравствуйте!

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

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

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

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

    Заранее спасибо.
     
  2. niello

    niello Гость

    Код (Delphi):
    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 получить вообще проблемой не должно быть к примеру через цикл фор данные в три массива записывать, а вобще было бы лучше если бы сделать запись(структуру) в которую входят все эти поля и просто записать.
     
  3. StudyMen

    StudyMen Гость

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

Поделиться этой страницей