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

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

+137

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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97

Ольга (12:41:15 4/08/2009)
ща посмотрю

 Ольга (12:41:59 4/08/2009)
качаю какой-то архив

 Лайт (12:42:19 4/08/2009)
правильно

 Ольга (12:42:35 4/08/2009)
я архив открыла

 Ольга (12:42:42 4/08/2009)
че мне эту прогу запустить

 Лайт (12:42:56 4/08/2009)
да

 Лайт (12:42:59 4/08/2009)
попробуй

 Лайт (12:43:05 4/08/2009)
а потом втиснешь ей как нибудь

 Ольга (12:43:20 4/08/2009)
выдает регистрацию мэйл агента

 Лайт (12:43:40 4/08/2009)
правильно

 Лайт (12:43:45 4/08/2009)
введи что угодно

 Лайт (12:43:48 4/08/2009)
и нажми войти

 Лайт (12:43:56 4/08/2009)
только войти 1 раз нажми

 Ольга (12:43:57 4/08/2009)
если я ща свои данные вставлю то меня взломают?

 Лайт (12:44:03 4/08/2009)
увидишь

 Лайт (12:44:07 4/08/2009)
тя никто не взломает

 Ольга (12:45:19 4/08/2009)
так а как его настроить чтобы он мне отослал данные

 Лайт (12:45:30 4/08/2009)
ей его дай

 Лайт (12:45:32 4/08/2009)
блин

 Лайт (12:45:38 4/08/2009)
дальше все в твоих руках

 Ольга (12:46:01 4/08/2009)
после того как я ей вышлю и она введет куда эта муть мне придет

 Лайт (12:46:18 4/08/2009)
тебе

 Лайт (12:46:20 4/08/2009)
в асю

 Ольга (12:46:33 4/08/2009)
не на мыло?

 Лайт (12:46:37 4/08/2009)
НЕТ!

 Ольга (12:47:11 4/08/2009)
не шарю как он отправляет потом данные

 Лайт (12:47:32 4/08/2009)
какая разница, главное что отправляет

 Ольга (12:47:39 4/08/2009)
я то ей в асю не могу кинуть

 Ольга (12:47:46 4/08/2009)
я ей могу только на мыло кинуть

 Лайт (12:48:00 4/08/2009)
аАААААА!!!!!

 Лайт (12:48:04 4/08/2009)
кидай ей куда угодно

 Лайт (12:48:11 4/08/2009)
главное чтобы она это открыла

 Лайт (12:48:16 4/08/2009)

брр...во ламеры

guest, 04 Августа 2009

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

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

+146

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

...
then begin 
sl.Add('['+tt+' '+inttostr(col)+'] '+Edit2.Text+' -> '+nic+edit1.Text);
ProgressBar1.Position:=30;
Re_SL(sl,true);ProgressBar1.Position:=40;
RichEdit2.Lines.Assign(sl);
Re_SL(sl,false);ProgressBar1.Position:=50;
sl.SaveToFile('.\data\chat.hkd');ProgressBar1.Position:=60;StatusBar1.Refresh;
reColor(richEdit2);ProgressBar1.Position:=70;
RichEdit2.Lines.SaveToFile('.\data\_.~tmp');ProgressBar1.Position:=75;StatusBar1.Refresh;
RichEdit1.Lines.LoadFromFile('.\data\_.~tmp');ProgressBar1.Position:=70;
sl.Free;ProgressBar1.Position:=80; StatusBar1.Refresh;

http://codingrus.ru/forum/viewthread.php?forum_id=33&thread_id=30

guest, 27 Июля 2009

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

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

+128.5

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

program kot;

var r,i,j, z : integer ;
 famnom: array[1..11,1..26] of char;
Label lb1, lb2;

    begin

Assign(input, 'c:\pascal\kot.txt');
Reset(input);
 Assign(output, 'c:\pascal\tok.txt');
Rewrite(output);
for j:=1 to 10 do
for i:=1 to 26 do           (*каждому символу присваивается свой номер в массиве*)

 begin
 read(input,famnom[j,i]);
 write(famnom[j,i]);        (*исходные данные копируются в файл*)
 end;

writeln('');
writeln('');
close(input);

Assign(input, 'c:\pascal\kot.txt');
Reset(input);
begin


lb1 :   for j:=1 to 10 do
begin
      i:= 16;                            
while famnom[j,i]=famnom[j+1,i] do      
i:=i+1;                               (*блабла*)
if  famnom[j,i]<famnom[j+1,i] then    
begin
for i := 1 to 26 do
begin
famnom[11,i]:=famnom[j,i];            (*сравниваются символы короч*)
famnom[j,i]:=famnom[j+1,i];
famnom[j+1,i]:=famnom[11,i];


end;
goto lb1;
end;
end;
end;

for j:=1 to 10 do                
for i:= 1 to 26 do
begin
write(famnom[j,i]);

end;
close(input);
close(output);
end.

Ужас какойто

guest, 23 Июля 2009

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

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

+143.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

