Нужен совет!

@Rafisuli · Регистрация: 28.10.2010

Студворк — интернет-сервис помощи студентам

Нужен совет!
Задача :
на форме находятся Edit1 (по Timer1(каждую секунду) отображает текущее время) и ListBox1(по тому же Timer1 заполняется данными в количестве примерно 200 строк). Нужно:
- при наступлении новой минуты (после 59-й секунды текущей минуты) посчитать среднее значение каждой строки (сумма i-строки/60сек, получится среднее значение за минуту) ListBox-а и сохранить в 1!???!, для того чтобы в дальнейшем...
- при наступлении нового часа (после 59-й секунды 59-й минуты текущего часа) посчитать среднее значение ранее посчитаных средних минутных значений (сумма средних минутных/60мин, получится среднее значение за час) сохранить в другой(ую) 2!???!, для того чтобы в дальнейшем...
- полученное среднее значение за час складывать в MSSQL, а массив "высвобождаться" для следующего часа(но это др. история).
Вопрос:
Скажите что лучше (правильно) использовать в роли !???!?
на мой взгляд это либо массивы либо ClientDataSet..., а мож и то и др.? Слышал что в массиве эта задача будет исполняться быстрее.
Скажите кто и как видит решение этой задачи??

Добавлено через 14 минут
Не дожидаясь (но ожидая

) совета начал кувыркаться с массивами....
, немного почитав мануала и форумов получился ниже описанный код.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFMain.massClick(Sender: TObject);
var
sec:array[0..59,1..500] of string; //Как вместо1..500 поставить 1..LBResult.Count?
j,i:integer;
begin
j:=StrToInt(formatdatetime('ss',now)); 
for i:=0 to LBResult.Count-1 do
  begin
sec[0,j]:=RTime.Text;
sec[2,j]:=LBResult.Items[i];
  end;
Edit1.Text:=sec[2,j]; // как в Edit1 отобразить значение к примеру LBResult.Items[209]?
end;

Вопросы в комментах кода.
Заранее благодарен!

@Darthman · 02.11.2010, 18:50

Сообщение от Rafisuli

//Как вместо1..500 поставить 1..LBResult.Count?

никак. Польльзовать динамический массив только если, или список.

Скажите что лучше (правильно) использовать в роли !???!?

Динамический массив или список

Добавлено через 2 минуты

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFMain.massClick(Sender: TObject);
var
sec:array [0..59] of array of string; 
j,i:integer;
begin
j:=StrToInt(formatdatetime('ss',now)); 
Setlength(sec[2], LBResult.Count);  //ставим 0..LBResult.Count?
for i:=0 to LBResult.Count-1 do
  begin
sec[0,j]:=RTime.Text;
sec[2,j]:=LBResult.Items[i];
  end;
Edit1.Text:=sec[2][209]; // как в Edit1 отобразить значение к примеру LBResult.Items[209]?
end;

@Rafisuli · 02.11.2010, 20:13

Спасибо большое!,

Динамический массив или список

А что подразумевается под словом список?
И как считаешь, если мне нужны средние за час, то лучше формировать средние минуты, а уж потом из них средние часовые? иль сразу из секунд средние часовые? Как грамотней чтоль, или бысрее?
Как тебе эта строка в коде?

j:=StrToInt(formatdatetime('ss',now));

не считаешь что лучше стандартный инкремент исп-ть ++1?
Ещё раз спасиба!

@Darthman · 03.11.2010, 16:10

Не по теме:

Для «спасибо» тут аж кнопочка есть на форуме ;)

А что подразумевается под словом список?

TList

И как считаешь...

Считаю надо делать как надо. Алгоритм какой так и делай. Это уже не моего ума дело )

Как тебе эта строка в коде?

ужасна

StrToInt вообще без нужды пользовать не надо.

Delphi
1
DecodeTime(Now, hh, mm, ss); // в ss будут секунды

@Rafisuli · 03.11.2010, 17:34

Переспрошу так:
Задача: Получить среднее значение за час.
Варианты ответов:
1. формировать средние минуты из секундных значений, а уж потом из средних минутных средние часовые;
2. формировать средние часовые из секундных значений (без формирования средних минутных);
3. абсолютно без разницы во всех отношениях.
4. - свой вариант ответа.
Сам предпологаю, один из вариантов (1 и 2) дожен быть более оптимален для решения поставленной задачи, тока вопрос: какой?
Оч интересно ваше мнение!

@Darthman · 03.11.2010, 17:37

Среднее значение за час = сумма значений за час делённая на количество значений. Разве нет? Каждый раз суммируем значение (каждую секунду или сколько раз там получается значение?), как час прошел - поделили на кол-во значений. Нужно для этого всего 2 переменных.

@Rafisuli · 05.11.2010, 16:05

В чём проблема, как считаете?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFMain.massClick(Sender: TObject);
var
sec:array [0..59] of array of string; 
j,i:integer;
Hour,Min,secd,Msec: Word;
begin
DecodeTime(now,Hour,Min,Secd,Msec);
j:=Secd;//StrToInt(formatdatetime('ss',now));
for i:=0 to LBResult.Count-1 do
  begin
sec[1,j]:=RTime.Text;
sec[2,j]:=LBResult.Items[i];
  end;
end;

Код ругается, ругань на jpeg., но если строку 3 заменить строкой sec:array [0..59,0..200]of string; то всё нормуль.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 09.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 31.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .

@Rafisuli 1 / 1 / 1 Регистрация: 28.10.2010 Сообщений: 62
	03.11.2010, 17:34
	Переспрошу так: Задача: Получить среднее значение за час. Варианты ответов: 1. формировать средние минуты из секундных значений, а уж потом из средних минутных средние часовые; 2. формировать средние часовые из секундных значений (без формирования средних минутных); 3. абсолютно без разницы во всех отношениях. 4. - свой вариант ответа. Сам предпологаю, один из вариантов (1 и 2) дожен быть более оптимален для решения поставленной задачи, тока вопрос: какой? Оч интересно ваше мнение! 0

@Darthman 15 / 15 / 3 Регистрация: 19.10.2010 Сообщений: 82
	03.11.2010, 17:37
	Среднее значение за час = сумма значений за час делённая на количество значений. Разве нет? Каждый раз суммируем значение (каждую секунду или сколько раз там получается значение?), как час прошел - поделили на кол-во значений. Нужно для этого всего 2 переменных. 1