- 1
- 2
- 3
- 4
- 5
while (oSupplierOrder.C2RCustomerID == 0)
{
try { oSupplierOrder.C2RCustomerID = LookupCustomerID(); }
catch { }
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+123
while (oSupplierOrder.C2RCustomerID == 0)
{
try { oSupplierOrder.C2RCustomerID = LookupCustomerID(); }
catch { }
}
+123
При попытке выйти с из логина:
http://govnokod.ru/user/exit/?url=http%3A%2F%2Fgovnokod.ru%2Fadd
получаем говно:
Fatal error: Allowed memory size of 134217728 bytes exhausted (tried to allocate 72 bytes) in /home/striker/www/index.php on line 507
+123
Внимание:
Наилучшее воспроизведение сайта при резолюции экрана 1024 x 768 пикселей
http://www.bymath.net/ :) Великий и могучий русский язык
+123
function HexWrdToStr(Dval : integer) : string;
var i : integer;
retstr : string;
begin
retstr := '';
i := (Dval AND $F000) DIV $1000;
case i of
0 : retstr := retstr + '0';
1 : retstr := retstr + '1';
2 : retstr := retstr + '2';
3 : retstr := retstr + '3';
4 : retstr := retstr + '4';
5 : retstr := retstr + '5';
6 : retstr := retstr + '6';
7 : retstr := retstr + '7';
8 : retstr := retstr + '8';
9 : retstr := retstr + '9';
10 : retstr := retstr + 'A';
11 : retstr := retstr + 'B';
12 : retstr := retstr + 'C';
13 : retstr := retstr + 'D';
14 : retstr := retstr + 'E';
15 : retstr := retstr + 'F';
end;
i := (Dval AND $F00) DIV $100;
case i of
0 : retstr := retstr + '0';
1 : retstr := retstr + '1';
2 : retstr := retstr + '2';
3 : retstr := retstr + '3';
4 : retstr := retstr + '4';
5 : retstr := retstr + '5';
6 : retstr := retstr + '6';
7 : retstr := retstr + '7';
8 : retstr := retstr + '8';
9 : retstr := retstr + '9';
10 : retstr := retstr + 'A';
11 : retstr := retstr + 'B';
12 : retstr := retstr + 'C';
13 : retstr := retstr + 'D';
14 : retstr := retstr + 'E';
15 : retstr := retstr + 'F';
end;
i := (Dval AND $F0) DIV $10;
case i of
0 : retstr := retstr + '0';
1 : retstr := retstr + '1';
2 : retstr := retstr + '2';
3 : retstr := retstr + '3';
4 : retstr := retstr + '4';
5 : retstr := retstr + '5';
6 : retstr := retstr + '6';
7 : retstr := retstr + '7';
8 : retstr := retstr + '8';
9 : retstr := retstr + '9';
10 : retstr := retstr + 'A';
11 : retstr := retstr + 'B';
12 : retstr := retstr + 'C';
13 : retstr := retstr + 'D';
14 : retstr := retstr + 'E';
15 : retstr := retstr + 'F';
end;
i := Dval AND $F;
case i of
0 : retstr := retstr + '0';
1 : retstr := retstr + '1';
2 : retstr := retstr + '2';
3 : retstr := retstr + '3';
4 : retstr := retstr + '4';
5 : retstr := retstr + '5';
6 : retstr := retstr + '6';
7 : retstr := retstr + '7';
8 : retstr := retstr + '8';
9 : retstr := retstr + '9';
10 : retstr := retstr + 'A';
11 : retstr := retstr + 'B';
12 : retstr := retstr + 'C';
13 : retstr := retstr + 'D';
14 : retstr := retstr + 'E';
15 : retstr := retstr + 'F';
end;
HexWrdToStr := retstr;
end;
Авторы - программисты из FTDI, взято из экзамплов работы с USB-конвертерами.
Полный текст можно найти здесь: __http://www.ftdichip.com/Support/SoftwareExamples/CodeExamples/Delphi.htm
З.Ы. Ниже по тексту идет аналогичная функция HexByteToStr. Алгоритм, так сказать, тот же.
+123
public override void KeyUp(KeyboardEventArgs e)
{
if(subact.KeyUp(e)) return;
}
public override void KeyDown(KeyboardEventArgs e)
{
if(subact.KeyDown(e)) return;
}
+123
this.Border1.BackColor = System.Drawing.Color.FromArgb(((int)(((byte)(111)))), ((int)(((byte)(111)))), ((int)(((byte)(111)))));
Встретилось такое внутри сгенеренной системой InitializeComponent()
+123
</tr>
<?php endforeach;?>
</tbody></table><br>
<?php /*<ul style="margin-left:575px;" id="subnavlist">
<li><a class="update" href="jobs-favorites.asp">update</a></li>
</ul> */?>
</form>
коммент насящего php программиста
+123
var
a,b,c:real;
begin
read(a,b,c);
if a<b then
If b>a then
If b>c then
If c<b then
Write('max - ',b);
if b<a then
If a>b then
If a>c then
If c<a then
Writae('max - ',a);
if a<c then
If c>a then
If c>b then
If c<b then
Write('max - ',c);
Readln;
End.
Нахождение максимального значения из 3 чисел, бля.
+123
<html>
<head>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js"></script>
<script src="http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.0/jquery-ui.min.js"></script>
<link rel="stylesheet" href="/ww.admin/theme/admin.css" type="text/css" />
<link rel="stylesheet" href="http://ajax.googleapis.com/ajax/libs/jqueryui/1.8.0/themes/south-street/jquery-ui.css" type="text/css" />
</head>
<body>
<div id="header">
<div id="menu-top">
<ul>
<li><a href="/ww.admin/pages.php">Pages</a></li>
<li><a href="/ww.admin/users.php">Users</a></li>
<li><a href="/ww.incs/logout.php?redirect=/ww.admin/">Log Out</a></li>
</ul>
</div>
</div>
<div id="wrapper">
<h1>Pages</h1><div class="left-menu"><script src="/j/jstree/jquery.jstree.js"></script>
<script src="/ww.admin/pages/menu.js"></script>
<div id="pages-wrapper"><ul><li id="page_1"><a href="pages.php?id=1"><ins> </ins>Home</a><ul><li id="page_2">
<a href="pages.php?id=2"><ins> </ins>Second Page</a></li></ul></li></ul></div></div>
<div class="has-left-menu"><h2>FORM GOES HERE</h2></div>
<style type="text/css"> @import "pages/css.css";</style></div>
</body>
</html>
+123
if (!(IsPostBack == true))
// далее везде, см. ссылку
Реальный индус (Thoothukudi, Tamil Nadu, India) в реальном вопросе на StackOverflow (http://stackoverflow.com/questions/5295149/) наложил натуральную кучу говна.