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

    +137

    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
    DBEdit.DataField:='';
      b:=0;
      Bookmark:=ADOQuery.GetBookmark;
      try
      if FLDFND.Text<>'' then
       begin
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsFloat;
        b:=1;
        except
        end;
       end;
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsString;
        b:=2;
        except
        end;
       end;
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsInteger;
        b:=3;
        except
        end;
       end;
       if b=0 then
       begin
        try
        v:=ADOQuery.Fields[DBGrid.SelectedIndex].AsDateTime;
        b:=4;
        except
        end;
       end;

    Определял тип поля. Писал в пъяном бреду, ночью...

    Запостил: guest, 14 Июня 2009

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

    • Пфтудщт:
      ну норм) ctrl+c, ctrl+v)) нас этому в институте учат) Копировать, вставить,копировать, вставить - отчет готов)
      Ответить
    • о, Метод Научного Тыка наяву :)
      Ответить

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