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

    +109.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    for i := 1 to X do begin
      tblitem.FindKey([tbltranitemno.text]);
      tblitem.GotoKey;
      button3.Click;
      edit3.Text := floattostr(org-i);
      x := 1-1;
    end;

    (c) India

    хочется взять и уеб...

    Запостил: dmtr76, 29 Января 2010

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

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