Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Array

Автор: Ahmad 12.8.2007, 21:05

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

Sensor adress  |  Series
90                     |  Series1
91                     |  Series2
93                     |  Series3
и так далее, но максимум 8 сенсоров

Так вот вопрос:
Как заносить адрес сенсора в масив и потом считывать его, чтобы для каждой series считывался определенный адрес...
я вооооооообще ничего не понимаю в массивах и не имею представления как ими управлять...

Автор: ALeXandrK 12.8.2007, 22:08

Так взял бы и открыл бы любой ресурс на тему массивов.
Там все просто. Прочитай один раз, чтобы не спрашивать 10000....

http://google.com в помощь.

Автор: EvilsInterrupt 12.8.2007, 22:41

Ahmad, Настоятельно рекомендую разобраться с массивами. Про них довольно неплохо описано в лекцих к курсу по паскалю на intuit.ru. Потом почитайте Пачеко, у него про массивы очень здорово написано

Автор: Sunvas 12.8.2007, 23:08

Цитата(Ahmad @ 12.8.2007, 21:05

)

Как заносить адрес сенсора в масив и потом считывать его,

Эмм..

Код


var sensor:array[1..8] array of byte;
begin
//Записываем
sensor[1]:=23;
//Считываем
showmessage(inttostr(sensor[1]));
end;

Автор: Sanchezzz 12.8.2007, 23:42

вот еще один вариант в помощь всем кто еще массивы не освоил

Код


type
  Tsensor = record
    Asensor: array[1..8] of byte; можно 1
    Bsensor: string;
end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  sensor: array[1..1000] of Tsensor; //на Tsensor 1000
  public
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
sensor[1].Asensor[1]:=23;//записываем
sensor[1].Bsensor:=
'тут можешь не обходимую инфу держать дополнительно';
//читаем так
showmessage(inttostr(sensor[1].Asensor[1]));
end;

самый на и простейший привел Sunvas тоже хорош