Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.02.2009, 16:01   #1
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию Перлы 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;
просто нет слов...
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 11.02.2009, 21:07   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

интересно что мешало написать ну хотя бы так...
Код:
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;
И, причем, это далеко не единственная глупость там (
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 11.02.2009, 22:04   #3
Jeni
Форумчанин
 
Регистрация: 31.05.2007
Сообщений: 486
По умолчанию

Возможно самая большая глупость - это автоматическое создание множества вспомогательных объектов в конструкторах компонентов: шрифтов, кистей, канвы и т.д., а ведь многое из этого реально потом не используется. Более того, если бы эти объекты/процедуры не вызывались, то компилятор вообще мог бы выбросить этот код и тогда программа с пустой формой не весила бы 400 килобайт.
Jeni вне форума Ответить с цитированием
Старый 11.02.2009, 22:25   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Ну что же - вот реальная и нужная тема - переработка библиотек с целью их оптимизации. Получится - можно и Борланду нос утереть...
А то, глядишь, кого-нибудь прямо туда да на работу пригласят...
mihali4 вне форума Ответить с цитированием
Старый 12.02.2009, 21:32   #5
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Дык "облегчённые" system и sysutils уже вовсю используются в демках на делфи. Просто это.. за удобство работы приходится платить
пыщь
JTG вне форума Ответить с цитированием
Старый 12.02.2009, 21:54   #6
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

Есть библиотека KOL -замена VCL.
Arigato вне форума Ответить с цитированием
Старый 12.02.2009, 22:58   #7
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

Цитата:
Сообщение от JTG Посмотреть сообщение
Дык "облегчённые" system и sysutils уже вовсю используются в демках на делфи. Просто это.. за удобство работы приходится платить
я не против удобства, если вы мне сможете объяснить смысл "такой" реализации booltostr в чем удобство ?
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 13.02.2009, 09:08   #8
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

Цитата:
Сообщение от Квэнди Посмотреть сообщение
я не против удобства, если вы мне сможете объяснить смысл "такой" реализации booltostr в чем удобство ?
Да просто, скорее всего, этот код писал программист из Индии или Китая, так что всё нормально. Пишите программы, не задумываясь о том, как реализованы все эти функции. Главное, что они как-то работают, а как - не важно.
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DynamicSkinForm VCL TaTT DoGG Компоненты Delphi 4 01.05.2008 16:28
Fast Report 4 VCL Nemon Компоненты Delphi 3 23.10.2007 13:26
Кряк на BusinessSkilForm VCL ?? UnD)eaD)Snake Софт 6 02.08.2007 23:57
VCL Э/\bФ_}{P Свободное общение 2 21.05.2007 00:21