Модератор: "Стартовое" сообщение (сместилось после переноса):
Предлагаю вынести обсуждение улучшений оператора with в данную ветку.
Ранее была создана задача, где предлагается ввести алиасы в оператор with.
Вот ссылка на неё:
https://quality.embarcadero.com/browse/RSP-27468
Если Вам нравится идея и Вы ещё не принимали участие в голосовании, то обязательно проголосуйте, Ваш голос имеет значение!
Благодаря алиасам можно исправить фундаментальные проблемы оператора with, из-за которых Марко Канту уже который год грозится выпилить его из Delphi.
Одно из предложений было оформлять алиасы с помощью ключевого слова "as". В этом случае код может выглядеть таким образом:
1.
2.
3.
4.
5.
6.
with MyArrayOfRecords[i] as r, GetMyObject() as o do
begin
r.IntVal := 1;
r.StrVal := 'Hello';
o.MyRec := r;
end;
_Vasilisk_
1.
2.
3.
4.
5.
6.
7.
procedure TMyThread.SetThreadStateInfo(const Value: string);
begin
StringProtectSection.Enter; // Входим в режим защиты
FThreadStateInfo := Value;
StringProtectSection.Leave; // Выходим из режима защиты
end;
try finally всегда. Даже если внутри одна строчка. Ну и использование одной глобальной критической секции на все - это огромный антипаттерн
try..finally ради одной безобидной строчки выглядит как-то нерационально. Какой в ней смысл? Кто такое правило ввёл?
Одну строчку без try..finally ещё нормально, а вот 2 строчки - уже лажа получается. Нужно предложить эмбаркадере ещё один вариант использования оператора with:
1.
2.
3.
4.
with section CS do
begin
end;
это тупо синтаксический сахар над try..finally.
либо может более универсальное:
1.
2.
3.
4.
with syncobject CS do
begin
end;
в таком случае пусть компилятор будет вспоминать, у кого Enter/Leave, Lock/Unlock, wait/release и т.д.
получится на 2 строчки короче, нежели с try..finally:
1.
2.
3.
4.
5.
6.
CS.Enter;
try
finally
CS.Leave;
end;
Как считаете, смысл есть?
