Модератор: Модераторы
Mikhail писал(а):Тогда это какое-то недозамыкание. :)
Mikhail писал(а):Да еще и разрешаются заведомо ошибочные действия. Плохая, негодная фича. :)
Дож писал(а):Как данная проблема (сохранение параметров «reference to» замыкания в момент создания) решена в Delphi?
Дож писал(а):Ссылку на метод тоже можно ошибочно использовать (например, когда объект уже уничтожен к моменту использования) — делает ли это ссылку на метод негодной фичей?
Да. Но здесь несколько иное, здесь такое поведение ожидаемо, в отличие от недозамыкания.
Дож писал(а):Да. Но здесь несколько иное, здесь такое поведение ожидаемо, в отличие от недозамыкания.
ОК — «is nested ссылки» неправильно назвать замыканиями.
Но на тему ожиданий — также неправильно ожидать, что компилятор авмтоматически «захватит» все нужные параметры в языке, в котором не все типы автоматически управляемы (к примеру, class, object). В C++ все аргументы по умолчанию сохраняются ссылками, но программист вправе явно указать какие из них должны быть скопированы.
Мне интересно ещё что вот из этого выйдет
http://lists.freepascal.org/fpc-devel/2 ... 36433.html
Mikhail писал(а):Думаю, что наша дискуссия не имеет смысла, потому что даже после 1000 страниц каждый останется при своем мнении. Для Вас язык просто набор слабосвязанных "фич" для меня это некоторая стройная логическая система. Странно, что Вы выбрали Паскаль, Вам больше бы подошли С++ или С#.
Дож писал(а):Мне интересно ещё что вот из этого выйдет
http://lists.freepascal.org/fpc-devel/2 ... 36433.html
Mikhail писал(а):Для Вас язык просто набор слабосвязанных "фич" для меня это некоторая стройная логическая система.
Любой язык имеющий богатую жизненную историю не будет выглядеть "стройной логической структурой", просто медицинский факт.
Дож писал(а):Java? Haskell?
Лекс Айрин писал(а):Ява уж точно.
Версия языка Haskell 2010 — была объявлена в конце 2009 г[3], но последней «значительной» версией (стандартом) остаётся Haskell 98.
Лекс Айрин писал(а):Если ты назвал Яву новым фортраном, то ты глубоко заблуждаешься
Лекс Айрин писал(а):Она, кстати, давно скомпрометирована и, фактически, сброшена со счетов
Лекс Айрин писал(а):Этим все, насчет перспектив языка, сказано
Код: Выделить всё
unit correctstring;
{$mode delphiunicode}{$H+}
interface
uses
Classes, SysUtils,LazUTF8;
type TUtf8String=record
Holder:UTF8String;
function GetStr(i:integer):UTF8String;
procedure SetStr(i:integer;Ch:UTF8String);
property Str[i:integer]:UTF8String read GetStr write SetStr;default;
end;
implementation
function TUtf8String.GetStr(i:integer):UTF8String;
begin
Result:=UTF8Copy(Holder,i,1);
end;
procedure TUtf8String.SetStr(i:integer;Ch:UTF8String);
var s1,s2:UTF8String;
L:Integer;
begin
if i>0 then
s1:=UTF8Copy(Holder,1,i-1)
else s1:='';
L:=UTF8Length(Holder);
if i<L then
s2:=UTF8Copy(Holder,i+1,L-i);
Holder:=s1+Ch+S2;
end;
end.
Код: Выделить всё
unit UTF8Str;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,correctstring,LazUTF8;
type
TUtf8String=correctstring.TUtf8String;
operator :=(TS:TUtf8String):UTF8String;
operator :=(S:Utf8String):TUTF8String;
function Length(TS:TUtf8String):Integer;
implementation
operator:=(TS: TUtf8String): UTF8String;
begin
Result:=TS.Holder;
end;
operator:=(S: Utf8String): TUTF8String;
begin
Result.Holder:=S;
end;
function Length(TS: TUtf8String): Integer;
begin
Result:=UTF8Length(TS.Holder);
end;
end.
Код: Выделить всё
procedure TForm2.Button2Click(Sender: TObject);
var TS1:TUtf8String;
begin
TS1:=InputBox('Введите строку','Введите','cтрока');
Label1.Caption:=(TS1[2]);
end;
Дож писал(а):??? Это особенно внезапно слышать после того, как я признал, что «is nested»-ссылки — это не замыканияЯ не очень понимаю о каких мнениях идёт речь. В каком посту сформулировано Ваше мнение?
Нестед ссылки тоже, кстати, не нужны.Дож писал(а):Я не очень понимаю о каких мнениях идёт речь. В каком посту сформулировано Ваше мнение?
kazalex писал(а):Любой язык имеющий богатую жизненную историю не будет выглядеть "стройной логической структурой", просто медицинский факт.