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

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

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

procedure TForm2.s1;
var a,a1:real;
begin
a:=a+1.8;
randomize;
if p<1 then
begin
if a<1.9 then
begin
a:=999;
a1:=random(4);
if a1=2 then
begin
GroupBox5.Visible:=True;
GroupBox6.Visible:=False;
GroupBox1.Visible:=False;
end
else
if a1=3 then
begin
GroupBox5.Visible:=False;
GroupBox6.Visible:=True;
GroupBox1.Visible:=False;
end
else
begin
GroupBox5.Visible:=False;
GroupBox6.Visible:=False;
GroupBox1.Visible:=True;
end
end
end
end;

0_o

guest, 31 Января 2009

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

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

+138.9

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

1000:
    nume:=0;
    for i:=1 to mmes do work^[i]{^}:=work^[i]{^}+hde;
    iter:=iter+1;
    for j:=1 to 2 do
begin
    if j=1 then w:=work^[1]{^};
    if j=2 then w:=work^[mmes]{^}  ;
    ab:=2*sqrt(3.*abs(1.-w));
    w1:=ab;
    for i:=1 to 10 do
begin
    w2:=ab * sqrt(1.+w1);
    if abs(w2-w1)<1.e-6 then goto 18;
    w1:=w2
end;
18:
  wkb:=(1.+w2)/w;
  if j=1 then rpsi[1]^:=work^[2]{^}*wkb;
  if j=2 then rpsi[mmes]^:=work^[m1]{^}*wkb
end;
  b:=rpsi[mmes]^;
  for i:=1 to m1 do
begin
    npsi:=mmes-i;
    a:=(12./work^[npsi]{^}-10.0)-1./b;
    rpsi[npsi]^:=a;
    b:=a;
    if a<=1. then goto 30
end;
30:
  mcross:=npsi;
  rmcros:=a;
  b:=rpsi[1]^;
  for i:=2 to mcross do
begin
    a:=(12./work^[i]{^}-10.0)-1./b;
    rpsi[i]^:=a;
    b:=a;
    if a<0. then nume:=nume+1
end;
   if (iter=1) and (nume<num) then writeln('error in initial Eh');
   if nume=num then goto 50;
   if (not bisec) then writeln('give left energy El');
   if (succes) then goto 60;
   if nume>num then eh:=enew;
   if nume<num then el:=enew;
   goto 80;
50:
  m3:=mcross+1;
  m4:=mcross-1;
  a:=1.-0.5/work^[m3]{^};
  a1:=a*(1./rpsi[m3]^-rpsi[mcross]^);
  b:=1.-0.5/work^[m4]{^};
  b1:=b*(rmcros-1./rpsi[m4]^);
  de:=(a1-b1)*work^[mcross]{^};
  if de>0. then eh:=enew;
  if de<0. then el:=enew;
  it:=it+1;
  goto 70;
60:
   it:=0;
70:
   if it>=maxit then goto 100;
80:
   eold:=enew;
   delta:=(el-eh)*0.5;
   enew:=eh+delta;
   hde:=hsq12*(enew-eold);
   succes:=false;
  {writeln  ('delta=',delta); }
   if abs(delta)>1.e-10 then goto 1000;
  {writeln('enew=',enew);  }
   if nume=num then goto 90;
   writeln ('degeneration : num-state=nume-state ');
   halt;
90:
{  lip:=true; }
100:
  succes:=true;

1 из 3-х модулей, которые мне нужно оснастить ГУИ, оптимизировать и привнести абстракцию...

guest, 29 Января 2009

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

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

+25

1
2
3
4

pX := CalcDipol(coord1[index], coord2[index]).X;
pY := CalcDipol(coord1[index], coord2[index]).Y;
MoveTo(center.X, center.Y);
LineTo(pX, pY);

guest, 19 Января 2009

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

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

+29

1
2
3
4
5
6
7

if (Name = PictSection) then
  begin
    if frVariables['SECTION'] <> null then
    if frVariables['SEC_FIRM_ID'] <> null then
                   ;
    exit;
  end;

Нах вообще проверка...

guest, 11 Января 2009

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

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

+20.3

1
2
3
4
5
6
7

