Школоло / Говнокод #959 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 guest, (Updated )

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

  • ava guest # Ссылка на оригинал 0

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

  • ava guest # Ссылка на оригинал 0

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

  • ava guest # Ссылка на оригинал 0

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