Перлы VCL

[Квэнди]

unit: SysUtils

var
  TrueBoolStrs: array of String;
  FalseBoolStrs: array of String;

const
  DefaultTrueBoolStr = 'True';   // DO NOT LOCALIZE
  DefaultFalseBoolStr = 'False'; // DO NOT LOCALIZE
.............
procedure VerifyBoolStrArray;
begin
  if Length(TrueBoolStrs) = 0 then
  begin
    SetLength(TrueBoolStrs, 1);
    TrueBoolStrs[0] := DefaultTrueBoolStr;
  end;
  if Length(FalseBoolStrs) = 0 then
  begin
    SetLength(FalseBoolStrs, 1);
    FalseBoolStrs[0] := DefaultFalseBoolStr;
  end;
end;
function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
const
  cSimpleBoolStrs: array [boolean] of String = ('0', '-1');
begin
  if UseBoolStrs then
  begin
    VerifyBoolStrArray;
    if B then
      Result := TrueBoolStrs[0]
    else
      Result := FalseBoolStrs[0];
  end
  else
    Result := cSimpleBoolStrs[B];
end;

просто нет слов...

[Квэнди]

интересно что мешало написать ну хотя бы так...

function booltostr(value:boolean;truestr:string='1';falsestr:string='0';errorstr:string=''):string;
begin
try
if value then
   result:=truestr
else
   result:=falsestr;
except
result:=errorstr;
end;
end;

И, причем, это далеко не единственная глупость там (

[Jeni]

Возможно самая большая глупость - это автоматическое создание множества вспомогательных объектов в конструкторах компонентов: шрифтов, кистей, канвы и т.д., а ведь многое из этого реально потом не используется. Более того, если бы эти объекты/процедуры не вызывались, то компилятор вообще мог бы выбросить этот код и тогда программа с пустой формой не весила бы 400 килобайт.

[mihali4]

Ну что же - вот реальная и нужная тема - переработка библиотек с целью их оптимизации. Получится - можно и Борланду нос утереть...
А то, глядишь, кого-нибудь прямо туда да на работу пригласят...

[JTG]

Дык "облегчённые" system и sysutils уже вовсю используются в демках на делфи. Просто это.. за удобство работы приходится платить

[Arigato]

Есть библиотека KOL -замена VCL.

[Квэнди]

Сообщение от JTG

Дык "облегчённые" system и sysutils уже вовсю используются в демках на делфи. Просто это.. за удобство работы приходится платить

я не против удобства, если вы мне сможете объяснить смысл "такой" реализации booltostr в чем удобство ?

[Arigato]

Сообщение от Квэнди

я не против удобства, если вы мне сможете объяснить смысл "такой" реализации booltostr в чем удобство ?

Да просто, скорее всего, этот код писал программист из Индии или Китая, так что всё нормально. Пишите программы, не задумываясь о том, как реализованы все эти функции. Главное, что они как-то работают, а как - не важно.