C++ Builder

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

OmutMoren

17 / 17 / 0

Регистрация: 04.06.2012

Сообщений: 88

Смысл данной процедуры

21.07.2012, 19:04. Показов 530. Ответов 0

Метки нет (Все метки)

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

Уважаемые форумчане, вновь понадобился ваш совет!
Расскажите пожалуйста смысл действий, производимых в данной процедуры, написанной в Delphi:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Extract_ee_s(var CL : TCLBR; ee : Tee);
type
    Tbuf = array[0..ee_long-1] of byte;
var
    i:integer;
    buf:Tbuf;
    p:pointer;
begin
for i := 0 to ee_long - 1 do
  buf[i]:=ee.arr[i];
p := @buf;
Cl:=TCLBR(p^);
end;

где TCLBR

Delphi
1
2
3
4
5
6
7
8
TCLBR = record
    Az_bottom, Az_top: word;
    El_bottom, El_top: word;
    K_az, K_el: single;
    Offset_az, Offset_el: word;
    Baud: word;
    TRX_adr: byte;
   end;

а Tee

Delphi
1
2
3
4
   Tee = record
       Arr:  array[0..511] of byte;
       size: word;
   end;

а ee_long это const ee_long = 23;
На Delphi-форуме мне подсказали сделать вот так:

C++
1
2
3
4
5
void Extract_ee_s(TCLBR * CL, Tee * ee)
{
    (*ee).size = ee_long;
    memcpy(CL,&(*ee).Arr,ee_long);
}

Но мне всё равно не понятно что здесь делается.
Данная функция встречается вот в таком контексте:

C++
1
2
3
4
5
if (DoEEPROMRead1(i,EE_setting->Arr[i]) != 0) {
                    ShowMessage("Device not present!");
                    return;
                }
                Extract_ee_s(CLBR,EE_setting);

Добавлено через 1 час 9 минут
Правильно ли будет сделать вот так:
Задаём структуры данных так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
struct TCLBR {
    unsigned short Az_bottom, Az_top;     
    unsigned short El_bottom, El_top;
    float K_az, K_el;
    unsigned short Offset_az, Offset_el;
    unsigned short Baud;
    unsigned char  TRX_adr;
}CL;
 
struct Tee {
    unsigned char *Arr[512];
    unsigned short size;
}ee;

А саму функцию сделать так:

C++
1
2
3
4
5
void extract(TCLBR& CL,Tee& ee)
{
    ee.size = ee_long;
        memcpy(&CL,&ee.arr,ee_long);
}

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

21.07.2012, 19:04

Ответы с готовыми решениями:

В чем смысл данной программы
#include <stdio.h> #include <stdlib.h> #include <conio.h> #include <memory> typedef struct str1 { float val; ...

Есть ли смысл апгрейдить пк с данной материнской платой?
Здравствуйте. Скажите пожалуйста - если я планирую постепенно грейдить комп - есть ли смысл сперва просто докупить хорошую видеокарту и...

Есть ли смысл создавать процедуры? IBE и Delpi 7
Доброго времени суток. Я выполняю курсовую по бд, созданной в ibexperte и затем переношу в delphi При просмотре разных видео по...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

21.07.2012, 19:04

Помогаю со студенческими работами здесь

Хранимые процедуры в MSSQL, есть ли смысл их использовать?
Господа выскажите свое мнение о хранимых процедурах в MSSQL .. есть смысл их пользовать ?? Если есть то как это сделать из ASP ?

Процедуры. Выполнить преобразование данной программы
Разработка программ с использованием процедур. ВЫПОЛНИТЬ ПРЕОБРАЗОВАНИЕ ДАННОЙ ПРОГРАММЫ Var k, i, j, n: integer; a: array...

Процедуры. Вычислить произведение элементов для данной последовательности
Вычислить произведение элементов с 1-ого по 20-й для следующей последовательности: ai= 1, если i=0, i=1, ai= ai-2+(ai-1)/(i-1), если...

Выберите строку, в которой нет ошибки применения данной процедуры
1 Даны описания: Var a,b:integer; c,d:real; procedure obmen(var a:integer; var b:integer); Var s:integer; Begin s:=a; a:=b;...

Процедура вывода символа outstr proc near? можно комментарии к каждой строке данной процедуры?
// Задать перемещение символа по экрану с образованием треугольника. model small delay macro time local ext,iter ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

Наверх