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

    +151

    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
    library ExDouble;
     
    uses
      SysUtils,
      Classes;
     
    {$R *.res}
     
    function calc_double(r: real): real; stdcall;
    begin
      result := 2;
    end;
     
    exports
      calc_double index 1;
     
    
    end.
    
    
    
    
    
    
    
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
     
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
    function calc_double(r: real): real; stdcall; external 'ExDouble.dll';
     
    implementation
     
    {$R *.dfm}
     
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    if Edit1.Text<>FloatToStr(calc_double(0))then
    ShowMessage('')
    else begin
    ShowMessage('dsfgsdfg');
    end;
    end;
     
    end.

    Запостил: guest, 27 Апреля 2009

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

    • Сан Саныч:
      И в чём прикол? Я часто пишу что-то подобное. Обычно такой код используется для начала, проверки работоспособности, прежде чем переходить к более серьезным функциям...
      Ответить
    • Alice:
      Это не я писал это мой знакомый он даже незнает что я его код сюда выложил.Кстати кто нибудь знает что такое stdcall?
      Ответить
    • Злобный Аноним:
      Уважаемый дельфист Alice, учите мат.часть: http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D0%B3%D0%BB%D0%B0%D1%88%D0% B5%D0%BD%D0%B8%D0%B5_%D0%B2%D1%8B%D0%B7% D0%BE%D0%B2%D0%B0#stdcall.2Fwinapi
      А где прикол, я тоже не вижу. С виду типичная пробная Dll'ка и вызывающий код.
      Ответить
    • Alice:
      stdcall применяется при вызове функций Win32 API. Аргументы передаются через стек, справа налево. Очистку стека производит вызываемая подпрограмма.
      Ответить
    • Alice:
      я не делфист я сист и линуксоид
      Ответить

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