if TimeToStr(Now) = TimeToStr(Now) then
 begin
  ShowMessage(TimeToStr(Now));
    end
   else
    ShowMessage(TimeToStr(Now))
   end;

часеги

guest, 11 Января 2009

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

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

+30

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

for i := 0 to high(vParagsChanges) do
    begin
      if vParNumIn < vParagsChanges[i].ParNo1 then
      begin
        inc(vParNumOut, vParagsChanges[i].ParNo1 - vParNumIn);
        vParNumIn := vParagsChanges[i].ParNo1;
      end;

      if i < high(vParagsChanges) then
        if (vParagsChanges[i].ParNo1+vParagsChanges[i].Range=vParagsChanges[i+1].ParNo1) and
        ((vParagsChanges[i].Kind=ckDelete) and (vParagsChanges[i+1].Kind=ckAdd)) then
          {if vParagsChanges[i].Range = vParagsChanges[i+1].Range then} 
          begin
            vUnitedPars := min(vParagsChanges[i].Range, vParagsChanges[i+1].Range);
            if vParagsChanges[i+1].Range >= vUnitedPars then
              vParagsChanges[i+1].Range := vParagsChanges[i+1].Range - vUnitedPars;
            if vParagsChanges[i].Range >= vUnitedPars then
              vParagsChanges[i].Range := vParagsChanges[i].Range - vUnitedPars;
            for j := 0 to vUnitedPars-1 do 
            begin
              FParsHL[vParNumIn+vInsertedCount1+j].Kind := pkReplaced;
              vTagsInfoEx := GetTagsInfo(Editor1.Parag(vParNumIn+vInsertedCount1+j).Str); 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds);
              vTagsInfoEx := GetTagsInfo(Editor2.Parag(vParNumIn+vInsertedCount1+j).Str);
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds);
              if vParagsChanges[i].InCard then 
                FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + [vgCard]
              else
                FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups + [vgText];
            end;
            inc(vParNumIn, vUnitedPars);
            inc(vParNumOut, vUnitedPars);
          end;

      case vParagsChanges[i].Kind of
        ckAdd: begin
          for j := 0 to vParagsChanges[i].Range-1 do
          begin
            vTmpParag := TRTFParag.Create(nil, False, False, raLeft{raRight});
            FEditor1.InsPar(vParNumIn+vInsertedCount1+j, vTmpParag, false);
            FParsHL[vParNumIn+vInsertedCount1+j].Kind := pkAdded;
            vTagsInfoEx := GetTagsInfo(Editor2.Parag(vParNumOut+vInsertedCount2+j).Str); 
            if vParagsChanges[i].InCard then 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgCard]
            else 
              FParsHL[vParNumIn+vInsertedCount1+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgText];
          end;
          inc(vInsertedCount1, vParagsChanges[i].Range);
          inc(vParNumOut, vParagsChanges[i].Range);
        end;
        ckDelete: begin
          for j := 0 to vParagsChanges[i].Range-1 do
          begin
            vTmpParag := TRTFParag.Create(nil, False, False, raLeft);
            FEditor2.InsPar(vParNumOut+vInsertedCount2+j, vTmpParag, false);
            FParsHL[vParNumOut+vInsertedCount2+j].Kind := pkDeleted;
            vTagsInfoEx := GetTagsInfo(Editor1.Parag(vParNumIn+vInsertedCount1+j).Str); 
            if vParagsChanges[i].InCard then 
              FParsHL[vParNumOut+vInsertedCount2+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgCard]
            else 
              FParsHL[vParNumOut+vInsertedCount2+j].ViewGroups := GetViewGroupsByChangeItems(vTagsInfoEx.TagKinds) + [vgText];
          end;
          inc(vInsertedCount2, vParagsChanges[i].Range);
          inc(vParNumIn, vParagsChanges[i].Range);
        end;
        ckModify: begin 
          if (ciAlignment in vParagsChanges[i].ChangedItems) and (vParagsChanges[i].StrChanges = nil) then
            FParsHL[vParNumIn+vInsertedCount1].Kind := pkAlignment
          else
            FParsHL[vParNumIn+vInsertedCount1].Kind := pkModified;

          FParsHL[vParNumIn+vInsertedCount1].Changes := GetViewChanges(vParagsChanges[i].StrChanges);
          FParsHL[vParNumIn+vInsertedCount1].ViewGroups := GetViewGroupsByChangeItems(vParagsChanges[i].ChangedItems);
          if vParagsChanges[i].InCard then 
            if (ciText in vParagsChanges[i].ChangedItems) or (ciAlignment in vParagsChanges[i].ChangedItems) then 
            begin 
              FParsHL[vParNumIn+vInsertedCount1].ViewGroups := FParsHL[vParNumIn+vInsertedCount1].ViewGroups + [vgCard];
              FParsHL[vParNumIn+vInsertedCount1].ViewGroups := FParsHL[vParNumIn+vInsertedCount1].ViewGroups - [vgText, vgAlignment];

              for j := 0 to high(FParsHL[vParNumIn+vInsertedCount1].Changes) do 
                if FParsHL[vParNumIn+vInsertedCount1].Changes[j].ViewGroup = vgText then
                  FParsHL[vParNumIn+vInsertedCount1].Changes[j].ViewGroup := vgCard;
            end;

          inc(vParNumIn, 1);
          inc(vParNumOut, 1);
        end;
      end;
    end;

