Копирование из RECORD в RECORD

@liggth · Регистрация: 14.06.2016

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

Всем привет. Пытаюсь разобраться. Есть переменная типа записи, в нее нужно скопировать ячейку массива, а каждая ячейка массива является записью( и нужно действие наоборот). Но выдает ошибку, что несоответствие типов.

Delphi

...
Techno = Record
Name : String[16]; 
Power: Real;
km_m : array[1..12] of Real; 
km_y : Real;
E :Real;
Cap_S : Real;
Tek_Zat: Real;
G_Import:Real;
Srok: Integer;
Price: Real;
Param : array[1..10] of Real;
Link : Integer;
Enabl: Boolean;
end;
...
...
TechnoArr = array [1..16] of Techno; 
TT  : TechnoArr; 
...
...
procedure TTecForm.BitBtn7Click(Sender: TObject);
Var VT: Techno; 
begin 
VT:=TT[T_N];
...
TT[T_N]:=VT;

@krapotkin · 14.06.2016, 09:33

у меня ваш код спокойно откомпилировался и запустился
заменил только String[16] на string т.к. в delphi 10.1 berlin этого уже нет

думаю, ваша ошибка относится не к этому куску

Добавлено через 15 секунд

Delphi

Techno = Record
Name : String;
Power: Real;
km_m : array[1..12] of Real;
km_y : Real;
E :Real;
Cap_S : Real;
Tek_Zat: Real;
G_Import:Real;
Srok: Integer;
Price: Real;
Param : array[1..10] of Real;
Link : Integer;
Enabl: Boolean;
end;
TechnoArr = array [1..16] of Techno;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
Var VT: Techno;
  TT  : TechnoArr;
begin
  VT:=TT[1];
  TT[1]:=VT;
end;

Опции темы