Я тут наткнулся на проблему и нашел как ее решить. Есть следующий код:
Код:
type
TRec = record
a:string;
b:integer;
end;
TClass = class
private
FRec:TRec;
public
property Rec:TRec read FRec write FRec; {конструкция read GetRec write SetRec тоже не решает проблему}
end;
***
Procedure proc;
C:TCalss;
begin
C := TClass.Create;
{На две следующие строчки компилятор ругается вот таким текстом left side cannot be assigned to}
C.Rec.a := 'string';
C.Rec.b := 5;
end;
Решается 2-мя путями.
1:
Код:
Procedure proc;
C:TCalss;
R:TRec;
begin
C := TClass.Create;
R.a := 'string';
R.b := 5;
C.Rec := R;
end;
2:
Код:
Procedure proc;
C:TCalss;
begin
C := TClass.Create;
with C.Rec do
begin
a := 'string';
b := 5;
end;
{Видимо, конструкция with сама по себе работает так же, как 1-й вариант, то есть работает с record целиком (принимает и отправляет)}
end;
Может, это вообще обходится другими способами, более правильными, но мне они неведомы.
