1. Pascal / Говнокод #19869

    +4

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    83. 83
    84. 84
    85. 85
    86. 86
    87. 87
    88. 88
    89. 89
    90. 90
    91. 91
    92. 92
    93. 93
    94. 94
    95. 95
    uses crt;
    begin
      
    gotoxy (34,12);
    write ('*'); {Центр}
    
    {шагаем линию от центра в лево на 6 позиций, меняется только ось Х в - 6}
    gotoxy (33,12);
    write ('*');
    gotoxy (32,12);
    write ('*');
    gotoxy (31,12);
    write ('*');
    gotoxy (30,12);
    write ('*');
    gotoxy (29,12);
    write ('*');
    gotoxy (28,12);
    write ('*'); 
    
    {шагаем линию от центра в право на 6 позиций, меняется только ось Х в + 6}
    gotoxy (35,12);
    write ('*');
    gotoxy (36,12);
    write ('*');
    gotoxy (37,12);
    write ('*');
    gotoxy (38,12);
    write ('*');
    gotoxy (39,12);
    write ('*');
    gotoxy (40,12);
    write ('*');
    
    {шагаем верх линию от центра на 6 позиций, меняется только ось У на - 6}
    gotoxy (34,11);
    write ('*');
    gotoxy (34,10);
    write ('*');
    gotoxy (34,9);
    write ('*');
    gotoxy (34,8);
    write ('*');
    gotoxy (34,7);
    write ('*');
    gotoxy (34,6);
    write ('*');
    
    {шагаем диагональ лево верхнее крыло на 6 позиций меняются все оси}
    
    gotoxy (29,11);
    write ('*');
    gotoxy (30,10);
    write ('*');
    gotoxy (31,9);
    write ('*');
    gotoxy (32,8);
    write ('*');
    gotoxy (33,7);
    write ('*');
    gotoxy (34,6);
    write ('*');
    
    {шагаем диагональ право верхнее крыло на 6 позиций меняются все оси}
    gotoxy (35,7);
    write ('*');
    gotoxy (36,8);
    write ('*');
    gotoxy (37,9);
    write ('*');
    gotoxy (38,10);
    write ('*');
    gotoxy (39,11);
    write ('*');
    gotoxy (40,12);
    write ('*');
    
    {шагаем вниз линию от центра на 6 позиций, меняется только ось У на + 6}
    gotoxy (34,13);
    write ('*');
    gotoxy (34,14);
    write ('*');
    gotoxy (34,15);
    write ('*');
    gotoxy (34,16);
    write ('*');
    gotoxy (34,17);
    write ('*');
    gotoxy (34,18);
    write ('*');
    
    {шагаем диагональ право нижнее крыло на 6 позиций меняются все оси}
    gotoxy (35,17);
    write ('*');
    gotoxy (36,16);

    Вот такая вот еботина

    karl, 23 Апреля 2016

    Комментарии (21)
  2. Pascal / Говнокод #19866

    −2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    {Программа позволяющая найти номер квартиры в любом доме, введите данные конструкции. количество подъездов количесвто этажей, количество квартир на этаж. 
     Вводим номер квартиры и получаем результат.}
    uses crt;
    label l1,l2,l3;
    var
    i,i1,m,kv,numkv,etag,searhkv,numetag,pod,numpod,sey,error:integer;
    
      begin
      l1:
      ClrScr;
      write ('Введите количество подъездов: ');
      readln (pod);
      write ('Введите количество этажей: ');
      readln (etag);
      write ('Введите количество квартир на этаж: ');
      readln (kv);
     
     error:=(etag*kv)*pod; {некорректный ввод пользователя}
             
         writeln;
                writeln('Возможный вариант квартир ',error);
                writeln;
     
     l3:
     write ('Введите искомый номер квартиры: ');
      readln (searhkv);
       writeln;
      
              if searhkv>error then
                    begin
                    
                     writeln; 
                     textcolor(4);
             writeln ('некорректный ввод номера квартиры');
             writeln;
                      textcolor(7);
             writeln ('повторить ввод номера       - 1');           
             writeln ('повторить ввод всех данных  - 2');  
             writeln ('выход                       - 3');  
             writeln;
             write ('Введите номер нужного вам пункта: ');
             readln (sey);
    
                case sey of
                1: goto l3;
                2: goto l1;
                3: goto l2;
                end; {case}
                    end; {if error}
                    
              
                    
    for m:=1 to pod do
       begin
       
       numpod:=m; {Номера подъезда}
      
      for i:=1 to etag do
         begin
          
           numetag:=i;  {Номера этажей}
          
           for i1:=1 to kv do
             begin 
              numkv:=numkv+1; {Номера квартир}
              if searhkv = numkv then 
           writeln (numetag,' ','этаж','   ',numpod,' ','подеъзд')
              
              
               end; {for kv}
               
        
                end; {for etag}
                 
                  end; {for pod}
            
       l2:
        writeln;
        readln;
       writeln ('Удачи');
             
         end.

    karl, 22 Апреля 2016

    Комментарии (98)
  3. Pascal / Говнокод #19861

    +2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    function CanonicPath(const PathName:string):string; forward;
    begin
    	SetLength(Result,Length(PathName));
    	if PathCanonicalize(PChar(Result), PChar(PathName)) then
    	SetLength(Result, PChar(StrLen(Result)))
    	else
    	Result:=PathName;
    end;
    
    var
    	i:integer;
    	path:string;
    begin
     {...}
    	for i:=1 to 200 do
    	Path:=PathCanonicalize(Path);
    {...}

    "а вот и таран!.. Святые отцы-каноники посылают нам его!"

    fajes_rown, 22 Апреля 2016

    Комментарии (6)
  4. Pascal / Говнокод #19827

    +3

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    iPart := ksPart(iDocument3D.GetPart( pNew_Part )); // новый компонент
      if iPart <> nil then
      begin
       iSketchEntity := ksEntity( iPart.NewEntity( o3d_sketch ));
        if iSketchEntity <> nil then
        begin
          // интерфейс свойств эскиза
          iSketchDef := ksSketchDefinition(iSketchEntity.GetDefinition);
          if iSketchDef <> nil then
          begin
            // интерфейс плоскости XOY
            iPlaneEntity := ksEntity(iPart.GetDefaultEntity( o3d_planeXOY ));
    
            if iPlaneEntity <> nil then
            begin
              iSketchDef.SetPlane( iPlaneEntity ); // установим плоскость XOY базовой для эскиза
              iSketchEntity.Create; // создадим эскиз
              // интерфейс редактора эскиза
              iSketchDocument2D := ksDocument2D(iSketchDef.BeginEdit);
    
              if iSketchDocument2D <> nil then
              begin
    
    
    
                ... //сокращено для вашего благополучия
    
    
    
    
    		      if iBossExtrusionDef <> nil then
                          begin
    		      	iExtrusionProperty := ksExtrusionPa-ram(iBossExtrusionDef.ExtrusionParam); // интерфейс структуры параметров выдавли-вания
    		      	iThinProperty := ksThinParam(iBossExtrusionDef.ThinParam); // интер-фейс структуры параметров тонкой стенки
    
    		      	if (iExtrusionProperty <> nil) and (iThinProperty <> nil ) then
                            begin
       		      	  iBossExtrusionDef.SetSketch( iSketch2Entity ); // эскиз операции выдав-ливания
                              iExtrusionProperty.Direction := dtNormal; // направление выдавливания (прямое)
    			  iExtrusionProperty.TypeNormal := etBlind; // тип выдавливания ( стро-го на глубину )
    			  iExtrusionProperty.DepthNormal := 50; // глубина выдавливания
                              iThinProperty.Thin := false; // без тонкой стенки
    
                              iBossExtrusion.Create; // создадим операцию
                            end;
                          end;
                        end;
                      end;
                          end;
                        end;
                      end;
                    end;
                end;
              end;
            end;
          end;
        end;
      end;
    end;
    
        Form2.Close;
    end;

    Официальный пример использования API КОМПАС-3D под Delphi

    itaksoydet, 16 Апреля 2016

    Комментарии (54)
  5. Pascal / Говнокод #19801

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    case MarkType of
        mtNormal:
          Normal.FindItem(M, OutV);
        mtUpLimit:
          OutV.Reset(M, rtUpLimit);
        mtDownLimit:
          OutV.Reset(M, rtDownLimit);
        mtStartDefault:
          if Owner.IsMount then
            OutV.Reset(M, rtDefault);
          else if not Owner.Scene.FindPreviousMark(M, OutV) then
            OutV.Reset(M, rtDefault);
      end;

    ахаха, синтаксисопроблемы.

    kipar, 12 Апреля 2016

    Комментарии (6)
  6. Pascal / Говнокод #19587

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    const
     base = 10000;
     dig = 4;
     maxlen = 100;
    type
     ArrCh = ARRAY [0..maxlen] of integer;
     
    function StrToArr(a: string): ArrCh;
    var NUM: ArrCh;
        len,j,c: integer;
        temp: string;
    begin
     len:=length(a);
     While len>dig do
      begin
        temp:=copy(a,len-dig+1,dig);
        inc(j);
        val(temp,NUM[j],c);
        delete(a,len-dig+1,dig);
        len:=length(a);
      end;  
     val(a,NUM[j+1],c); 
     NUM[0]:=j+1;
     StrToArr:=NUM;
    end;
    
    function ADD(a,b:ArrCh): ArrCh;
    var i,r: integer;
    begin
    r:=0;
    if a[0]<b[0] then a[0]:=b[0];
    for i:=1 to a[0] do
      begin
        if r=0 then a[i]:=a[i]+b[i]
               else begin
                      a[i]:=a[i]+b[i]+1;
                      r:=0;
                    end; 
        if a[i]>=base then 
          begin
            a[i]:=a[i] mod base;
            r:=1;
          end;
      end;
     if r<>0 then 
       begin
        a[0]:=a[0]+1;
        a[a[0]]:=1;
       end; 
     ADD:=a;  
    end;  
          
    var a,b: string;
        i: integer;
        n1,n2,sum: ArrCh;
    begin
     readln(a); readln(b);
     n1:=StrToArr(a); n2:=StrToArr(b);
     writeln(n1[0]);
     sum:=ADD(n1,n2);
     for i:=sum[0] downto 1 do 
       if sum[i]=0 then write('0000')
                   else if (sum[i]<1000) and (i<>sum[0]) then 
                          begin
                            if sum[i] div 10=0 then write('000',sum[i])
                                               else
                            if sum[i] div 100=0 then write('00',sum[i])
                                                else
                            if sum[i] div 1000=0 then write('0',sum[i]);
                          end  
                   else write(sum[i]);
    end.

    Говнокод, складывающий длинные числа.

    FenFench, 07 Марта 2016

    Комментарии (0)
  7. Pascal / Говнокод #19582

    −2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    procedure TDev.ScanBtnClick(Sender: TObject);
    var
      sel:tlistitem;
      drv:DriveObj;
      i:integer;
    begin
      for i:=devlist.Items.Count -1 downto 0 do
      begin
        sel:=devlist.items[i];
        if not sel.selected then continue;
        if sel.SubItems.Objects[0] is DriveObj then
        begin
          drv:=(sel.SubItems.Objects[0] as DriveObj);
          if drv.status=s_isprocessing then
          begin
            messagebox(handle,pchar('Предыдущее сканирование еще выполняется'),pchar('Ошибка'),mb_iconwarning);
            continue;
          end;
          StartScan(drv,true);
          sel.SubItems.Strings[2]:=(sel.SubItems.Objects[0] as DriveObj).statusAString;
        end;
      end;
    end;

    Из одной утилитки.
    ListView настроен на освобождение объектов при удалении айтема, слушает событие об удалении/добавлении устройств.

    fajes_rown, 06 Марта 2016

    Комментарии (53)
  8. Pascal / Говнокод #19569

    +1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    CASE CMD[1] OF
    //...
    3005,3031,3032:
      begin
      if (varastype(cmd[2],varinteger)=1) THEN  exit;
      if (varastype(cmd[2],varinteger)=5)  THEN   result:=write_elem_spr_3031_3032(cmd);
      end;
    //...
    end;
    
    //...
    
    function TRDM_admin.write_elem_spr_3031_3032(cmd: OleVariant): OleVariant;
    begin
      if (varastype(cmd[1],varinteger)=3031) then
      begin
        if write_CS.fieldbyname('OLD_ID').AsVariant<>null then 
        s:=inttostr(write_CS.fieldbyname('OLD_ID').AsInteger) else 
        s:='null';
      end;
      if (varastype(cmd[1],varinteger)=3032) then
      begin
        if write_CS.fieldbyname('TEMPLATE_ROLE_ID').AsVariant<>null then
                      s:=inttostr(write_CS.fieldbyname('TEMPLATE_ROLE_ID').AsInteger) else
                      s:='null';
              if write_CS.fieldbyname('TYPE_DOLGN').AsVariant<>null then
                      s1:=inttostr(write_CS.fieldbyname('TYPE_DOLGN').AsInteger) else
                      s1:='null';
      end;
      if id_element>0 then // элемент существует - готовимся к записи
      begin
        if (varastype(cmd[1],varinteger)=3005) then
        begin
          write_Query.SQL.Add({запрос});
        end;
        if (varastype(cmd[1],varinteger)=3031) then
        begin
          write_Query.SQL.Add({запрос});
        end;
        if (varastype(cmd[1],varinteger)=3032) then
        begin
          write_Query.SQL.Add({запрос});
        end;
        //несколько строк малозначащего кода
      end else 
          begin
          if (varastype(cmd[1],varinteger)=3005) then
                  read_spr_Query.SelectSQL.Add('select gen_id(GEN_TAB_LPU_ID,1) from rdb$database');
          if (varastype(cmd[1],varinteger)=3031) then
                  read_spr_Query.SelectSQL.Add('select gen_id(GEN_TAB_STRUCT_ID,1) from rdb$database');
          if (varastype(cmd[1],varinteger)=3032) then
                  read_spr_Query.SelectSQL.Add('select gen_id(GEN_SPR_DOLGN_ID,1) from rdb$database');
          //Ещё несколько малозначащих строк
          if (varastype(cmd[1],varinteger)=3005) then
              write_Query.SQL.Add({запрос});
              if (varastype(cmd[1],varinteger)=3031) then
                  begin
                  write_Query.SQL.Add({запрос});
                  struct_lpu_id:=write_CS.fieldbyname('lpid').AsInteger;
                  end;
               if (varastype(cmd[1],varinteger)=3032) then
                  begin
                  write_Query.SQL.Add({запрос});
                  end;
          //Ещё несколько малозначащих строк
          end;
          if (varastype(cmd[1],varinteger)=3031) then
          begin
          //Ещё много строк
          end;
          write_IBT.Commit;
    end;

    Очевидно, объединяя сущности 3005, 3031 и 3032 в одном методе, автор хотел показать, что они взаимосвязаны.

    tucvbif, 03 Марта 2016

    Комментарии (3)
  9. Pascal / Говнокод #19560

    −1

    1. 1
    2. 2
    3. 3
    4. 4
    if i>c then c:=i;
    cc:=i;
    for i:=0 to 10 do while Length(strs[i])<col_nam_width+col_norm_width+col_rez_width+col_nam_width+col_norm_width do strs[i]:=strs[i]+' ';
    if cc>c then c:=cc;

    а вдруг?

    tucvbif, 02 Марта 2016

    Комментарии (2)
  10. Pascal / Говнокод #19431

    −2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    {$IF (current_arm_id=6) }
    if (CS_data.FieldByName('TYPE_DVIG').AsInteger=38) then
     begin
     MessageDlg('Выберите амбулаторное посещение рядом'+#10+#13+'(c той же датой - то есть первое посещение по этой карте)',mtConfirmation,[mbok],0);
     exit;
     end;
    
    IF (CS_data.FieldByName('TYPE_DVIG').AsInteger=31) or (CS_data.FieldByName('TYPE_DVIG').AsInteger=0) or
       (CS_data.FieldByName('TYPE_DVIG').AsInteger=39)
     then
      begin
      MainForm.createMDIwindow('', 'Thist_form',CS_data.FieldByName('TYPE_KART').AsInteger,
            CS_data.FieldByName('ID_KART').AsInteger,
            0, dm1.current_timestamp,NULL);
      end else
      begin
        with(  MainForm.createMDIwindow('Движение','TDvig_form',4,
                    CS_data.FieldByName('ID_DVIG').AsInteger,
                    CS_data.FieldByName('id_kart').AsInteger,dm1.current_timestamp,NULL) as TDvig_form) do
                   begin
                     {
                   tip_:=4;
        id_doc_mk:=CS_data.FieldByName('id_kart').AsInteger;
        id_doc:=CS_data.FieldByName('ID_DVIG').AsInteger;
        _init(0);      }
                   end;
      end;
    {$IFEND}
    
    
    {$IF (current_arm_id=4) }
    if (CS_data.FieldByName('TYPE_DVIG').AsInteger=38) then
     begin
     MessageDlg('Выберите амбулаторное посещение рядом'+#10+#13+'(c той же датой - то есть первое посещение по этой карте)',mtConfirmation,[mbok],0);
     exit;
     end;
    
    IF (CS_data.FieldByName('TYPE_DVIG').AsInteger=31) or
       (CS_data.FieldByName('TYPE_DVIG').AsInteger=39)
     then
      begin
      if DM1.Get_Sanction(CS_data.FieldByName('TYPE_KART').AsInteger,
                          CS_data.FieldByName('ID_KART').AsInteger,current_user_id,[3]) then
    
     MainForm.createMDIwindow('','Treg_form',CS_data.FieldByName('TYPE_KART').AsInteger,
            CS_data.FieldByName('ID_KART').AsInteger,
    //        CS_data.FieldByName('pac_id').AsInteger,
            CS_data.FieldByName('ID_DVIG').AsInteger,
            dm1.current_timestamp,NULL)
    
                else MessageDlg('Вы не имеете право выполнять это действие!',mtInformation,[mbok],0);
      end else
      begin
            MainForm.createMDIwindow('Движение','TDvig_form',4,
                    CS_data.FieldByName('ID_DVIG').AsInteger,
                    CS_data.FieldByName('id_kart').AsInteger,dm1.current_timestamp,null);
    
      end;
    {$IFEND}

    Переопределение метода через current_arm_id

    tucvbif, 11 Февраля 2016

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