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

    • ava guest 27.04.2009 16:46 # 0

      Сан Саныч:
      И в чём прикол? Я часто пишу что-то подобное. Обычно такой код используется для начала, проверки работоспособности, прежде чем переходить к более серьезным функциям...
      Ответить

    • ava guest 28.04.2009 18:54 # 0

      Alice:
      Это не я писал это мой знакомый он даже незнает что я его код сюда выложил.Кстати кто нибудь знает что такое stdcall?
      Ответить

    • ava guest 28.04.2009 19:00 # 0

      Злобный Аноним:
      Уважаемый дельфист 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'ка и вызывающий код.
      Ответить

    • ava guest 28.04.2009 19:19 # 0

      Alice:
      stdcall применяется при вызове функций Win32 API. Аргументы передаются через стек, справа налево. Очистку стека производит вызываемая подпрограмма.
      Ответить

    • ava guest 28.04.2009 20:03 # 0

      Alice:
      я не делфист я сист и линуксоид
      Ответить

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