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

    • ava guest 25.06.2009 05:46 # +1

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

    • ava labutinpa 14.08.2009 01:39 # 0

      о, Метод Научного Тыка наяву :)
      Ответить

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