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

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

+100.3

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

procedure TShemaForm.T1Timer(Sender: TObject);
begin
ShemaForm.Visible:=true;
ShemaForm.AlphaBlend:=true;
T1.Enabled:=false;
ShemaForm.AlphaBlendValue:=20;
T2.Enabled:=true;
end;

procedure TShemaForm.T2Timer(Sender: TObject);
begin
T2.Enabled:=false;
ShemaForm.AlphaBlendValue:=50;
T3.Enabled:=true;
end;

procedure TShemaForm.T3Timer(Sender: TObject);
begin
T3.Enabled:=false;
ShemaForm.AlphaBlendValue:=100;
T4.Enabled:=true;
end;

procedure TShemaForm.T4Timer(Sender: TObject);
begin
T4.Enabled:=false;
ShemaForm.AlphaBlendValue:=150;
T5.Enabled:=true;
end;

procedure TShemaForm.T5Timer(Sender: TObject);
begin
T5.Enabled:=false;
ShemaForm.AlphaBlendValue:=200;
T6.Enabled:=true;
end;

procedure TShemaForm.T6Timer(Sender: TObject);
begin
T6.Enabled:=false;
ShemaForm.AlphaBlendValue:=255;
ShemaForm.AlphaBlend:=false;
ShemaForm.SetFocus;
MaForm.ShemaB.BevelWidth:=2;
MaForm.ShemaB.Color:=$00C08080;
end;

Дипломный проект. Реализация плавного появления окна. На плавное исчезновение еще 6 таймеров

guest, 06 Мая 2009

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

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

+115.1

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

