Перлы в любимых продуктах

или о том, как не надо писать программы
27.10.1999 г

---

Я тут по долгу службы взялся вычищать проекты от следов этой библиотке, попутно накопилось некоторое количество перлов.

• И кто использует этот InfoPower?
  
  if (parent is TwwCustomDBGrid) and (Parent as TwwCustomDBGrid).editCalculated
  then FDataLink.DataSet.Edit
  else FDataLink.DataSet.Edit;
  
  
• Magic numbers :)
  
  procedure TwwSpinButton.AdjustSizes (var W: Integer; var H: Integer);
  begin
  if (FUpButton = nil) or (csLoading in ComponentState) then Exit;
  if W < 15 then W := 15;
  
  
• "Я не знаю про переменную Result"
  
  function Group: TwwPicResult;
  var
  Rslt: TwwPicResult;
  TermCh: Byte;
  begin
  TermCh := CalcTerm;
  Inc(I);
  Rslt := Process(TermCh - 1);
  if not IsIncomplete(Rslt) then I := TermCh;
  Group := Rslt;
  end;
  
  
• Все это переменные, а не функции или свойства
  
  tempStartGroup:= startGroup;
  tempEndGroup:= endGroup;
  tempStartGroup:= tempStartGroup + 1;
  
  
• "Make compiler happy". Бедный компилятор, пытался подсказать дурню
  
  result:= False; { Make compiler happy }
  while True do begin
  if not GetSubGroup(tempStartGroup, tempEndGroup) then
  begin
  result:= False;
  break;
  end
  else if (CheckComplete(prIncomplete, tempStartGroup, tempEndGroup)=prAmbiguous) then
  begin
  result:= True;
  break;
  end
  else begin
  tempStartGroup:= tempEndGroup + 2;
  if tempStartGroup>endGroup then
  begin
  result:= False;
  break;
  end
  end
  end
  
  
• wwDBEdit.pas
  
  procedure Register;
  begin
  end;
  
  
• Такое я глубоко ценю
  
  if DefaultButton = dbFindFirst then begin
  FirstButton.Default:= True;
  NextButton.Default:= False;
  end
  else begin
  FirstButton.Default:= False;
  NextButton.Default:= True;
  end;
  
  
• Hо лидер, безусловно, ReportBuilder Pro. Оцените :)
  
  File ppBands:
  
  TppCustomBand = class(TppBand)
  
  
• Hет, не могу удержаться - это стоит посмотреть, что бы никогда так не делать. (И никогда не использовать компоненты, написанные так) Продолжаем разбор InfoPower
  
  function TwwCustomMaskEdit.isValidPictureMask(s: string): boolean;
  var pict: TwwPictureValidator;
  begin
  pict:= TwwPictureValidator.create(FwwPicture.PictureMask,
  FwwPicture.AutoFill);;
  result := pict.isSyntaxError;
  pict.Free;
  end;
  
  
• Понятно, try..except не для нас - у нас всегда все будет нормально работать. Hо можно лучше - можно скомбинировать с логическими выражениями - будет совсем круто :)
  
  function TwwCustomMaskEdit.isValidPictureValue(s: string): boolean;
  var pict: TwwPictureValidator;
  res: TwwPicResult;
  begin
  if s='' then
  result:= True
  else if FwwPicture.PictureMask='' then
  result:= True
  else begin
  pict:= TwwPictureValidator.create(FwwPicture.PictureMask,FwwPicture.AutoFill);;
  res:= Pict.picture(s, False);
  result := res = prComplete;
  pict.Free;
  end;
  DoOnCheckValue(result);
  end;
  
  
• Вот это case, вот это я понимаю. Ребята уже знают, что такое открытые массивы, но вот про вариантный массив им, беднягам, никто не рассказал:
  
  Function wwDoLookupTable(ALookupTable : TTable; DataSet: TDataset; links: TStrings) : boolean;
  var res: boolean;
  lookupTable: TwwTable;
  begin
  res:= False;
  lookupTable:= AlookupTable as TwwTable;
  
  {skip - IA}
  
  case (links.count) of
  2: res:= lookupTable.wwFindKey([FieldByName(links[0]).asString]);
  
  4: res:= lookupTable.wwFindKey([FieldByName(links[0]).asString,FieldByName(links[2]).asString] );
  
  6: res:= lookupTable.wwFindKey([FieldByName(links[0]).asString,FieldByName(links[2]).asString, FieldByName(links[4]).asString] );
  
  8: res:= lookupTable.wwFindKey([FieldByName(links[0]).asString, FieldByName(links[2]).asString, FieldByName(links[4]).asString, FieldByName(links[6]).asString] );
  
  10: res:= lookupTable.wwFindKey([FieldByName(links[0]).asString, FieldByName(links[2]).asString, FieldByName(links[4]).asString, FieldByName(links[6]).asstring, FieldByName(links[8]).asString] );
  
  12: res:= lookupTable.wwFindKey([FieldByName(links[0]).asString, FieldByName(links[2]).asString, FieldByName(links[4]).asString, FieldByName(links[6]).asstring, FieldByName(links[8]).asstring, FieldByName(links[10]).asString] );
  else;
  end;
  end;
  result:= res;
  end;
  
  
• "Чуть что - сразу бежать - нам неприятности ни к чему"
  
  Function wwIsValidValue(FldType: TFieldType; key: string):boolean;
  begin
  result:= False;
  case FldType of
  ftCurrency, ftFloat, ftBCD : if not wwStrToFloat(key) then exit;
  ftinteger, ftSmallInt, ftWord : if not wwStrToInt(key) then exit;
  {$ifdef win32}
  ftAutoInc : if not wwStrToInt(key) then exit;
  {$endif}
  ftTime: if not wwStrToTime(key) then exit; {3/6/97}
  ftDate : if not wwStrToDate(key) then exit;
  ftDateTime :
  if not wwStrToDateTime(key) then begin
  if not wwStrToDate(key) then exit;
  end;
  else;
  end;
  result:= True;
  end;
  
  
• FieldNo - порядковый номер поля. То есть считается, что по 5 полям искать могут только полоумные, а они InfoPower не пользуют
  
  Function wwTableFindNearest(dataSet: TDataSet; key: string; FieldNo:
  integer): boolean;
  
  {skip - IA}
  else begin
  case FieldNo of { 6/20/98 - Use AsString insted of Text }
  0: FindNearest([key]);
  1: FindNearest([indexFields[0].asString, key]);
  2: FindNearest([indexFields[0].asString, indexFields[1].asString, key]);
  3: FindNearest([indexFields[0].asString, indexFields[1].asString, indexFields[2].asString, key]);
  end
  

---

Если у кого есть подобные перлы, пришлите, пожалуйста. Будут пожелания, можно устраивать показательные разборки чужого кода :)

Автор: Ilya Andreev AKA Andre

Оформление: Delphi Plus