Константа типа рекорд

[Kronos913]

Вводные данные, чисто для теста

type
  eee=record
    a:byte;
    b:string;
    c:word;
  end;

const
  ddd:eee=(a:1; b:'1233'; c:3);

Сам код:

Procedure fff(q:eee);
var
  w:LongWord;
begin
  asm
    mov eax, q.b
    mov w, eax
  end;
  Form1.Label2.Caption:=IntToStr(w);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  w:longWord;
begin
  fff(ddd);
  asm
    mov eax, ddd.b
    mov w, eax
  end;
  Label3.Caption:=IntToStr(w);
end;

Результат адресов выведенных в лейблы одинаковый

А теперь внимание! Добавляю слово const в параметры

Procedure fff(const q:eee);

И теперь уже получаются совершенно разные результаты адресов

То есть, без const идет ссылка на record а если с const - то тогда весь этот рекорд дублируется при вызове процедуры?

[Kronos913]

Собственно для чего я это тестирую:
Есть одна процедура, которая вызывается с огромной кучей параметров

И я хочу, чтобы все эти параметры были записаны один раз в константу рекорд и не дублировались в памяти при вызове процедуры

[Kronos913]

Общий вопрос:
Как передать константу record в процедуру так, чтобы она передалась по ссылке, а не копированием переменной?

[Kronos913]

type
  eee=record
    a:byte;
    b:string;
    c:word;
  end;
  ttt=^eee;

Procedure fff(q:ttt);

const
  rrr:eee = (a:1; b:'1233'; c:3);

И вызов

fff(@rrr);

То так это будет нормально работать? Все будет передаваться по ссылке?

[macomics]

Так в процедуру будет передаваться указатель на ту самую структуру, которую вы использовали как аргумент с собакой. По сути это и есть то, что вам нужно. При использовании const вам приходит указатель на копию, чтобы исходная структура не могла быть изменена.

[Kronos913]

Компилирую файл и не понимаю, что за ерунда:
Два варианта
1. Передавать в процедуру 20 параметров
2. Создать константу record с 20 параметрами и передавать ссылку на нее

Вопрос: почему первый вариант оказывается оптимальнее? Внезапно, так меньше размер исходника

[macomics]

А вам нужен меньший размер исходника или скорость работы. Дайте определение оптимальности?

[northener]

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

Вопрос: почему первый вариант оказывается оптимальнее? Внезапно, так меньше размер исходника

Тоже внезапно. А чем он меньше?

[Arigato]

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

При использовании const вам приходит указатель на копию, чтобы исходная структура не могла быть изменена.

Не совсем так. По указателю как раз изменить исходные данные можно. И доступ к данным контролируется на уровне компиляторы. В случае использования var также передается указатель, но данные можно менять. Смысл const в том, чтобы не копировать структуру при вызове подпрограммы, а передавать лишь указатель.

[macomics]

Тут копирование происходит потому, что создается второй объект с const - не изменяемый. И на него передается указатель.