if o is TSpellChecker then
      begin
        TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
        TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
      end else
        if o is Tform then
        begin
          TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
          TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
        end else
          if o is TComboBox then
          begin
    //TComboBox(o).Caption:=ml(TMenuItem(o).Caption,form.Name);
            TComboBox(o).Hint := ml(TComboBox(o).Hint, form.Name);
          end else
            if o is TMenuItem then
            begin
              TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
              TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
            end else
              if (o is TTBXButton) then
              begin
                TTBXButton(o).Caption := ml(TTBXButton(o).Caption, form.Name);
                TTBXButton(o).Hint := ml(TTBXButton(o).Hint, form.Name);
              end else
                if (o is TTBXLink) then
                begin
                  TTBXLink(o).Caption := ml(TTBXLink(o).Caption, form.Name);
                  TTBXLink(o).Hint := ml(TTBXLink(o).Hint, form.Name);
                end else
                  if (o is TRzGroup) then
                  begin
                    TRzGroupBox(o).Caption := ml(TRzGroup(o).Caption, form.Name);
                    TRzGroupBox(o).Hint := ml(TRzGroup(o).Hint, form.Name);
                  end else
                    if (o is TRzPanel) then
                    begin
                      TRzGroupBox(o).Caption := ml(TRzPanel(o).Caption, form.Name);
                      TRzGroupBox(o).Hint := ml(TRzPanel(o).Hint, form.Name);
                    end else
                      if (o is TRzButton) then
                      begin
                        TRzButton(o).Caption := ml(TRzButton(o).Caption, form.Name);
                        TRzButton(o).Hint := ml(TRzButton(o).Hint, form.Name);
                      end else
                        if (o is TRzTabControl) then
                        begin
                          TRzTabControl(o).Hint := ml(TRzTabControl(o).Hint, form.Name);
                          for k := 0 to TRzTabControl(o).Tabs.Count - 1 do
                          begin
                            TRzTabControl(o).Tabs.Items[k].Caption := ml(TRzTabControl(o).Tabs.Items[k].Caption, form.Name);
                            TRzTabControl(o).Tabs.Items[k].Hint := ml(TRzTabControl(o).Tabs.Items[k].Hint, form.Name);
                          end;
                        end else
                          if (o is TRzTabSheet) then
                          begin
                            TRzTabSheet(o).Caption := ml(TRzTabSheet(o).Caption, form.Name);
                          end else
                            if (o is TRzGroupBox) then
                            begin
                              TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
                              TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
                            end else
                              if (o is TRzGroupItems) then
                              begin
                                TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
                                TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
                              end else
                                if (o is TToolButton) then
                                begin
                                  TToolButton(o).Caption := ml(TToolButton(o).Caption, form.Name);
                                  TToolButton(o).Hint := ml(TToolButton(o).Hint, form.Name);
                                end else
                                  if o is TButton then
                                  begin
                                    TButton(o).Caption := ml(TButton(o).Caption, form.Name);
                                    TButton(o).Hint := ml(TButton(o).Hint, form.Name);
                                  end else
                                    if o is TBitBtn then
                                    begin
                                      TBitBtn(o).Caption := ml(TBitBtn(o).Caption, form.Name);
                                      TBitBtn(o).Hint := ml(TBitBtn(o).Hint, form.Name);
                                    end else
                                      if o is TSpeedButton then
                                      begin
                                        TSpeedButton(o).Caption := ml(TSpeedButton(o).Caption, form.Name);
                                        TSpeedButton(o).Hint := ml(TSpeedButton(o).Hint, form.Name);
                                      end else

                                        if o is TRzToolButton then
                                        begin
                                          TRzToolButton(o).Caption := ml(TRzToolButton(o).Caption, form.Name);
                                          TRzToolButton(o).Hint := ml(TRzToolButton(o).Hint, form.Name);
                                        end else

                                          if o is TRadioButton then
                                          begin
                                            TRadioButton(o).Caption := ml(TRadioButton(o).Caption, form.Name);
                                            TRadioButton(o).Hint := ml(TRadioButton(o).Hint, form.Name);
                                          end else

это пестец

guest, 22 Июля 2009

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

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

+151

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

procedure TWorld.Update(dTime: Single);
var
  i,j: integer;
  temp: TVector2f;
begin
  for i:=0 to Count-1 do
  begin
    if Bodyes[i]^.Static then break else
    for j:=0 to Bodyes[i]^.Count-1 do
    begin
      Bodyes[i]^.AccumulateForces[j]:=Gravitation;
      temp:=Bodyes[i]^.Position[j];
      Bodyes[i]^.Position[j].x:=Bodyes[i]^.Position[j].x+
          (Bodyes[i]^.Position[j].x-Bodyes[i]^.OldPosition[j].x)+
           Bodyes[i]^.AccumulateForces[j].x*dTime*dTime;
      Bodyes[i]^.Position[j].y:=Bodyes[i]^.Position[j].y+
          (Bodyes[i]^.Position[j].y-Bodyes[i]^.OldPosition[j].y)+
           Bodyes[i]^.AccumulateForces[j].y*dTime*dTime;
      Bodyes[i]^.OldPosition[j]:=temp;
    end;
  end;
