- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
public static function getSizeformat($iNumber){
$value = "-";
if($iNumber){
$iNumber = $iNumber/100000;
$value = number_format($iNumber, 2, '.', '');
}
return $value;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+159
public static function getSizeformat($iNumber){
$value = "-";
if($iNumber){
$iNumber = $iNumber/100000;
$value = number_format($iNumber, 2, '.', '');
}
return $value;
}
Кусочек который пришел по наследству, судя по подписям в таблице на фронтэнде в итоге мы должны получить размер файлов в мегабайтах, но как то не получается... :)
+121
lbxLibrary.Columns[2].ColumnWidth = lbxLibrary.Width - (2 + 15 + 4 + 15 + 4 + 15 + 4 + 16 + 2 + 2);
lbxSamples.Columns[2].ColumnWidth = lbxLibrary.Width - (2 + 15 + 4 + 15 + 4 + 15 + 4 + 16 + 2 + 2);
Американское спагетти.
Подобное содержится в методе InitializeComponent() более чем в 20-ти формах! Кто не помнит, InitializeComponent() формируется дизайнером автоматически, и крайне нежелательно вносить в него изменения. Везде разные объекты, и во многих местах отличны числа.
+144
if (nidx == -1) {
networkIdx = -1;
} else {
networkIdx = nidx;
}
−861
errnum := 0;
if (bitand(err, 1) != 0) then
errnum := -20027;
end if;
if (bitand(err, 2) != 0) then
if (errnum = 0) then
errnum := -20028;
else
errnum := -20029;
end if;
end if;
Это PL/SQL
Это мой первый вариант, я заменил его потом на этот, в одну строку:
errnum := -20026 - (bitand(err, 1) + bitand(err, 2));
+159
function HighlightSelectedKaskoPriceCell(currentCell, toggle, useParent)
{
if(currentCell)
{
if(toggle)
{
if(!useParent)
$(currentCell).css("background-color", "rgb(247, 144, 52)");
else
$(currentCell).parent().css("background-color", "rgb(247, 144, 52)");
}
else
{
if(!useParent)
$(currentCell).css("background-color", "#FEF3EB");
else
$(currentCell).parent().css("background-color", "#FEF3EB");
}
}
}
function GetSelectedKaskoPriceCellHighlighting(currentCell, useParent)
{
if(!useParent)
return ($(currentCell).css("background-color") == "rgb(247, 144, 52)");
else
return ($(currentCell).parent().css("background-color") == "rgb(247, 144, 52)");
}
Способ выделить ячейку таблицы и выяснить, была ли она выделена.
+175
if($hour == 1){
$hour = "01";
}
if($hour == 2){
$hour = "02";
}
if($hour == 3){
$hour = "03";
}
if($hour == 4){
$hour = "04";
}
if($hour == 5){
$hour = "05";
}
if($hour == 6){
$hour = "06";
}
if($hour == 7){
$hour = "07";
}
if($hour == 8){
$hour = "08";
}
if($hour == 9){
$hour = "09";
}if($hour == 0){
$hour = "00";
}
−87
' Это первый конструктор:
Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object)
PRM(0) = New SqlParameter(ParmName0, ParmValue0)
CMD.Parameters.Add(PRM(0))
End Sub
' ... 20-30 конструкторов спустя:
Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object, ByVal ParmName29 As String, ByVal ParmValue29 As Object)
Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26, ParmName27, ParmValue27, ParmName28, ParmValue28)
PRM(29) = New SqlParameter(ParmName29, ParmValue29)
CMD.Parameters.Add(PRM(29))
End Sub
Перегрузка по-говнокодерски. Сие великолепие автор комментирует так:
"Одновременно для всяких начинающих, которые прослушали лекции про типы данных ParamArray - разъясняю, что типы данных идут вперемешку - строка/обьект - пример вызова с формы выложен выше. И ParamArray здесь приведет к необходимости преобразования строки в обьект. Что во-первых неэффективно и ненужно, а во вторых отключит проверку типа параметра и легко можно будет пропустить название параметра и указать вместо него собственно значение параметра."
"И наконец, при отсутствии такого полиморфного конструктора, принимающего от нуля до 30 параметров - эта функция и вовсе утрачивает смысл. Ибо тридцать строк на форме для одного обращения в базу? Это может показаться приемлимым только тем, кто вообще никогда не занимался программированием."
+157
if ($var == e_UC_MAINADMIN && getperms('0'))
{
return TRUE;
}
if ($var == e_UC_MEMBER && USER == TRUE)
{
return TRUE;
}
if ($var == e_UC_GUEST && USER == FALSE) {
return TRUE;
}
if ($var == e_UC_PUBLIC) {
return TRUE;
}
if ($var == e_UC_NOBODY) {
return FALSE;
}
if ($var == e_UC_ADMIN && ADMIN) {
return TRUE;
}
if ($var == e_UC_READONLY) {
return TRUE;
}
По ходу, стек мозга автора не вмещает более одного оператора && подряд.
CMS e107, /class2.php
+137
procedure TForm1.Button1Click(Sender: TObject);
var
Result, str, str1, str2, str3, str4, str5, str6 : string;
PLen, stroka, i : integer;
begin
Randomize;
str:='';
Memo1.Clear;
stroka := SpinEdit2.Value;
str1 := '1234567890';
str2 := 'abcdefghijklmnopqastuvwxyz';
str3 := 'ABCDEFGHIJKLMNOPQASTUVWXYZ';
str4 := '!@#$%^&*()_+|\=-<>.,/?''; :"][}{';
str5 := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
str6 := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
PLen := SpinEdit1.Value;
if CheckBox1.Checked = True
then str:=str+str1;
if CheckBox2.Checked = True
then str:=str+str2;
if CheckBox3.Checked = True
then str:=str+str3;
if CheckBox4.Checked = True
then str:=str+str4;
if CheckBox5.Checked = True
then str:=str+str5;
if CheckBox6.Checked = True
then str:=str+str6;
if CheckBox1.Checked or
CheckBox2.Checked or
CheckBox3.Checked or
CheckBox4.Checked or
CheckBox5.Checked or
CheckBox6.Checked = False
then
MessageDlg('Выберите символы, которые вы хотите использовать!',mtWarning,[mbOK],0)
else
for i := 1 to stroka do begin
Result := '';
repeat
Result := Result+str[Random(Length(str))+1];
until (Length(Result) = PLen);
Memo1.Lines.Add(Result);
end;
end;
Пример генератора паролей на Delphi
http://delphistudio.ru/primery-na-delphi/sistema/119-generator-porolej.-primer-na-delphi.html
вспоминается цитата какого говнокодера с баша
http://bash.org.ru/quote/406823
которую быдлота наплюсовала
+119
if (this.bmp == null) {
} else if (this.bmp.Size.Height < this.ViewSize.Height) {
DisposeBmp();
} else if (this.bmp.Size.Width < this.ListData.RowSize.Width) {
DisposeBmp();
}
Еще один Американский перл.... Присмотритесь к 1-му "if". И так по всему коду.