Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+144
{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:='''';
b:='{$APPTYPE CONSOLE}var a:string; b:string; d:char;begin d:=';
a:='writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.';
writeln(b,d,d,d,d,a[25]);writeln(a[9],b[24],b[58],d,b,d,a[25]);writeln(b[23],b[24],b[58],d,a,d,a[25]);writeln(a);end.
Это код-шутка - как раз для вечера пятницы :)
можно запустить программу, скопировать то, что выведется на экран в Delphi, скомпилировать, запустить... и так до бесконечности.
автора не знаю, есть еще 1 пример кода.
ctm,
22 Октября 2010
+163
//Переводим строку в нижний регистр
function myStrtolower($word){
return strtr(strtolower($word), 'ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ', 'йцукенгшщзхъфывапролджэячсмитьбю');
}сказать нечего
Sum,
22 Октября 2010
+145
enum {
CONST_A,
CONST_B,
CONST_C,
/* ... и еще пяток в том же духе */
};
/* ... */
char opType = ...;
switch(opType) {
case 'A':
/* строчек 10 кода использующие CONST_A */
break;
case 'B':
/* капипасто тех же строчек 10 кода - но теперь с CONST_B */
break;
case 'C':
/* капипасто тех же строчек 10 кода - но с CONST_C */
break;
/* и т.д. и т.п. для других значений opType */
}только что убил полчаса что бы понять что switch/case завален 100% копиями того же самого кода - только со смененной константой. просто замапить тот char в enum ... это наверное исключительно для слишком умных.
Dummy00001,
22 Октября 2010
+112
procedure TfmConf_PA30.btnWritePAClick(Sender: TObject);
begin
if WriteByVariable(11,lbLog6) then begin
if WriteByVariable(12,lbLog6) then begin
if WriteByVariable(13,lbLog6) then begin
if WriteByVariable(14,lbLog6) then begin
if WriteByVariable(15,lbLog6) then begin
if WriteByVariable(16,lbLog6) then begin
if WriteByVariable(17,lbLog6) then begin
if WriteByVariable(18,lbLog6) then begin
if WriteByVariable(19,lbLog6) then begin
if WriteByVariable(20,lbLog6) then begin
if WriteByVariable(21,lbLog6) then begin
if WriteByVariable(22,lbLog6) then begin
if WriteByVariable(23,lbLog6) then begin
if WriteByVariable(24,lbLog6) then begin
if WriteByVariable(25,lbLog6) then begin
if WriteByVariable(26,lbLog6) then begin
if WriteByVariable(27,lbLog6) then begin
if WriteByVariable(28,lbLog6) then begin
if WriteByVariable(29,lbLog6) then begin
if WriteByVariable(30,lbLog6) then begin
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (30)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (29)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (28)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (27)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (26)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (25)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (24)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (23)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (22)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (21)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (20)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (19)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (18)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (17)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (16)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (15)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (14)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (13)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (12)');
end else
lbLog6.Items.Add('Ошибка: Нет ожидаемого ответа от оборудования (11)');
end;
может циклом надо было? :)
for i:=11 to 40 do...
pethead,
22 Октября 2010
+108
private void InitializeUser()
{
textBoxFirstname.Text = _user.FirstName;
textBoxLastname.Text = _user.LastName;
textBoxPassword.Text = _user.Password;
textBoxUsername.Text = _user.UserName;
textBoxMail.Text = _user.Mail;
comboBoxRoles.Text = _user.UserRole.Id>0 ? _user.UserRole.RoleName : "";
comboBoxRoles.Enabled = true;
if(User.CurrentUser.isLoanOfficer || User.CurrentUser.isVisitor || User.CurrentUser.isCashier)
{
comboBoxRoles.Enabled = false;
}
else if(User.CurrentUser.isAdmin)
{
if(_user.isAdmin || _user.isSuperAdmin) comboBoxRoles.Enabled = false;
}
else if(User.CurrentUser.isSuperAdmin)
{
if(_user.isSuperAdmin) comboBoxRoles.Enabled = false;
}
}Код взят из реального open source проекта. Реализация многоуровневой проверки прав текущего пользователя :).
_Ru55_,
22 Октября 2010
+144
if ((text == '' || text == '\n') && document.getElementById('log').innerHTML == '...')
Вот такое говнецо я сделал. Надо исправить.
Следуя лозунгу говнокода "Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!", выкладываю.
КЭП: document.getElementById('log').innerHTML == '...' - Фэйл, не надо завязываться на содержимое.
Oleg_quadro,
22 Октября 2010
+117
widgetPanel.ID = new Guid(String.Format("{0:D32}", widgetInfo.Id));
// в другом месте
var widgetId = Convert.ToInt32(widgetPanel.ID.ToString().Replace('-', '0').TrimStart('0'));
Как узнать что именно надо класть на панель?
Очень просто - брать ее id типа Guid, а искать в списке классов с id типа int
Разумеется, никто не запрещал сделать что бы оба были guid, но это же совершенно не интересно.
eval_2009,
21 Октября 2010
+174
$a_year[2005]="2005";
$a_year[2006]="2006";
$a_year[2007]="2007";
$a_year[2008]="2008";
$a_year[2009]="2009";
$a_year[2010]="2010";
$a_year[2011]="2011";
$a_year[2012]="2012";больше 2012 года не вписали... xd
ferry-very-good,
21 Октября 2010
+158
function getAvailableFlights($source,$dest){
$connection = initDB();
$query2;
$query2 = "SELECT * FROM Sectors WHERE Sector='".$source."'";
$result2 = mysql_query($query2);
//or die ("Query Failed ".mysql_error());
$row2 = mysql_fetch_array($result2);
$SourceSID = $row2['SID'];
$query3 = "SELECT * FROM Sectors WHERE Sector='".$dest."'";
$result3 = mysql_query($query3);
// or die ("Query Failed ".mysql_error());
$row3 = mysql_fetch_array($result3);
$destSID= $row3['SID'];
//Get available flights
$query3 = "SELECT * FROM Flights WHERE SourceSID='".$SourceSID."' AND DestSID='".$destSID."'";
$result3 = mysql_query($query3);
// or die ("Query Failed ".mysql_error());
$flightsArray;
$flightsID=1;
while($row = mysql_fetch_array($result3)){
$fName= $row['FName'];
$flightsArray[$flightsID] = $fName;
$flightsID = $flightsID +1;
}
closeDB($connection);
return $flightsArray;
}
В NetBeans есть несколько примеров с проектами PHP. Один из них AirAlliance. весь код оттуда можно сюда запостить.
ну вместо той херни что написана выше можно использовать один запрос MySql
'select distinct f.FName
from Flights f
left join Sectors s on f.SourceSID=s.SID
left join Sectors d on f.DestSID=d.SID
where s.SID='.(int)$source.' or d.SID='.(int)$dest
duburlan,
21 Октября 2010
+160
class XXX
{
function _item()
{
return $this->val = substr(__FUNCTION__,1);
}
function _lister()
{
return $this->val = substr(__FUNCTION__,1);
}
function item()
{
return ($this->val === __FUNCTION__);
}
function lister()
{
return ($this->val === __FUNCTION__);
}
function __construct()
{
$this->_lister();
}
}В прицнипе пофиг что оно делает. Но смотреть без слез, имхо нельзя :)
grelkin,
21 Октября 2010
Follow us!