Такой г****код возник не за 1 день. Голову пришлось поломать основательно :))
Комментарии убраны, дабы не портить удовольствие от прочтения.

guest, 31 Декабря 2008

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

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

−21

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

// Как Было 
  if even then 
    begin
     if (GameAreaForm.Area.ColCount mod 2 = 0) then isstandart:=true
     else isstandart:=false; 
    end
  else
     begin
       if (GameAreaForm.Area.ColCount mod 2 = 0) then isstandart:=false
       else isstandart:=true;
     end;

// Как стало
if (even) then isstandart:=not(GameAreaForm.Area.ColCount mod 2 = 0);
else isstandart:=(GameAreaForm.Area.ColCount mod 2 = 0);

Сравните две части кода.
Однако бывает :-)

guest, 24 Декабря 2008

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

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

−20.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

function find7(S:string):integer;
var
MyArray : TStringList;
n,i,sum, Resultat : integer;
MyInt : String;
begin
MyArray := TStringList.Create;
Trim(S); n:= 0;
while(Length(s)>0) do begin
Trim(S);
if(Pos(' ',S)=0) then begin
MyArray.Insert(n,Copy(S,1,Length(S)));
break;
end else begin
  if(Copy(S,1,Pos(' ',S))=' ') then begin
  Delete(S,1,(Pos(' ',S)));
  end else begin
    MyArray.Insert(n,Copy(S,1,Pos(' ',S)));
    Delete(S,1,(Pos(' ',S)));
    n:=n+1;
    end;
end;
end;
  Resultat := 0;
  for i := 0 to MyArray.Count-1 do begin
    MyInt := MyArray.Strings[i]; Sum := 0;
    for n := 1 to Length(MyInt) do begin
      if(MyInt[n]='7') then Sum := Sum + 1;
    end;
    if(Sum>=2) then Resultat := Resultat + 1;
  end;
  Result := Resultat;
end;

Жуть...

guest, 24 Декабря 2008

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

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

−29.2

1
2
3
4
5

for i:=1 to n do
begin
    j:=i;
    a:=b*exp((j-1)*ln(r));
end;

Задание геометрической прогрессии. Из решения школьной задачки.

guest, 22 Декабря 2008

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

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

−186.9

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

