Список говнокодов пользователя Dr_Stertor

Всего: 85

Ruby / Говнокод #22130

−142

1

Отдамся гею хоть дома, на лестнице

Dr_Stertor, 05 Февраля 2017

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

Ruby / Говнокод #22129

−143

1

Отсосу, не дорого

Dr_Stertor, 05 Февраля 2017

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

Ruby / Говнокод #22128

−143

1

Я сосу хуи

Dr_Stertor, 05 Февраля 2017

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

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

−18

1

Знаете ли Вы, что в FreePascal блоки try..finally/except не работают в контексте DLL?

Dr_Stertor, 10 Января 2017

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

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

−17

1
2
3
4
5

Интереса ради установил пятый крестобилдер (борланд) -  что сказать?!
Первый раз в жизни пожалел, что не знаю сей. 
Приятный, ненавязчиво-дружелюбный и очень удобный интерфейс, вкупе с аскетичной подсветкой и автодополнением.
Эта IDE-само совершенство, для настоящих профи. Среда словно бы просит начать в ней работать.
Стыдись, майкрософт!..

Добавить нечего.

Dr_Stertor, 06 Января 2017

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

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

−18

1
2
3

Как известно, негласные правила общения на ГК подразумевают анонимность участников.
Иногда этот принцип нарушается, - но "нарушители", как правило, залетные гости, которые долго не задерживаются, и молчуны. 
Очень интересно, какими Вы себе друг друга представляете.

Начну, пожалуй, я.

1024--.
Рост - около 180 см. Возраст < 30. Цвет волос неизвестен, но могу предположить, что он брюнет. Цвет глаз - серо-зеленые.

Борманд.
Рост средний, 35-40 лет, темноволосый. Цвет глаз: - карие, либо изменчивый цвет.

Инканус-грэй.
Кареглазый брюнет, примерно, сорока лет.

Баян.
Высокий блондин. Возраст неизвестен, но я предполагаю, что ему около 28 лет.
Цвет глаз:иссиня-зеленые.

Dr_Stertor, 26 Декабря 2016

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

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

−124

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

procedure TToolFrm.RemIconBtnClick(Sender: TObject);
function GetSelectedDrive:string;
var
  S:string;
begin
  Result:='';
  S:=DrView.Drive;
  if S <> '' then
  Result:=S+':\';
end;

var
  path:string;
  ID:Integer;
  VolumeName:string;
  VolumeNameSize,
  VolumeSerial,
  MaxComponentsLen,
  FileSystemFlags:DWORD;
begin

  Path:=GetSelectedDrive;
  if Path='' then
  begin
    MessageBox(handle,PChar('Выберите диск в списке дисков'), PChar(''), 48);
    Exit;
  end;

  Path:=IncludeTrailingPathDelimiter(Path);
  SetLength(VolumeName,200);
  VolumeNameSize:=200;
  if not GetVolumeInformation(PChar(Path),PChar(VolumeName),VolumeNameSize,@VolumeSerial,MaxComponentsLen,FileSystemFlags,nil,0) then
  begin
    MessageBox(handle,PChar(Format('Диск %s недоступен или повреждён.',[Path])), PChar(''), 48);
    Exit;
  end;
  if (not DeleteFile(PChar(Path+'#Icon#'))) or (not DeleteFile(PChar(Path+'Autorun.inf'))) then
  Messagebox(Handle, PChar('Значок не найден'), PChar(''), 0)
  else
  begin
    SetVolumeLabel(PChar(Path),nil);
    SetVolumeLabel(PChar(Path), PChar(VolumeName));
    Messagebox(Handle, PChar('Значок удален'), PChar(''), 0)
  end;
end;

Кто скажет для чего вызывается SetVolumeLabel, тому ничего.

Dr_Stertor, 24 Декабря 2016

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

Assembler / Говнокод #21808

−126

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

[code]
// межстрочный асм в делфи
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
asm
  jmp @code
@str: db 'Hello, world!', 0
@code:
  xor ecx, ecx
  xor ebx, ebx
 mov ecx, 0
@start:
  mov ebx, offset @str
  push 0
  push ebx
  push ebx
  push 0
  call MessageBox
  cmp ecx, 2 
  jne @start
end;
[/code]

Осваиваю межстрочный ассемблер.
Странно, код зацикливается... Что я делаю не так?

Dr_Stertor, 09 Декабря 2016

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

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

−126

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

program Project1;

uses
  windows,
  Messages;

function EnumWindowsWnd(h: hwnd): BOOL; stdcall;
var
 rect:TRect;
 index:Integer;
begin
 if not IsWindowVisible(h) then
  begin
   Result:=true;
   exit;
  end; 

 //Получаю габариты найденного окна
 GetWindowRect(h,rect);

 //Генерирую случайное число
 index:=random(2);

 if index=0 then
  begin
   //Если оно 0, то увеличиваю...
   rect.Top:=rect.Top+3;
   rect.Left:=rect.Left+3;
  end
 else
  begin
   //Иначе уменьшаю...
   rect.Top:=rect.Top-3;
   rect.Left:=rect.Left-3;
  end;

 MoveWindow(h,rect.Left,rect.Top,rect.Right-rect.Left,rect.Bottom-rect.Top,true);
 Result:=true;
end;

var
 h:THandle;
begin
 //Запускаю цикл
 while true do
  begin
   //Запускаю перечисление всех окон
   EnumWindows(@EnumWindowsWnd,0);

   //Делаю задержку в 100 мс.
   h:=CreateEvent(nil, true, false, '');
   WaitForSingleObject(h, 1000);
   CloseHandle(h);
  end;
end.

Код не мой, скачано с фан-сайта борланд.

P.S.: капча сейчас - 5555.

Dr_Stertor, 08 Декабря 2016

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

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

−127

1
2
3
4
5
6

Если свойство должно только читаться или записываться, в его описании может присутствовать соответствующий метод:

    type
    TAnObject = class(TObject)
    property AProperty: TSomeType read GetValue; 
    end;

В этом примере вне объекта значение свойства можно лишь прочитать; попытка присвоить свойству AProperty значение вызовет ошибку компиляции.
Для присвоения свойству значения по умолчанию используется ключевое слово default:
[code] property Visible: boolean read FVisible write SetVisible default True;
Это означает, что при запуске программы свойство будет установлено компилятором в True

{Из учебника для долбоёбов, под авторством ***}

Dr_Stertor, 05 Декабря 2016

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

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