case Key of
  'F','f','а' : Key:='А';
  '<',',','б' : Key:='Б';
  'D','d','в' : Key:='В';
  'U','u','г' : Key:='Г';
  'L','l','д' : Key:='Д';
  'T','t','е' : Key:='Е';
  '~','`','ё' : Key:='Ё';
  ':',';','ж' : Key:='Ж';
  'P','p','з' : Key:='З';
  'B','b','и' : Key:='И';
  'Q','q','й' : Key:='Й';
  'R','r','к' : Key:='К';
  'K','k','л' : Key:='Л';
  'V','v','м' : Key:='М';
  'Y','y','н' : Key:='Н';
  'J','j','о' : Key:='О';
  'G','g','п' : Key:='П';
  'H','h','р' : Key:='Р';
  'C','c','с' : Key:='С';
  'N','n','т' : Key:='Т';
  'E','e','у' : Key:='У';
  'A','a','ф' : Key:='Ф';
  '{','[','х' : Key:='Х';
  'W','w','ц' : Key:='Ц';
  'X','x','ч' : Key:='Ч';
  'I','i','ш' : Key:='Ш';
  'O','o','щ' : Key:='Щ';
  'M','m','ь' : Key:='Ь';
  '}',']','ъ' : Key:='Ъ';
  '"','''','э' : Key:='Э';
  'S','s','ы' : Key:='Ы';
  '>','.','ю' : Key:='Ю';
  'Z','z','я' : Key:='Я';
 end;

висит на процедуре Edit1KeyPress :)

guest, 06 Мая 2009

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

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

+136

1
2
3
4
5
6
7
8
9

procedure Button1Click(Sender:TObject)
  begin
  if (TreeView1.Selected<>Nil) then
    if (TreeView1.Selected.ImageIndex = 5) then
      begin
      {выбран лист дерева - обрабатываем}
      ........
      end;
  end;

Написано мною на втором курсе. Тип узла в дереве определялся по ImageIndex - узел каждого типа имел свою картинку.

guest, 04 Мая 2009

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

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

+151

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

procedure TForm1.N4Click(Sender: TObject);//процедура "Файл->Сохранить"
begin
if Form1.Caption='Новый' then
N5Click(Sender) else
   begin // добавить
   Form1.vvod.Lines.SaveToFile(Form1.Caption);//Сохраняем
   Form1.vvod.Tag:=0; // добавить
   end; // добавить
   N7.Enabled:=true;
   vvod.Modified:=false;
   label3.Caption:='Нет';
end;

procedure TForm1.N5Click(Sender: TObject);//Процедура "Файл->Сохранить как..."
var fname:string;
begin
  N7.Enabled:=true;//Включение процедуры "Файл->Закрыть"
  if SaveDialog1.Execute then
  begin
    fname:=SaveDialog1.FileName;
    if SaveDialog1.FilterIndex=1 then//PHP
      begin
      vvod.Lines.SaveToFile(fname+'.php');
      Form1.Caption:=ExtractFileName(fname+'.php');
      end;
    if SaveDialog1.FilterIndex=2 then//HTML
      begin
      vvod.Lines.SaveToFile(fname+'.htm');
      Form1.Caption:=ExtractFileName(fname+'.htm');
      end;
    if SaveDialog1.FilterIndex=3 then//CSS
      begin
      vvod.Lines.SaveToFile(fname+'.css');
      Form1.Caption:=ExtractFileName(fname+'.css');
      end;
    if SaveDialog1.FilterIndex=4 then//txt
      begin
      vvod.Lines.SaveToFile(fname+'.txt');
      Form1.Caption:=ExtractFileName(fname+'.txt');
      end;



    vvod.Modified:=false;
    label3.Caption:='Нет';
  end;
end;

guest, 29 Апреля 2009

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

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

+151

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

library ExDouble;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
 
function calc_double(r: real): real; stdcall;
begin
  result := 2;
end;
 
exports
  calc_double index 1;
 

end.







unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
function calc_double(r: real): real; stdcall; external 'ExDouble.dll';
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>FloatToStr(calc_double(0))then
ShowMessage('')
else begin
ShowMessage('dsfgsdfg');
end;
end;
 
end.

guest, 27 Апреля 2009

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

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

+151

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

procedure Load_flashDEF_setings;
var
  Reg: TRegistry;
  RegKeyPath: string;
begin
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_CURRENT_USER;
   RegKeyPath := 'Software\fuckinSoft';
   OpenKey(RegKeyPath, True);
   if ReadBool('Wipe_File')=false then begin Main.frmMain.CBx_wipe_file.Checked:=false;
   end
   else
   if ReadBool('Wipe_File')=true then begin Main.frmMain.CBx_wipe_file.Checked:=true;
   end
   else
   if ReadBool('Def_Module')=false then begin Main.frmMain.CBx_defence_module.Checked:=false;
   end
   else
   if ReadBool('Def_Module')=true then begin Main.frmMain.CBx_defence_module.Checked:=true;
   end
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;
 
procedure Save_flashDEF_setings;
var
  Reg: TRegistry;
  RegKeyPath: string;
begin
 Reg := TRegistry.Create;
 try
  with Reg do begin
   RootKey := HKEY_CURRENT_USER;
   RegKeyPath := 'Software\fuckinSoft';
   OpenKey(RegKeyPath, True);
   if Main.frmMain.CBx_wipe_file.Checked=true then begin WriteBool('Wipe_File', true);
   end
   else
   if Main.frmMain.CBx_wipe_file.Checked=false then begin WriteBool('Wipe_File', false);
   end
   else
   if Main.frmMain.CBx_defence_module.Checked=true then begin WriteBool('Def_Module', true);
   end
   else
   if Main.frmMain.CBx_defence_module.Checked=false then begin WriteBool('Def_Module', false);
   end
  end
 finally
  Reg.CloseKey;
  Reg.Free;
 end;
end;

Ифы хороши в меру =\

guest, 23 Апреля 2009

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

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

+151

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

if kol=1 then begin
 if GSravn.Cells[kol,Str]='VF'
            then GSravn.Cells[kol,Str]:='RF'
            else if GSravn.Cells[kol,Str]='RF'
                    then GSravn.Cells[kol,Str]:='PF'
                    else if GSravn.Cells[kol,Str]='PF'
                            then GSravn.Cells[kol,Str]:='PT'
                            else if GSravn.Cells[kol,Str]='PT'
                                    then GSravn.Cells[kol,Str]:='RT'
                                    else if GSravn.Cells[kol,Str]='RT'
                                            then GSravn.Cells[kol,Str]:='VT'
                                            else if GSravn.Cells[kol,Str]='VT'
                                                    then GSravn.Cells[kol,Str]:='VF';

%)

guest, 23 Апреля 2009

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

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

+144

1
2
3
4
5
6

...............
...............
cxGrid1DBTableView1.DataController.Groups.FullCollapse;
cxGrid1DBTableView1.DataController.Groups.FullCollapse;
...............
...............

не песдеть что [:||:]
этот говнокомпонет с первого раза не все колапсит только со второго. не ожидал что такое говно придется писать.

guest, 23 Апреля 2009

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

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

+152

1
2
3
4
5

procedure TfmEditAddDet.ControlExit(Sender: TObject);
begin
  if Sender Is TEdit then TRIM(TEdit(Sender).Text)
    else if Sender Is TMemo then TRIM(TEdit(Sender).Text);
end;

Попытка вызова TRIM как процедуру.

guest, 16 Апреля 2009

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

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

+149

1
2
3
4

Tsel=^sel;	
sel=Record
Inf:TInf;
A:Tsel;

Тут Sel это Cell. Это одна малая часть объявления имен

guest, 07 Апреля 2009

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

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

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

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

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

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

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

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

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

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

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

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