6 lines
193 B
ObjectPascal
6 lines
193 B
ObjectPascal
|
|
uses ABCDatabases;
|
|
begin
|
|
var pupils := ЗаполнитьМассивУчеников;
|
|
var s := pupils[0].Фамилия{@property Ученик.Фамилия: string; readonly;@};
|
|
end. |