|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
delphi left side cannot be assigned to при обработке record
Я тут наткнулся на проблему и нашел как ее решить. Есть следующий код:
Код:
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; Код:
Procedure proc; C:TCalss; begin C := TClass.Create; with C.Rec do begin a := 'string'; b := 5; end; {Видимо, конструкция with сама по себе работает так же, как 1-й вариант, то есть работает с record целиком (принимает и отправляет)} end; Может, это вообще обходится другими способами, более правильными, но мне они неведомы. |