Говнокод

cbZoom.Items.AddObject('125%', TObject(125));
cbZoom.Items.AddObject('120%', TObject(120));
cbZoom.Items.AddObject('115%', TObject(115));
cbZoom.Items.AddObject('110%', TObject(110));
cbZoom.Items.AddObject('105%', TObject(105));
cbZoom.Items.AddObject('100%', TObject(100));
cbZoom.Items.AddObject('95%', TObject(95));
cbZoom.Items.AddObject('90%', TObject(90));
cbZoom.Items.AddObject('85%', TObject(85));
cbZoom.Items.AddObject('80%', TObject(80));
cbZoom.Items.AddObject('75%', TObject(75));
cbZoom.Items.AddObject('70%', TObject(70));
cbZoom.Items.AddObject('65%', TObject(65));
cbZoom.Items.AddObject('60%', TObject(60));
cbZoom.Items.AddObject('55%', TObject(55));
cbZoom.Items.AddObject('50%', TObject(50));
cbZoom.Items.AddObject('45%', TObject(45));
cbZoom.Items.AddObject('40%', TObject(40));
cbZoom.Items.AddObject('35%', TObject(35));
cbZoom.Items.AddObject('30%', TObject(30));
cbZoom.Items.AddObject('25%', TObject(25));
cbZoom.Items.AddObject('20%', TObject(20));
cbZoom.Items.AddObject('15%', TObject(15));
cbZoom.Items.AddObject('10%', TObject(10));
cbZoom.ItemIndex := 5; //100%

вот кто-то так решил набить комбобокс...

Запостил:

hexman, 04.04.2012 (Updated 25.03.2018)

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

vistefan 14 лет ago # 0

[sarcasm]Стерва, я до сих пор так заполняю...[/sarcasm]
Ответить
Lure Of Chaos 14 лет ago # 0

TObject нужен?
Ответить
- hexman 14 лет ago # 0 ⇈
  Нужен, так как комбобокс помимо строк содержит список объектов. Чтобы получить не текстовое значение списка, можно TObject привести например к Integer. Автор явно не хотел утруждать себя элементарной математикой 🙂
  
  Так реализовано получение значения из комбобокса:
```
Result := Integer(cbZoom.Items.Objects[cbZoom.ItemIndex]);
```
  Ответить
  - TarasB 14 лет ago # 0 ⇈
    
    А он в курсе, что приводит указатель к числу?
    Ответить
    - hexman 14 лет ago # 0 ⇈
      
      Не знаю, но думаю он понимал, что использует указатель для хранения числа, а не адреса.
      Ответить
      - Makar4egg 14 лет ago # 0 ⇈
        
        ...Если явно преобразовывал тип, то точно понимал.
        Но код и правда дебильный.
        Реально проще написать простенький цикл в 2 строки.
        Ответить
guest 7 лет ago # 0

л$F:O.V"A"S:I"H(B!V?B!K$Z?A(VH:K:UG.W(U$I F$O.AS)W!KI)O$U?V!B.T:T"W:D!B(P?KA!G!T.M!W$J NG(E!N"T(J)H)R)P$O A:A)R?Q"N!O:E$Q.R(S M"L!R"X?IU?O?X$A.T?SW!YU"C"M.N"OQ?T$N(I E:G,P Y?G,M:Z"H(C"G(A$J.G.U)XN"K,BO,A,Q:C:X$V"C?Y)D!W?A"WK(J)R$N,M"Y:Y)U:V:C:D:S$Y:Y)F,H"G,A)PJ F.U"J)K U$C)U?L,Z$Z?K?H$D:Y"T,G"W)M!P,ZI$M.W.C$D D"R$R A!X,Y!H A)B D,J"M$J!Y:T(Y?R(YR,M!Y:A(U$I Z$W)J.A!A,L$C(P(J(F$N$B(Q.XU K"Z:A B T"BQG,Y?M$K,H,O!T"U K Q(RW(T!Z.Q"N)W(E?RE!R(S!N,J,Q!L$G"T.R W E.E.V D(G)I QL"I:S:P)D N)H V!H$L(BG:UC$R"N)G)F"O V)R J?Z?S!W?W!B)PV?E:A?N?H:F(J)O,R!N U$L:P Z"B F,TB,C!T)FC.H"E?J"J"B(T!W?CE.A,H,D,S?A MW.U.N)H Z:M:S B"Y(W!HO.R:D.P(N,B"A?H X$T)T$G!H,S)E)Y(I:U?B:H)C?E(O,OL CC.U:D.IX X.A:P.F"P(U)E,D.N"N"V.D Q!S?F?C(U"UG,Q?U"K$I"N:A(O!M!C.F,W)N N?S)Y:C"R$D(M T.J I:Q.V,C)X(G:L?L.Z.M:L?F:MH"V)F?M)N$S?Y"X!J"AP)I(T:U?W?D)L"HS,J"V(N:Q"F(MU?V.L)Y$P$K"C!O)D:E$E)T R(M)U$M)I,A"Q:U.K,H?L.Y(P P$V(K,P$I"A?J:B"B?E(DM T)W.J)F,D"S.E)TK$G K(D.J(D J,J:Q!D?Z(L"B:P O,G?B.U$B(M,A$N V?Q.A"X:O?Y.Q!A,C"F$S$D.OO,W"K)W(JP!C.S,I)P,D.P.O.L?U T Q(P"B A:N CW:B(X!TQ?R?S"JK,N:U O L.O(A.C,Q)U$W?J(J)X WMEH(J(H(NR!R!R:E?H$E:Y:I"L C!Z!U!G H)Q,S(A)P,P(D(U(Q)S!J H)BPНGEDCGIQIUVZRGVMYJJQTCVLDIUOQPPSJWANBMMKEPKADVHIWIVULBNICZLSBMJJOMPHSGZKXANGYGTYJZVEFEKKEYRMFTMTDBJVDSFDMNYRQGFKFJUIUNBRLSKIKSSGUONOCCRKMCVUGWAJYKODUGHAKASHTBIWYLUEWIDBLTCFMYHJCOGJJAUEEWBCBAJDTCZWBGRYBBBXDIVEKFTRZ
Ответить