[morebeauty]

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

Код:

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;

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

[icWasya]

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

Код:

property Rec:TRec read FRec write FRec;

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

[morebeauty]

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

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

Код:

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'.

А вот этот код

Код:

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;

и вот этот код

Код:

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 объектно-ориентированный язык - то правильнее оперировать объектами.
Далее в холиваре не участвую.