Pascal — Говнокод.ру

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

+103

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

var
  resStream: TResourceStream;
  memStream: TMemoryStream;
  DLL: THandle;
  tempFile: string;

  excel: variant;
  wbook: OLEVariant;
begin
  if not IsOLEObjectInstalled('Excel.Application') then
    begin
      MessageBox(Handle, PChar('Для открытия фаблонов форм необходимо установить'+#13+
                               'Microsoft Excel'), 'Ошибка загрузки формы.', MB_ICONINFORMATION);
      exit
    end;
  tempFile := extractFilePath(paramStr(0))+'DATA\PLUGINS\$temp$.xxx';
  if ListView1.Selected = nil then exit;
  if not FileExists(ListView1.Selected.SubItems.Strings[2]) then exit;
  DLL := loadLibrary(PChar(ListView1.Selected.SubItems.Strings[2]));
  if DLL = INVALID_HANDLE_VALUE then begin
                                       freeLibrary(DLL);
                                       exit
                                     end;
  resStream := TResourceStream.Create(DLL, 'FORMA', MakeIntResource(10));
  memStream := TMemoryStream.Create;
  memStream.LoadFromStream(resStream);
  if fileExists(tempFile) then deleteFile(tempFile);
  memStream.SaveToFile(tempFile);
  setFileAttributes(PChar(tempFile), FILE_ATTRIBUTE_HIDDEN or
                                     FILE_ATTRIBUTE_TEMPORARY);
  memStream.Free;
  resStream.Free;
  freeLibrary(DLL);

  excel := createOLEObject('Excel.Application');
  excel.Visible := TRUE;
  wbook := excel.Workbooks.Open(tempFile)
end;

когда-то кому-то в дипломнике вот такое написал. с понтом - подключаем плагины и они в эксель выводят программно новые виды форм. хотя экселевский файл тупо вкомпилен в ресурс библиотеки

ganja_boy, 24 Мая 2010

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

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

+104

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

function fnGetWeekDay:integer;
//функция fnGetWeekDay возвращает день недели
var
  CurDate: date;
  dd,mm,yy: word;
  cent, month, iRes : integer;
Begin
  CurDate = CurrentDate;
  DecodeDate(CurDate,yy,mm,dd);
  month = mm;
  if mm < 3 then mm = mm + 10
  else mm = mm - 2;
  if mm > 10 then yy = yy - 1;
  cent = yy div 100;
  yy = yy mod 100;
  iRes = ((2.6*mm-0.2) div 1) + dd + yy + (yy div 4) + (cent div 4) - 2*cent;
  iRes = ((iRes+777) mod 7);
  if (month == 5) or (month == 7) or (month == 10) or (month == 12) then iRes = iRes - 1;
  if iRes == -1 then result = 6
  else if iRes == 0 then result = 7
  else result = iRes;
End; //  fnGetWeekDay

Это не совсем Delphi. Это нечто с крайне похожим синтаксисом.
Почему нельзя было использовать (CurrentDate - <какое-нибудь воскресенье>) mod 7 я не знаю.

rat, 19 Мая 2010

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

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

+102

1
2
3
4
5
6
7

// тут обычный паскалевский код...
if x > y then asm // если икс больше игрека
  mov eax, x  // то меняем их значения местами
  mov edx, y
  mov x, edx
  mov y, eax
end;

Как поменять значения двух целочисленных переменных, не заводя третью? Года 3 назад я делал примерно так.

TarasB, 01 Мая 2010

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

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

+97

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

/// До этой строчки еще больше 1000 строк кода (И это всё в ОДНОЙ процедур)
 finally
    if Main.RecordCount > 0
    then Main.First;
    Main.EnableControls;
    Panel2.Color:=clLime;
    lbTimeSpend.Caption:='Âðåìÿ çàòðà÷åíî:'+TimeToStr(time()-TimeWork);
  end;

  Exit;

  try
    if TmpCollect_Skd.IsSelectAll then
    begin
      Askd_count := TmpCollect_Skd.RxDBGrid1.DataSource.DataSet.RecordCount;
    end
 /// После этой строки еще более 1000 строк кода всё в этой же процедуре!

Продолжим. Вот так люди используют Exit;

goodron, 28 Апреля 2010

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

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

+101

1
2
3

if IntToStr(n) = '2' then begin
  ///  Еще куча говнокода
end;