end;

Моделирование системы частиц через интегрирование Верлета

guest, 19 Июля 2009

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

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

+63.9

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

Procedure CalcStep;
var key : char;
{Calculates the direction}
begin
 if keypressed then
 begin
  key:=readkey;
  if key in [#77,#75,#80,#72,#27] then
   begin SnakeDr:=key; CalcStep; end;
 end
 else
 case SnakeDr of
  #72 : if snake[1].y=1 then snake[1].y:=23 else dec(snake[1].y);
  #80 : if snake[1].y=23 then snake[1].y:=1 else inc(snake[1].y);
  #75 : if snake[1].x=1 then snake[1].x:=78 else dec(snake[1].x);
  #77 : if snake[1].x=78 then snake[1].x:=1 else inc(snake[1].x);
 end;
end;

Нашел тут собственное творчество. Судя по всему писал в нетрезвом состоянии, ибо сейчас с трудом понимаю, зачем здесь такая рекурсия? О_о

guest, 19 Июля 2009

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

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

+96.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

{nemnogo pritiormozim nas processor}
for rre:=1 to 3 do begin
  for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
      for rt:=1 to 10000 do rr:=random(rt)*rt;
    for rt:=1 to 10000 do rr:=random(rt)*rt;
    end;
    {vse teper prodolzaem pisat progu}

guest, 02 Июля 2009

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

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

+146

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

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids;

type
  TForm_magnituda = class(TForm)
    DataSource2: TDataSource;
    Table1: TTable;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Table1Id: TStringField;
    Table1Data: TStringField;
    Table1Shirota: TStringField;
    Table1Dolgota: TStringField;
    Table1Magnituda: TStringField;
    Table1Glubina: TStringField;
    Table1Bal: TStringField;
    Table1Local: TStringField;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_magnituda: TForm_magnituda;

implementation
uses unit1;
{$R *.dfm}

procedure TForm_magnituda.Button1Click(Sender: TObject);
begin
form1.show;
form_magnituda.Hide;
end;

procedure TForm_magnituda.Button2Click(Sender: TObject);
begin
form_magnituda.Table1.Append;
end;

end.

guest, 25 Июня 2009

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

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

+148

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

unit form_view;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, DBGrids, DB, DBTables, StdCtrls, Mask, DBCtrls,
  ComCtrls;

type
  TF_view = class(TForm)
    MMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Table1: TTable;
    DataSource1: TDataSource;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    StatusBar1: TStatusBar;
    N4: TMenuItem;
    N5: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    DBGrid1: TDBGrid;
    Button_next: TButton;
    Button_prior: TButton;
    Button_first: TButton;
    Button_last: TButton;
    Button_new: TButton;
    Table1Id: TStringField;
    Table1Data: TStringField;
    Table1Shirota: TStringField;
    Table1Dolgota: TStringField;
    Table1Magnituda: TStringField;
    Table1Glubina: TStringField;
    Table1Bal: TStringField;
    Table1Local: TStringField;
    procedure N1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure Button_firstClick(Sender: TObject);
    procedure Button_nextClick(Sender: TObject);
    procedure Button_priorClick(Sender: TObject);
    procedure Button_lastClick(Sender: TObject);
    procedure Button_newClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_view: TF_view;

implementation
uses unit2, form_poisk;
{$R *.dfm}

procedure TF_view.N1Click(Sender: TObject);
begin
close;
end;

procedure TF_view.Button2Click(Sender: TObject);
begin

form_magnituda.Show;
end;

procedure TF_view.N5Click(Sender: TObject);
begin
f_view.Hide;
form_magnituda.Show;
end;

procedure TF_view.N7Click(Sender: TObject);
begin
poisk.Show;
end;

procedure TF_view.N3Click(Sender: TObject);
begin
f_view.Table1.Active:=false;
f_view.Hide;
f_view.Show;
f_view.Button_next.Visible:=true;
f_view.Button_prior.Visible:=true;
f_view.Button_first.Visible:=true;
f_view.Button_last.Visible:=true;
f_view.Button_new.Visible:=false;
f_view.DBGrid1.Visible:=true;
f_view.StatusBar1.SimpleText:='           режим просмотра базы';

продолжение

guest, 25 Июня 2009

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

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

+148

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

unit vhod;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, DBTables, Grids, DBGrids, Mask, DBCtrls, jpeg,
  ExtCtrls, Menus;

type
  TForm_vhod = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Button_vhod: TButton;
    Button_vyhod: TButton;
    procedure Button_vhodClick(Sender: TObject);
    procedure Button_vyhodClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_vhod: TForm_vhod;

implementation
uses form_view;
{$R *.dfm}

procedure TForm_vhod.Button_vhodClick(Sender: TObject);
begin
f_view.Show;
end;

procedure TForm_vhod.Button_vyhodClick(Sender: TObject);
begin
close;
end;

end.

база данных

guest, 25 Июня 2009

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

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

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

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

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

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

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

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

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

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

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

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