dll'den çağırdığım fonksiyonlarda access violation hatası ne

[burakb44]

arkadaşlar merhaba yazdığım program sürekli kullandığım fonksiyonlar vardı bu fonksiyonları sürekli kullandığım için dll yapmak istedim kodlar formlarda hatasız çalışırken dll yapıp derlediğim dll'den kullanmaya başladığımda access violation hatası veriyor kodlar aşağıda acaba kodlarda mı bi hata var yoksa dll yazma tekniğindemi bi hata var
İyi Çalışmalar

Kod: Tümünü seç

//*********stringleri rakama çevirme***********//
function nokta(x:string):string;
var
i:integer;
yeni:string;
begin
  yeni := '';
  if x <> '' then
    begin
      for i:= 0 to length(x) do
        if x[i] <> '.' then yeni := yeni + x[i];
        yeni := trim(yeni);
    end
  else
    yeni := '0';

  result := yeni;
end;
Exports nokta;
//*********stringleri rakama çevirme***********//


//*********stringleri rakama çevirme***********//
function rakamyap(x:string):real;
var
sayi:real;
begin
x:=nokta(x);
sayi:=0;
sayi:= strtofloat(x);
result:= sayi;
end;
Exports rakamyap;
//*********stringleri rakama çevirme***********//


//*********rakamları stringe çevirme***********//
function stryap(x:real):PChar;
VAR
ARA_DEGER:STRING;
begin
  ARA_DEGER:= '';
  ARA_DEGER :=formatfloat('#,0.00',x);
  result:=PChar(ARA_DEGER);
end;
Exports stryap;
//*********rakamları stringe çevirme***********//


//*********rakamları düzenleme ***********//
function duzenle(x:real):real;
var
s:string;
begin
s:= formatfloat('#,0.00',x);
result:=rakamyap(s);
end;
Exports duzenle;
//*********rakamları düzenleme ***********//

[lazio]

projene ShareMem unit ini ekliyormusun?