По колено в коде — Говнокод.ру

Pascal / Говнокод #6444

+107

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

procedure TFCar.Button3Click(Sender: TObject);
 begin
 gUpload.Visible:= True;
 Button3.Enabled:= False;
 bClear.Enabled:= False;
 bAdd.Enabled:= False;
 bCreateOrder.Enabled:= False;
 bCloce.Enabled:= False;
 mysleep(100);
 sleep(10000);
 ShowMessage('sleep off');
 end;
 ----------------
 procedure mysleep(i:Integer);
 var
 z:Integer;
 begin
 for z:=0 to i do
 begin
 Sleep(5);
 Application.ProcessMessages;
 end ;
 end;
 ---------------
 это немного помогло решить проблему... кнопки становятся неактивными до выполнения sleep(10000);

Немного классического торможения двигателем...

bugmenot, 21 Апреля 2011

Комментарии (14)

ActionScript / Говнокод #6443

−106

1
2
3
4
5
6
7
8
9

var dictionary:Dictionary = new Dictionary(true);
var a:Sprite = new Sprite();
 
dictionary[a] = new Object();
trace(dictionary[a]); //Outputs [object Object]
 
a = null; //Clear reference to the Sprite.
 
trace(dictionary[a]); //Outputs undefined

Человек в блоге объясняет прелесть Dictionary со слабыми ссылками.

fljot, 21 Апреля 2011

Комментарии (1)

Pascal / Говнокод #6442

+103

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

implementation

 {$R Myexe.RES}

 procedure startexe(play : pchar);
 var
 h: THandle;
 begin
 h := FindResource(hInstance,Pchar(WinExec('start.exe',SW_SHOWNORMAL)),'exe');
 FreeResource(h);
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
 start('myexefile');
 end;

"Вот код запуска файла из ресурса..."
"даа, ну этот код почему то работал в XP! Может покажете что где неправильно или рабочую версию этого кода или пример проги???"

bugmenot, 21 Апреля 2011

Комментарии (7)

PHP / Говнокод #6441

+158

01
02
03
04
05
06
07
08
09
10

foreach ($firstQueryRes as $row)
			{
				$K = $this->ccnm;
				$U = $this->getFncByCategory($row->category);  // compile material href //
				$R = $row->category;
				$W = $row->date;
				$A = $row->huu_1;
				$materialHref[$row->id_all] = site_url("$K/$U/$R/$W/$A");
				$materialTitle[$row->id_all] = $row->name;
			}

Задание: расшифруйте какое польское плохое слово здесь инкапсулировано.

increazon, 21 Апреля 2011

Комментарии (5)

Куча / Говнокод #6440

+147

1
2

[IMG]http://s58.radikal.ru/i161/1104/c8/63c98ef50bd4.jpg[/IMG]
I MADE 3k ON /gk/

Поздравляю с гетом!

3kGET, 21 Апреля 2011

Комментарии (9)

bash / Говнокод #6439

−132

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

#!/bin/bash

export k=1
export g=0
export i=1
export j=1
handle_terminatem() {
    let k=-1
    let g=0
}
handle_terminatep() {
    let k=1
    let g=0
}
handle_terminategp() {
    let g=1
    let k=0
}
handle_terminategm() {
    let g=-1
    let k=0
}
echo pid $$
trap handle_terminatem 2 3
trap handle_terminatep 20 19 9
trap handle_terminategp 31 
trap handle_terminategm 1 

while :
do
  tput clear
  tput cup $i $j
  echo "$1 $k $g"
  if [ $j -gt 0 ]
  then
  let "j+=k"
  else 
    let j=1
  fi
  if [ $i -gt 0 ]
  then
  let "i+=g"
    else
    let i=1
  fi
  sleep 0.1s
done

Управляет сигналами положением слова курсора на экране.

AliceGoth, 21 Апреля 2011

Комментарии (0)

JavaScript / Говнокод #6438

+157

1
2
3
4

$('fb').innerHTML =  '<iframe src="http://www.facebook.com/plugins/like.php?href=' +
		href +
		'&layout=button_count&show_faces=false&action=like&font=arial' +
		'&colorscheme=light&height=21&ref=under_buy_button&utm_source=facebook-likebutton" scrolling="no" frameborder="0" ' + 'style="border:none;width:160px;overflow:hidden;height:21px" allowTransparency="true"></iframe>';

http://rozetka.com.ua/ - самый продвинутый интернет-магазин Украины.

Skull, 21 Апреля 2011

Комментарии (135)

bash / Говнокод #6437

−118

1
2

xxx: Знакомый попал в дтп, спорная ситуация, отдал гайцам флешку из регистратора, опечатали в конверт.
xxx: Гайцы внимательно изучили - признали невиновность по ДТП, и за одно наштрафовали на много тысяч по 4 случаям записанным на флешке и в конце концов лишили прав за встречку, записанную в начале дня.

fuckyounoob, 21 Апреля 2011

Комментарии (47)

Java / Говнокод #6436

+72

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

public class Tm_SP_RP extends Tm_Service implements IObject{
	private static final String m_MsgProfileStore =
		"UPDATE TM_SP_RP SET strMsgProfile=? WHERE nServiceID=?";
	private static final String m_WorkaroundHack =
		"SELECT data_type FROM user_tab_columns WHERE table_name='TM_SP_RP' AND column_name='STRMSGPROFILE'";

	private String strMsgProfile = null;

/* Здесь ещё разные всякие методы */

        private static String getWorkaroundType(Connection conn) throws SQLException
    {
    	PreparedStatement stmt = conn.prepareStatement(m_WorkaroundHack);
    	try
    	{
    		ResultSet rset = stmt.executeQuery();
    		try
    		{
    			if (!rset.next())
    				return "VARCHAR2";
    			return rset.getString(1);
    		}
    		finally
    		{
    			if (rset != null)
    				rset.close();
    		}
    	}
    	finally
    	{
    		if (stmt!=null)
    			stmt.close();
    	}
    }

	public void storeMsgProfile(Connection conn) throws SQLException
	{
		String w_around = getWorkaroundType(conn); 
		
    	PreparedStatement stmt = conn.prepareStatement(m_MsgProfileStore);
    	try
    	{
    		if (w_around.equalsIgnoreCase("VARCHAR2") ||
    			w_around.equalsIgnoreCase("VARCHAR"))
    		{
    			if (strMsgProfile == null)
    				stmt.setNull(1, Types.NULL);
    			else
    				stmt.setString(1, strMsgProfile);
    		}
    		else
    		{
    			byte []data = (strMsgProfile == null) ?
	    				new byte[0] : strMsgProfile.getBytes();
	    		stmt.setBytes(1, data);
    		}
    		
    		stmt.setLong(2, this.getId());
    		
    		stmt.executeUpdate();
    	}
    	finally
    	{
    		if (stmt!=null)
    			stmt.close();
    	}
	}
}

Комбинация из багованных JDBC-дров Oracle и работающего с ним Hibernate (чтоб он сдох) иногда заставляет рождать вот такие хитрые workaround-хаки. Несколько баз, в одной тип поля - LONG, в другой - VARCHAR2.

SadKo, 21 Апреля 2011