1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем Siammi, 31 янв 2011.

  1. Siammi

    Siammi Гость

    Репутация:
    0
    Здравствуйте!

    У меня есть файл. Вот на него ссылка: 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 Гость

    Репутация:
    0
    Код:
    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 Гость

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

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