dll dosyası oluşturmada hata..

[Biltes]

S.A. Arkadaşlar;

Tek Dll dosyasında birden fazla komut hazırlamak istiyorum. Ama hata veriyor. Aşağıda dll dosyasında hazırlamak istediğim kod bloğu hemen altında da verdiği hata var acaba bu hatayı neden verir ve nasıl düzeltebilirim. Bu konuda yardımcı olabilirseniz çok memnun olurum. Ayrıca parasal işlem için nasıl bir function tanımlamam gerekli acaba...

Kod: Tümünü seç

library Project1;

uses
  SysUtils,
  Classes;

{$R *.RES}
  function carp(a,b:integer):integer;export;
   begin
     carp:=a*b;
   end;
   exports carp;
begin
  function topla(x,y:integer):integer;export;
    begin
      topla := x+y;
    end;
    exports topla;
begin
end.

Bu dosyayı derlediğim zaman verdiği Hata ise

Kod: Tümünü seç

[Error] Project1.dpr(24): Statement expected but 'FUNCTION' found
[Error] Project1.dpr(30): Identifier redeclared: 'Finalization'

Olay bundan ibaret arkadaşlar. Şimdiden çok tşk ediyorum.

Kolay gelsin...

[lazio]

Kod: Tümünü seç

library Project1;

uses
  SysUtils, Classes;

{$R *.RES}

  function carp(a,b:integer):integer;
   begin
     carp:=a*b;
   end;

  function topla(x,y:integer):integer;
  begin
      topla := x+y;
  end;

   exports carp, topla; 

begin
end. 

birde böyle dene..

[Biltes]

Ok Hocam dediğiniz gibi oldu çok tşk ediyorum. Peki parasal bir olayın function'u nasıl olmalı yani burada alan integer; 13,12 YTL + 10,00 YTL gibi olan iki parasal değeri nasıl bir fonksiyon tanımlayıp işlem yaptırabiliriz acaba.

İlginiz için tşk ederim...
Saygılar...

[lazio]

Parametreleri Float, Double vs olan function lar yazabilirsin.
Yada fonksiyonları overload edebilirsin..

Kod: Tümünü seç

function topla(x, y : integer) : integer; overload;
...
function topla(x : integer; y : Doluble) : Double; overload;
...
function topla(x : Doluble; y : Integer) : Double; overload;
....
function topla(x : Doluble; y : Doluble) : Double; overload;
....

gibi..

[Biltes]

Çok tşk ediyorum hocam dediğiniz gibi hallettim. Allah razı olsun...