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

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

+141

01
02
03
04
05
06
07
08
09
10
11
12

function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
	begin
	Result := '';
	if (T_='') or (ForS='') or (_T='') then Exit;
	a:=Pos(T_, ForS);
	if a=0 then Exit else a:=a+Length(T_);
	ForS:=Copy(ForS, a, Length(ForS)-a+1);
	b:=Pos(_T, ForS);
	if b>0 then
	Result:=Copy(ForS, 1, b - 1);
	end;

Давно хотел выложить эту дуру на форум.
В чем лажа? Я подозреваю, что перегруженный оператор '=' применительно к строкам (сравнение двух строк) это вызов lstrcmp.
следовательно, POS ЧУВСТВИТЕЛЬНА к регистру!! Это значит, что функция вернет фалс, сравнивая ВоТ эТО и вот это.
Но это полбеды. Иные горемыки передают ей километровый текст в качестве шаблона - это нормально.

И потом еще кто то наивно удивляется, почему функция пропускает нужное или хватает лишнее.

Stertor, 26 Июня 2013

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

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

+75

1
2
3
4
5
6
7
8
9

function rus (s:string):string;             {русификатор}
var m:integer;
begin
for m := 1 to length (s) do
case s [m] of
'А'..'п':S[m]:=chr(ord (S[m])-64);
'р'..'я':S[m]:=chr(ord(S[m])-16);
end;
rus:=S; end;

Кусок лабы на делфи

_113, 26 Июня 2013

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

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

+130

1

<option value="Какое ваше девичья фамилия вашей матери?">Какое ваше девичья фамилия вашей матери?</option>

Экономим на переводах...

nonamez, 25 Июня 2013

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

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

+122

1

Привет, посетите наш сайт [color=red]yadelphi.ru[/color]!

Stertor, 25 Июня 2013

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

C# / Говнокод #13230

+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

public static string[] GetLogicalDrives()
{
	// System.Environment.GetLogicalDrives()
	new EnvironmentPermission(PermissionState.Unrestricted).Demand();
	// System.IO.Directory.GetLogicalDrives()
	new SecurityPermission(SecurityPermissionFlag.UnmanagedCode).Demand();

	int logicalDrives = Win32Native.GetLogicalDrives();
	if (logicalDrives == 0)
	{
		__Error.WinIOError();
	}
	uint num = (uint)logicalDrives;
	int num2 = 0;
	while (num != 0u)
	{
		if ((num & 1u) != 0u)
		{
			num2++;
		}
		num >>= 1;
	}
	string[] array = new string[num2];
	char[] array2 = new char[]
	{
		'A',
		':',
		'\\'
	};
	num = (uint)logicalDrives;
	num2 = 0;
	while (num != 0u)
	{
		if ((num & 1u) != 0u)
		{
			array[num2++] = new string(array2);
		}
		num >>= 1;
		char[] expr_6E_cp_0 = array2;
		int expr_6E_cp_1 = 0;
		expr_6E_cp_0[expr_6E_cp_1] += '\u0001';
	}
	return array;
}

Копался сегодня в дебрях .NET'а и нашёл 2 метода получения списка дисков:
System.Environment.GetLogicalDrives() и System.IO.Directory.GetLogicalDrives()
Различается код только первой срокой запроса разрешений.

Если один метод устарел-бы, то можно было его форварднуть через атрибут TypeForwardedTo.
Или хотя-бы объединить код вынеся запрос разрешений.

Оба метода доступны ещё с .NET 1.1. Но вот класс DriveInfo, который появился только в .NET 2.0 использует метод Directory.GetLogicalDrives()

Это такая "фича" с копипастом кода или тут есть какой-то сакральный смысл?

TauSigma, 25 Июня 2013

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

C# / Говнокод #13229

+133

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

private bool IsSubscriptionFree()
{
    try
    {
        if (AccountManager.CurrentManager.CurrentSubscription != null)
        {
            if (AccountManager.CurrentManager.CurrentSubscription.IsValid)
            {
                if (AccountManager.CurrentManager.CurrentSubscription.Name.ToLower().Contains("free") ||
                    AccountManager.CurrentManager.CurrentSubscription.Name.ToLower().Contains("trial")
                )
                {
                    return true;
                }
            }
            return false;
        }
        return false;
    }
    catch (Exception)
    {
        return false;
    }
}

Eugene, 25 Июня 2013

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

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

+126

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

Здравствуй, анон. Хочу представить тебе свой взглад на этот сайт.
Первое время здесь выкладывались действительно годные
говнокоды с двачей и других имиджборд, но теперь каждый
желающий может написать что-то свое.
Иногда это, сука, раздражает. Не всем всегда охота слушать
сопливое нытье прыщавого нью хикке о том или другом языке,
например. Как отличить, годный говнокод или нет? Ответ прост.
Имхо, каждый говнокод с порядковым номером
больше 1500 чаще всего оказывается калом фекалоида.
Я могу объяснить это тем, что вначале здесь сидели вполне
себе адекватные ребята, но вот, и на этот сайт перекинулась
раковая клетка. Новые говнокоды читать просто неинтересно. 
Пожалуйста, анон, читай действительно годные говнокоды,
не забивай свою относительно чистую голову всяким дешевым бредом.
Не надо.

Stertor, 24 Июня 2013

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

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

+123

1
2
3
4
5
6
7
8
9

Судя по Вашим оценкам, образцы моего кода не так у ж и плохи. Это радует; но в таком случае, получается, что я ошибся форумом. 
Если это действительно так, я спешу сменить амплуа г.кодера. 
Непонаслышке зная, что бан тут получить практически нереально, я все таки сделаю отчаянную попытку:

Логин: [email protected]
Пароль: gcode116

Я желаю Вам всего самого наилучшего. С Вами было весело.  
За сим, остаюсь, ваш Stertor. Списаться со мной можно по вышеуказанному адресу.

Stertor, 24 Июня 2013

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

Говнокод: по колено в коде.

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

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