Модератор: Модераторы
Код: Выделить всё
a:array [0..4] of char = ('a','b','c','d');Код: Выделить всё
a:array of char = ['a','b','c','d']; Код: Выделить всё
procedure foo;
begin
var a:integer;
end;AlexSky-coder писал(а):...а вот эта конструкция для массива работает только в делфи:Код: Выделить всё
a:array of char = ['a','b','c','d'];
AlexSky-coder писал(а):...а также в делфи есть возможно создавать переменные в теле программы:Код: Выделить всё
procedure foo;
begin
var a:integer;
end;
будет ли когда такая возможность в free pascal?
AlexSky-coder писал(а):а вот эта конструкция для массива работает только в делфи:
Код: Выделить всё
a:array of char = ['a','b','c','d'];
AlexSky-coder писал(а):а также в делфи есть возможно создавать переменные в теле программы:
Sharfik писал(а):С тех пор как я переполз на Lazarus с Delphi я о программировании узнал больше, стал лучше его понимать чем до этого.
Sharfik писал(а):А зачем так делать, чтобы больше проблем было?
runewalsh писал(а):Это меняет поведение для управляемых переменных, таких как интерфейсы и record'ы с class operator Finalize: переменные, объявленные внутри begin-end, финализировались бы в конце блока, а переменные, объявленные в секции var, финализируются в конце всей процедуры. Например, удобно привязать к финализации закрытие файла или освобождение любого другого ресурса, связанного с сущностью, чтобы не заставлять пользователя каждый раз писать бойлерплейт с Open-try-finally Close-end. Так что без этой фичи нельзя сделать аналоги scoped_lock и подобных вещей, в которых важно, чтобы логика финализации выполнилась в середине процедуры, а не в конце.
Sharfik писал(а):то что создается через Create в любом случае должно освобождаться руками
Sharfik писал(а):Ни слова не понял, кроме того что это очень узкая фича, которая создаст кучу проблем конечному пользователю, поскольку программисты в большинствен случаев не будут уметь пользоваться и правильно работать с памятью.
Код: Выделить всё
EnterCriticalSection(cs);
try
// work
finally
LeaveCriticalSection(cs);
end;Код: Выделить всё
begin
var guard := TCriticalSectionScopedGuard.Create(cs);
// work
end;runewalsh писал(а):Вот именно, явное управление ресурсами (ручное освобождение объектов) гораздо сложнее и провоцирует гораздо больше ошибок. Освободить локально выделенный ресурс не из-под finally — уже ошибка.
MylnikovDm писал(а):Лично меня использование try-finnaly-end не напрягает.
Код: Выделить всё
procedure CopySrcToTwoDsts;
var
src, dst0, dst1: TStream;
srcStart: int64;
begin
src := OpenSrcStream;
try
srcStart := src.Position;
dst0 := OpenDst0Stream;
try
dst1 := OpenDst1Stream;
try
dst0.CopyFrom(src, 0);
src.Position := srcStart;
dst1.CopyFrom(src, 0);
finally
FreeAndNil(dst1);
end;
finally
FreeAndNil(dst0);
end;
finally
FreeAndNil(src);
end;
end;Код: Выделить всё
procedure CopySrcToTwoDsts;
var
src, dst0, dst1: TStream;
srcStart: int64;
begin
src := nil;
dst0 := nil;
dst1 := nil;
try
src := OpenSrcStream;
srcStart := src.Position;
dst0 := OpenDst0Stream;
dst1 := OpenDst1Stream;
dst0.CopyFrom(src, 0);
src.Position := srcStart;
dst1.CopyFrom(src, 0);
finally
FreeAndNil(dst1);
FreeAndNil(dst0);
FreeAndNil(src);
end;
end;Код: Выделить всё
// type IAutoClosingStream = ...
procedure CopySrcToTwoDsts;
var
src, dst0, dst1: IAutoClosingStream;
srcStart: int64;
begin
src := OpenSrcStream;
srcStart := src.Position;
dst0 := OpenDst0Stream;
dst1 := OpenDst1Stream;
dst0.CopyFrom(src);
src.Position := srcStart;
dst1.CopyFrom(src);
end;Код: Выделить всё
EnterCriticalSection(cs);
newHead^.next := head;
head := newHead;
inc(nItems);
LeaveCriticalSection(cs);Код: Выделить всё
EnterCriticalSection(cs);
if nItems >= 1000 then raise Exception.Create('Слишком много элементов в списке.');
newHead^.next := head;
head := newHead;
inc(nItems);
LeaveCriticalSection(cs);
runewalsh писал(а):Со сборкой мусора неправильно сравнивать
runewalsh писал(а):Ой, окружающий код внезапно стал неправильным, вот незадача.
haword писал(а):вы объявили переменную но не зафиналили ее
MylnikovDm писал(а):Возможно, что я излишне старомоден, но я предпочитаю чётко видеть в коде, где и когда будут освобождаться те или иные ресурсы.
MylnikovDm писал(а):А разве у нас есть такие седы разработки, где любой специально написанный идиотизм всегда будет правильным?