[morebeauty]

Я тут наткнулся на проблему и нашел как ее решить. Есть следующий код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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:

Код:

1 2 3 4 5 6 7 8 9

Procedure proc; C:TCalss; R:TRec; begin C := TClass.Create; R.a := 'string'; R.b := 5; C.Rec := R; end;

2:

Код:

1 2 3 4 5 6 7 8 9 10 11

Procedure proc; C:TCalss; begin C := TClass.Create; with C.Rec do begin a := 'string'; b := 5; end; {Видимо, конструкция with сама по себе работает так же, как 1-й вариант, то есть работает с record целиком (принимает и отправляет)} end;

Может, это вообще обходится другими способами, более правильными, но мне они неведомы.

[icWasya]

Вот эта запись

Код:

1	property Rec:TRec read FRec write FRec;

означает, что FRect нужно читать и записывать ЦЕЛИКОМ. Отдельные поля модифицировать не получится. Поэтому вариант 1) будет работать, а вариант 2) скорее всего нет. Хотя 2) и скомпилируется, но посмотрите, что после этого кода окажется в FRect.

[morebeauty]

Вася, я ж проверил. Все пашет. Даже к with комментарий написал с предположением, почему оно пашет. )

Я даже больше скажу. Угадай, что выведет такой код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

TRec = record a:string; b:integer; end;   ***   procedure Proc; var R:TRec; begin R.a := 'qwe'; R.b := 1; with R do begin a := 'asd'; b := 2; showmessage(R.a + IntToStr(R.b)); end; end;

А вот и не угадал! Выдаст 'qwe1'.

А вот этот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

TRec = record a:string; b:integer; end;   ***   procedure Proc; var R:TRec; begin R.a := 'qwe'; R.b := 1; with R do begin a := 'asd'; b := 2; showmessage(a + IntToStr(b)); end; end;

и вот этот код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

TRec = record a:string; b:integer; end;   ***   procedure Proc; var R:TRec; begin R.a := 'qwe'; R.b := 1; with R do begin a := 'asd'; b := 2; end; showmessage(R.a + IntToStr(R.b)); end;

выдадут то, что мы и ожидали, то есть 'asd2' )

[Aristarh Dark]

Вот тут тож советуют или with или переделать record в класс, что на мой вгляд более правильно.

[morebeauty]

Думаю, прежде чем оценивать более/менее правильно, следует разобраться как устроен блок with. А то может оба способа просто напросто идентичны? )

[Aristarh Dark]

Объект от записи отличаются принципиально, т.к. Delphi объектно-ориентированный язык - то правильнее оперировать объектами.
Далее в холиваре не участвую.