Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2013-05-20 23:38:42 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:16
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 3836
Рейтинг: 620
#2: 2013-05-21 12:29:10 ЛС | профиль | цитата
Объявление массивов:

#pas
type
TRealArray = array [0..20] of real; // Объявление типов. Должно быть в каждом юните.
TIntArray = array[0..20] of integer;

var // Объявление переменных - там где нужно.
FreqKoeff, FreqKoeff1 : TRealArray;
VolKoeff ,VolKoeff1: TRealArray;
Us,Us1: TRealArray;
rdf,rdf1 : TIntArray;
rd1,rd2 : TIntArray;
Выдача на нижние точки:
dtInteger(_Data, Integer(@FreqKoeff));
// dtInteger(_Data, Integer(@VolKoeff));
// и т.д.

Чтение в другом юните:

#pas
type
TRealArray = array [0..20] of real; // Объявление типов. Должно быть в каждом юните.
TIntArray = array[0..20] of integer;

.......

procedure THiAsmClass.doWork(var _Data:TData; index:word);
var A: TIntArray;
i: Integer;
begin

i := ReadInteger(_Data, Val1, 0); // Val1 - верхняя точка. Нужно соблюдать, массив какого типа на неё подаётся.
if i <> 0 then
begin
A := TIntArray(Pointer(i)^); // В данном случае предполагается, что на верхней точке массив типа TIntArray
// Если там что-то другое - будет Runtime error.
for i := Low(A) to High(A) do
_debug(A[i]);
end;

end;



карма: 17

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2013-05-21 18:26:44 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:16
карма: 0

0
Ответов: 3836
Рейтинг: 620
#4: 2013-05-21 18:29:43 ЛС | профиль | цитата

#pas
var
FreqKoeff: TRealArray = (325.1, 325.1, 325.1*2.5, 1000.15, .........);
FreqKoeff1 : TRealArray = (...........);
карма: 17

0
Гость
Ответов: 17029
Рейтинг: 0
#5: 2013-05-21 18:57:04 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:16
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#6: 2013-05-21 18:57:57 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:17
карма: 0

0
Ответов: 3836
Рейтинг: 620
#7: 2013-05-21 19:00:15 ЛС | профиль | цитата

#pas
type

THiAsmClass = class(TDebug)

private

public
procedure doWork(var _Data:TData; index:word) ;
end; // <<<< =======

TRealArray = array [0..20] of real; // <<<< ====
TIntArray = array[0..20] of integer;

карма: 17

0
Гость
Ответов: 17029
Рейтинг: 0
#8: 2013-05-21 19:00:33 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:17
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2013-05-21 19:57:08 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:18
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2013-05-22 18:16:27 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:17
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2013-05-22 18:19:23 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:18
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#12: 2013-05-22 18:22:57 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:18
карма: 0

0
Ответов: 3836
Рейтинг: 620
#13: 2013-05-22 18:25:26 ЛС | профиль | цитата
46.119.160.149 писал(а):
Интегрировать компонент IC DELPHI, аналогичный code_31057.txt

Зачем?
карма: 17

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2013-05-22 19:10:15 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:00:19
карма: 0

0
Ответов: 97
Рейтинг: 5
#15: 2018-11-25 11:50:44 ЛС | профиль | цитата
Здравствуй netspirit
Делаю доступ по твоему методу снизу вверх, а что делает функция _debug()
Это для отладки так понимаю
карма: 1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)