Устроился я тут работать в одну компанию... Начинаю серию публикаций... Название компании пока не буду озвучивать - еще уволят нах...
Начнём с чего-нибудь простенького :)

goodron, 28 Апреля 2010

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

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

+85

1
2
3
4
5
6
7

destructor TKLCWinFrame.Destroy;
begin
  asm
    nop;
  end;
  inherited;
end;

StriderMan, 23 Апреля 2010

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

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

+106

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

// Вот так вот говнокодеры встречают конeц света:

Function GetYear(StringYear : String) : Integer;
Begin
 If StringYear = '2000' then result:=2000;
 If StringYear = '2001' then result:=2001;
 If StringYear = '2002' then result:=2002;
 If StringYear = '2003' then result:=2003;
 If StringYear = '2004' then result:=2004;
 If StringYear = '2005' then result:=2005;
 If StringYear = '2006' then result:=2006;
 If StringYear = '2007' then result:=2007;
 If StringYear = '2008' then result:=2008;
 If StringYear = '2009' then result:=2009;
 If StringYear = '2010' then result:=2010;
 If StringYear = '2011' then result:=2011;
 If StringYear = 'EndOfTheWorld' then result:=2012;
End;

Ну, как говорится, no comment :))))))))))

ZLOvar, 22 Апреля 2010

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

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

+113

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

//Удаляем последний символ из мемо :)

Procedure Button1Click(Sender : TObject);
Begin
// Some GovnoCode...
 Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
 Memo1.SelStart;
 Memo1.CopyToClipboard;
 Memo1.Clear;
 Memo1.PasteFromClipboard;
// Some GovnoCode...
End;

end.

Вот так, простенько и со вкусом, мы избавляется от последнего символа из Memo1.Text.

ZLOvar, 21 Апреля 2010

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

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

+110.2

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

function HexStrToint(S: String): Integer;
begin
if (s='$00000000') or (s='clBlack')then HexStrToint:=0
else
if s='$00010101' then HexStrToint:=1
else
if s='$00020202' then HexStrToint:=2
else
if s='$00030303' then HexStrToint:=3
else
if s='$00040404' then HexStrToint:=4
else
if s='$00050505' then HexStrToint:=5
else
if s='$00060606' then HexStrToint:=6
else
if s='$00070707' then HexStrToint:=7
else
if s='$00080808' then result:=8
else
if s='$00090909' then result:=9
else
if s='$000A0A0A' then result:=10
else
if s='$000B0B0B' then result:=11
else
if s='$000C0C0C' then result:=12
else
if s='$000D0D0D' then result:=13
else
if s='$000E0E0E' then result:=14
else
if s='$000F0F0F' then result:=15
else
if s='$00101010' then result:=16
else
if s='$00111111' then result:=17
else
if s='$00121212' then result:=18
else
if s='$00131313' then result:=19
else
if s='$00141414' then result:=20
else
if s='$00151515' then result:=21
else
if s='$00161616' then result:=22
else
if s='$00171717' then result:=23
else
if s='$00181818' then result:=24
else
if s='$00191919' then result:=25
else
if s='$001A1A1A' then result:=26
else
if s='$001B1B1B' then result:=27
else
if s='$001C1C1C' then result:=28
else
if s='$001D1D1D' then result:=29
else
if s='$001E1E1E' then result:=30
else
if s='$001F1F1F' then result:=31
else
if s='$00202020' then result:=32
else
if s='$001D1D1D' then result:=33
else
if s='$00222222' then result:=34
else
if s='$00232323' then result:=35
else
if s='$00242424' then result:=36
else
if s='$00252525' then result:=37
else
if s='$00262626' then result:=38
else
if s='$00272727' then result:=39
else
if s='$00282828' then result:=40
else
if s='$00292929' then result:=41
else
if s='$002A2A2A' then result:=42
else
if s='$002B2B2B' then result:=43
else
if s='$002C2C2C' then result:=44
else
if s='$002D2D2D' then result:=45
else
if s='$002E2E2E' then result:=46
else
if s='$002F2F2F' then result:=47
else
if s='$00303030' then result:=48
else

Наткнулся на проявление "гениальности"
// про язык, на котором написано, вообще молчу

Это перевод хексов оттенков серого в числа (там до 255 включительно, но здесь не влезает)
Код, может, и сгенерирован, но все равно это говнокод ^_^

m08pvv, 11 Апреля 2010

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

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