Копирование структур record

[Gausse]

Доброй ночи! Появилась проблема которую я не могу решить в силу малого опыта програмирование.

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

[Gausse]

Уже нашол решение проблемы. Необходимо поэлементное копирование. В противном случае присваевается указатель.

[Баламут]

Ну или так

 a, b: TMyRec;

  FillChar(b, SizeOf(TMyRec), 0);
  Move(a, b, SizeOf(TMyRec));

[Serge_Bliznykov]

ну или так:

var a, b: TMyRec;
...
  New(b);
  b^ :=  a^;

[Пепел Феникса]

разве структуры как и объекты всегда хранятся по указателю?
или ТС недоговаривает что использует указатели на структуры?

[Serge_Bliznykov]

или ТС недоговаривает что использует указатели на объекты?

99% что именно так он и делает...

[Аватар]

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

ну или так:

var a, b: TMyRec;
...
  New(b);
  b^ :=  a^;

не понял в чем смысл этого. Ниже простейший код нормально присваивает структуру в структуру по-элементно без всякого намека на указатели структур. Всегда пользуюсь этим

type Trrr = record
       i1: Integer;
       s1: String;
     end;
var xR1,xR2: Trrr;
...
  xR1.i1:=1;
  xR1.s1:='ff';
  xR2:=xR1;
  xR2.i1:=2;
  if xR1.i1=xR2.i1 then ShowMessage('???');

[Пепел Феникса]

Аватар, прочтите следующих два поста(мой и ответ)

[Gausse]

нет я не использую укзатели.

for i := 1 to (length(macro_tabl)-1) do
  if tmp.lex[1].lexem=macro_tabl[i].macro_id then break;
for j := 0 to length(macro_tabl[i].rows)-1 do
  begin
    setlength(temp,j+1);
    for k := 1 to (macro_tabl[i].rows[j].num-1) do
      begin
        setlength(temp[j].lex,k+1);
        temp[j].lex[k]:=macro_tabl[i].rows[j].lex[k];
      end;
      temp[j].num:=macro_tabl[i].rows[j].num;
  end;

writeln(OutputFile,macro_tabl[i].macro_id);
if tmp.num>2 then begin
                    for k := 0 to (length(temp)-1) do
                       for j := 1 to temp[k].num-1 do
                          if temp[k].lex[j].lexem=macro_tabl[i].parametr then temp[k].lex[j]:=tmp.lex[2];
                  end;

если вместо цикла замены, сделать обычное присвоение то при изминении temp изменяется и macro_tabl.

[Пепел Феникса]

покажите объявление типа структуры

у вас помоему содержится массив в структуре, а там все сложнее.