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

    +97

    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
    {
----------------------8<----------------------
Цей юніт призначений лише для використання
разом із пакетом програм ███████
будь-якої версії.
Він не може розповсюджуватися окремо, так
як являється частиною пакету, який може
розповсюджуватися на платній основі.

(С) Copyright ███████████████
----------------------8<----------------------
}

(* ~15 строк поскипано за унылостью *)

procedure TranslateForm(var form:TObject; const LNGFile:String);
var
ini:TIniW;
c1,c2,p1,p2,i:Integer;
Sct,par,val:string;
keys:TStringList;
cobg:TObject;
comp:TComponent;
begin
  initini(ini,LNGFile);
  keys:=TStringList.Create;
  sct:=Trim((form as TForm).Name);
    c1:=ini.KeyCount(Sct);
    ini.ReadSection(Sct,keys);
    cobg:=(form as TObject);
    for I := 0 to c1-1 do
    begin
      par:=keys[I];
      p1:=Pos('=',par);
      par:=Trim(Copy(par,0,p1-1));
      val:=ini.ReadString(Sct,par,'read error');
      typinfo.SetStrProp(cobg,par,val);
    end;
    c2:=(form as TForm).ComponentCount;
    for p2 := 0 to c2 - 1 do
      begin
      comp:=(form as TForm).Components[p2];
        cobg:=(comp as TObject);
        sct:=typinfo.GetStrProp(cobg,'Name');

          c1:=ini.KeyCount(Sct);
          if c1>0 then
          ini.ReadSection(Sct,keys);
            for I := 0 to c1-1 do
            begin
              par:=keys[I];
              p1:=Pos('=',par);
              par:=Trim(Copy(par,0,p1-1));
              val:=ini.ReadString(Sct,par,'read error');
              try
              typinfo.SetStrProp(cobg,par,val);
              except

              end;
            end;

      end;
end;


end.

    Сверху - жадность, снизу - отсутствие скиллов.

    Запостил: bugmenot, 16 Июля 2010

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

    • ava Kornew 16.07.2010 11:06 # 0

      фунаф, уже и забыл как этот паскаль уныло выглядит =(
      Ответить

    • ava Dummy00001 16.07.2010 15:27 # −1

      > отсутствие скиллов

      а вот не надо. Visual Basic Delphi рулит. </сарказм>
      Ответить

      • ava Lure Of Chaos 17.07.2010 00:36 # +3

        а где у вас открывающий тег сарказм? тож гкодить изволите по традиции? ))
        Ответить

    • ava bugmenot 16.07.2010 19:04 # +1

      Нет, именно в стиле школьного курса турбоп аскаля написано
      Ответить

    Добавить комментарий