Ш
Плохо ещё то, что переменную можно произвольно переназначать прямо по ходу. Будет каша со временем, к бабке не ходи
😭
Size: a a a
2020 October 15
ED
FPC держится
Именно это все ещё вселяет надежду и греет душу 😊
N
TUniPoolRecQuery = recordюзать так:
strict private
FDBQuery: TUniQuery;
public
class operator Initialize(out ADest: TUniPoolRecQuery);
class operator Finalize(var ADest: TUniPoolRecQuery);
property DBQuery: TUniQuery read FDBQuery write FDBQuery;
end;
{ TUniPoolRecQuery }
class operator TUniPoolRecQuery.Finalize(var ADest: TUniPoolRecQuery);
begin
DBPool.FreeQuery(ADest.FDBQuery)
end;
class operator TUniPoolRecQuery.Initialize(out ADest: TUniPoolRecQuery);
begin
ADest.FDBQuery := DBPool.GetQuery;
end;
var PoolRec: TUniPoolRecQuery;
PoolRec.DBQuery...
try/finally не нужен. при заходе в зону видимости запись инициализируется, при выходе - финализируется, проверил. один раз и то и тоКривой код
N
Содержимое методов местами перепутал
DB
Содержимое методов местами перепутал
о блин ) 😭 fixed
2020 October 16
KB
пасибо
DB
а как тебе такое, Илон Маск? 😂
var StringListRec: TStringListRec; //запись для поддержки автоматического создания и разрушения стринглиста
var StringList: TStringList := StringListRec.SL; //вытаскиваем стринглист в переменную, что бы не писать with и вообще не
менять код (в случае рефакторинга)
StringList.Add('test'); //всё работаетSB
а как тебе такое, Илон Маск? 😂
var StringListRec: TStringListRec; //запись для поддержки автоматического создания и разрушения стринглиста
var StringList: TStringList := StringListRec.SL; //вытаскиваем стринглист в переменную, что бы не писать with и вообще не
менять код (в случае рефакторинга)
StringList.Add('test'); //всё работаетОсталось только добавить возможность обьявлять экземпляры классов как переменные:
var sl: object of TStringList
GB
а как тебе такое, Илон Маск? 😂
var StringListRec: TStringListRec; //запись для поддержки автоматического создания и разрушения стринглиста
var StringList: TStringList := StringListRec.SL; //вытаскиваем стринглист в переменную, что бы не писать with и вообще не
менять код (в случае рефакторинга)
StringList.Add('test'); //всё работаетересь! где удаление объектов, что за джава??
DB
ересь! где удаление объектов, что за джава??
выше читай )
GB
выше читай )
да ладно, я таким балуюсь уже лет 10
GB
на интерфейсах еще. да и тут обсуждали кстати
DB
в интерфейсах сильно не хватает свойств. в отличие от записей. неудобно. гора кода, геттеров и сеттеров
DB
в записях пока не хватает наследования. так то, со временем от классов можно было бы вообще отказаться )
АВ
а как тебе такое, Илон Маск? 😂
var StringListRec: TStringListRec; //запись для поддержки автоматического создания и разрушения стринглиста
var StringList: TStringList := StringListRec.SL; //вытаскиваем стринглист в переменную, что бы не писать with и вообще не
менять код (в случае рефакторинга)
StringList.Add('test'); //всё работаетКакой ад.
MS
VA
в интерфейсах сильно не хватает свойств. в отличие от записей. неудобно. гора кода, геттеров и сеттеров
свойства есть в интерфейсах, куда же они подевались