for J1:=0 to Length(wArTypCoil[JJ])-1 do begin
      with wArTypCoil[JJ][J1] do begin
       with cTyp_coil do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm5:=II;StrN:=2230;mEd:=true;Lev:=2;end;P5;ArP5[IJ5]:=@cTyp_coil;inc(IJ5);inc(II);
       with cD_in do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2231;mEd:=true;NPos:=1;Lev:=2;end;P1;ArP1[IJ1]:=@cD_in;inc(IJ1);inc(II);
       with cTyp_pr do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm6:=II;NTypChs1:=1;StrN:=2232;mEd:=true;Lev:=2;end;P6;ArP6[IJ6]:=@cTyp_Pr;inc(IJ6);inc(II);
       with cRad_str do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm5:=II; StrN:=2233;mEd:=true;Lev:=2;end;P5;ArP5[IJ5]:=@cRad_str;inc(IJ5);inc(II);
       with cPW_coil_rad do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm2:=II; StrN:=2235;mEd:=true;Lev:=2;end;P2;ArP2[IJ2]:=@cPW_coil_rad;inc(IJ2);inc(II);
       with cPW_coil_os do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm2:=II; StrN:=2248;mEd:=true;Lev:=2;end;P2;ArP2[IJ2]:=@cPW_coil_os;inc(IJ2);inc(II);
       with cRat_cur do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2236;mEd:=true;NPos:=2;Lev:=2;end;P1;ArP1[IJ1]:=@cRat_cur;inc(IJ1);inc(II);
       with cTrn_coil do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2237;mEd:=true;NPos:=3;Lev:=2;end;P1;ArP1[IJ1]:=@cTrn_coil;inc(IJ1);inc(II);
       with cRad_dim do begin NRow:=J1+1;NTab:=II_Tabl+4; Itm1:=II; StrN:=2271;mEd:=true;NPos:=3;Lev:=2;end;P1;ArP1[IJ1]:=@cRad_dim;inc(IJ1);inc(II);
       //...
      end;
     end;
     with wArNconcentr[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm2:=II; StrN:=2279;mEd:=false;Lev:=1;end;P2;ArP2[IJ2]:=@wArNconcentr[JJ];inc(IJ2);inc(II);
     with wArM_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2316;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArM_c[JJ];inc(IJ3);inc(II);
 //    with wArNumZoneOtvod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2317;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumZoneOtvod_c[JJ];inc(IJ3);inc(II);
 //    with wArNumZoneVdod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2318;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumZoneVdod_c[JJ];inc(IJ3);inc(II);
 //    with wArNxod_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2319;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNxod_c[JJ];inc(IJ3);inc(II);
 //    with wArNcur_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2320;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNcur_c[JJ];inc(IJ3);inc(II);
 //    with wArParam_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2321;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArParam_c[JJ];inc(IJ3);inc(II);
 //    with wArSw_c[JJ] do begin NTab:=II_Tabl+1; Itm3:=II; StrN:=2322;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:=@wArSw_c[JJ];inc(IJ3);inc(II);
     with wArNumKolc_top_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; ; Itm3:=II; StrN:=2328;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumKolc_top_c[JJ];inc(IJ3);inc(II);
     with wArNumKolc_bot_c[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2329;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNumKolc_bot_c[JJ];inc(IJ3);inc(II);
     with wArNreek_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2313;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNreek_ar[JJ];inc(IJ3);inc(II);
     with wArGshreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2314;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArGshreik_ar[JJ];inc(IJ3);inc(II);
     with wArGtreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2315;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArGtreik_ar[JJ];inc(IJ3);inc(II);
     with wArShreik_ar[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm3:=II; StrN:=2404;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArShreik_ar[JJ];inc(IJ3);inc(II);
     with wArNpr[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm2:=II; StrN:=2369;mEd:=true;Lev:=1;end;P2;ArP2[IJ2]:=@wArNpr[JJ];inc(IJ2);inc(II);
     with wArShpr[JJ] do begin NRow:=1;NTab:=II_Tabl+3; Itm1:=II; StrN:=2245;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArShpr[JJ];inc(IJ1);inc(II);

     with wArRadZaz_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm3:=II; StrN:=2323;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArRadZaz_w[JJ];inc(IJ3);inc(II);
     with wArStr_os_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm1:=II; StrN:=2324;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArStr_os_w[JJ];inc(IJ1);inc(II);
     with wArPrizn_radop_w[JJ] do begin NRow:=1;NTab:=II_Tabl+1; Itm4:=II;NTypChs:=0;StrN:=2325;mEd:=true;Lev:=1;end;P4;ArP4[IJ4]:=@wArPrizn_radop_w[JJ];inc(IJ4);inc(II);

     with wArAxStr[JJ].awAxialStr do begin NRow:=1;NTab:=II_Tabl+5; Itm5:=II; StrN:=2243;mEd:=true;Lev:=1;end;P5;ArP5[IJ5]:=@wArAxStr[JJ].awAxialStr;inc(IJ5);inc(II);
     with wArYokeRast_bot_w[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2265;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArYokeRast_bot_w[JJ];inc(IJ1);inc(II);
     with wArElectrH_w[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2266;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArElectrH_w[JJ];inc(IJ1);inc(II);
     with wArElectr_centre[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm1:=II; StrN:=2395;mEd:=false;NPos:=1;Lev:=1;end;P1;ArP1[IJ1]:=@wArElectr_centre[JJ];inc(IJ1);inc(II);
     with wArKanBottom[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm3:=II; StrN:=2341;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArKanBottom[JJ];inc(IJ3);inc(II);
     with wArKanTop[JJ] do begin NRow:=1;NTab:=II_Tabl+2; Itm3:=II; StrN:=2342;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArKanTop[JJ];inc(IJ3);inc(II);

     with wArComIsZone[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm1:=II; StrN:=2339;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArComIsZone[JJ];inc(IJ1);inc(II);
     with wArMprIsZone[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm1:=II; StrN:=2340;mEd:=true;NPos:=2;Lev:=1;end;P1;ArP1[IJ1]:=@wArMprIsZone[JJ];inc(IJ1);inc(II);
     with wArKus_pr[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2249;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_pr[JJ];inc(IJ1);inc(II);
     with wArKus_bm_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2250;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_bm_is[JJ];inc(IJ1);inc(II);
     with wArKus_ob_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2251;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_ob_is[JJ];inc(IJ1);inc(II);
     with wArKus_mpr_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2252;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_mpr_is[JJ];inc(IJ1);inc(II);
 //    with wArKus_msl_is[JJ] do begin NRow:=1;NTab:=II_Tabl+7; Itm1:=II; StrN:=2253;mEd:=true;NPos:=3;Lev:=1;end;P1;ArP1[IJ1]:=@wArKus_msl_is[JJ];inc(IJ1);inc(II);
     with wArTypIsol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=2;StrN:=2254;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:=@wArTypIsol[JJ];inc(IJ6);inc(II);

     with wArEndIsol_bot[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2258;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:=@wArEndIsol_bot[JJ];inc(IJ3);inc(II);
     with wArEndIsol_top[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2259;mEd:=true;NPos:=1;Lev:=1;end;P3;ArP3[IJ3]:=@wArEndIsol_top[JJ];inc(IJ3);inc(II);
     with wArTypMat_end_top_w[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=3;StrN:=2326;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:=@wArTypMat_end_top_w[JJ];inc(IJ6);inc(II);
     with wArTypMat_end_bot_w[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm6:=II;NTypChs1:=3;StrN:=2327;mEd:=true;Lev:=1;end;P6;ArP6[IJ6]:=@wArTypMat_end_bot_w[JJ];inc(IJ6);inc(II);
     with wArNst_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2332;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNst_top_isol[JJ];inc(IJ3);inc(II);
     with wArNst_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2333;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArNst_bot_isol[JJ];inc(IJ3);inc(II);
     with wArSh_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2334;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArSh_top_isol[JJ];inc(IJ3);inc(II);
     with wArSh_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2335;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArSh_bot_isol[JJ];inc(IJ3);inc(II);
     with wArRad_top_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2336;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArRad_top_isol[JJ];inc(IJ3);inc(II);
     with wArRad_bot_isol[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2337;mEd:=true;NPos:=2;Lev:=1;end;P3;ArP3[IJ3]:=@wArRad_bot_isol[JJ];inc(IJ3);inc(II);

 //    with wArPriznZakr[JJ] do begin NRow:=1;NTab:=II_Tabl+6; Itm3:=II; StrN:=2338;mEd:=true;NPos:=0;Lev:=1;end;P3;ArP3[IJ3]:=@wArPriznZakr[JJ];inc(IJ3);inc(II);
     //....
    end;

Просто говно. Кусок одного из вложенных циклов

guest, 20 Декабря 2008

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

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