Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+75
private void configComponents(/* params */) throws MyException {
String err_msg = null;
try {
// some code here...
return;
} catch (ComponentConfigurationException e) {
err_msg = e.getMessage();
} catch (MyException e) {
err_msg = e.getMessage();
} catch (Exception e) {
err_msg = setupProcessErrorMessage;
}
throw new MyException(err_msg);
}А rethrowing у нас уже не в почете. Правильно контрагаить ретурном из трай-секции и выбросом исключения, если трай-секция не дожила до ретурна.
mdcool,
16 Марта 2011
+162
foreach ($_REQUEST as $key => $value)
{
if (substr($key, 0, strlen("ORDER_PROP_"))=="ORDER_PROP_")
$arPropValsTmp[$key] = htmlspecialchars($value);
}Забавная проверка.. Из битрикса.
revis0r,
07 Марта 2011
+158
function &_extract(&$array, $path) {
$element = &$array;
while(count($path)) {
$key = array_shift($path);
$element = &$element[$key];
}
return $element;
}
vectoroc,
05 Марта 2011
+96
procedure TForm1.RegHttpRedirect(Sender: TObject; var dest: String;
var NumRedirect: Integer; var Handled: Boolean;
var VMethod: TIdHTTPMethod);
begin
Log('Redirect № ' + IntToStr(NumRedirect)+ ' - '+ Dest , true, MainClr);
end;
procedure TForm1.HTTPCoreStatus(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
Log('Статус: '+ AStatusText, true, MainClr);
end;
{procedure TForm1.RegHttpW0rk(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
end;}лошарский код
megaruliz,
28 Февраля 2011
+147
if ($result and mysql_num_rows($result) > 0) {
/*здесь код*/
}бля..... ну это же php...
Sulik78,
28 Февраля 2011
+85
// ComPort1: TComPort; компонент для работы RS-232
type
Tst5=string[5];
var
Form1: TForm1;
lastcnl:byte;
CommonShiftTT:integer;
roundtt:integer;
Start_Proces:boolean;
intN,intdg0,intdg50:integer;
cerr,cerr0,cerr50:integer;
intdg:integer;
cnl:integer;
b:array [1..5]of byte;
s,sdg50,sdg0,ss:Tst5;
tt,realdg:real;
implementation
{$R *.dfm}
procedure TForm1.ComPort1RxBuf(Sender: TObject; const Buffer;
Count: Integer);
var
i:integer;
p:pointer;
begin
for i:=1 to 5 do b[i]:=0;
ListBox1.Items.clear;
if ComPort1.Connected then begin
p:=@Buffer;
b[1]:=byte(p^);
end
else begin
exit;
end;
cnl:=b[1];
if cnl=0 then begin
Start_Proces:=true;
end;
ListBox1.Items.Add(inttostr(cnl));
if Start_Proces=true then begin
b[2]:=Byte(pointer(longint(p)+1)^);
b[3]:=Byte(pointer(longint(p)+2)^);
b[4]:=Byte(pointer(longint(p)+3)^);
b[5]:=Byte(pointer(longint(p)+4)^);
if (b[2] and $20)>0 then ss[1]:='+' else ss[1]:='-';
if (b[2] and $40)>0 then ss[2]:='0' else ss[2]:='1';
FOR i:=3 TO 5 DO begin
case b[i] of
$82:ss[i]:='0';
$CF:ss[i]:='1';
$A4:ss[i]:='2';
$85:ss[i]:='3';
$C9:ss[i]:='4';
$91:ss[i]:='5';
$90:ss[i]:='6';
$C7:ss[i]:='7';
{min}$80:ss[i]:='8';
$81:ss[i]:='9';
$FF:ss[i]:='x'
else ss[i]:=chr(b[i]);
end;
ss[0]:=#5;
case cnl of
0:begin
vaL(ss,intdg0,cerr0);
stR(intdg0,sdg0);
Label1.Caption:=inttostr(intdg0);
end;
1:begin
vaL(ss,intdg50,cerr50);
stR(intdg50,sdg50);
Label2.Caption:=inttostr(intdg50);
end;
2..26:begin
vaL(ss,intN,cerr);
intN:=intN-intdg0+CommonShiftTT;
realdg:=intN/((intdg50-intdg0)/500);{real type}
intdg:=SMALLINT(round(realdg));{integer type}
tt:=intdg/10;
roundtt:=SMALLINT(round(tt));{integer}
stR(roundtt:5,s);
end;
end;
end;
ListBox1.Items.Add('float='+floattostr(tt));
ListBox1.Items.Add(inttostr(cnl)+'='+ss+' = '+inttostr(roundtt));
end;
end;
Процедура приема и обработки Кодов АЦП с контроллера. Контроллер обрабатывает данные полученные с температурных (аналоговых) датчиков и передает на COM в цифровом виде.
Сделано для АКГУП Индустриальный г. Барнаул
zak,
25 Февраля 2011
+157
if(!$model->sourse->access->firstname == 1)$model->sourse->access->firstname - либо 0, либо 1... Нужно просто иногда высыпаться :(
VasyOk,
21 Февраля 2011
+159
<?php
//////////
static function AddKeyDis($meta_key,$meta_dis=null){
if(is_array($meta_key)){
return self::$result=array("meta_key"=>$meta_key['meta_key'],"meta_dis"=>$meta_key['meta_dis']);
}elseif($meta_dis!==null){
return self::$result=array("meta_key"=>$meta_key,"meta_dis"=>$meta_dis);
}
return null;
}
//////////
?>эх =)
Zho,
09 Февраля 2011
+160
if ($this->Session->check('_userJustRegistered')) {
switch (($tmpJR = $this->Session->read('_userJustRegistered'))) {
case 'confirmed':
$this->Session->delete('_userJustRegistered');
break;
case 'not_confirmed_first':
$this->Session->write('_userJustRegistered', 'not_confirmed');
break;
}
}Кусочек многоступенчатой системы по определению статуса юзера.
quall,
08 Февраля 2011
+180
...
#define EXT12 //Не комментировать эту директиву. Иначе не работает.
...
#define EXT34 //Эта директива почти не используется. Может перерефакторим без неё?
//Ну убирай.
//Давай ты.
//Там есть пару мест, где она используется. Поэтому я не хочу.
//Но ведь нужно. Эти директивы можно заменить на полиморфизм классов.
//Ну займись. Я не хочу. Вдруг сломается.
...
У нас 2 человека работают над одной веткой проекта на С++. Люди работают в отделах на разных этажах (один на этаж выше другого). Им лень сходить друг к другу или поговорить по жаберу. Я уже как полгода наблюдаю за картиной: они переговариваются через комментарии в коде через систему контроля версий. Я не против переговоров в системе контроля версий, но они уже месяц осбуждают EXT34, а так ничего с ним и не сделали. Хоть бы комментарии удалили, если делать ничего не собираюются. Может с них 0.125 премии снять?
Как-нибудь ещё переговоры повеселее выложу.
Говногость,
08 Февраля 2011
Follow us!