Unit Function

[ozsal]

Merhaba arkadaşlar kolay gelsin.
program yaparken kullandığım bir sürü function var
mesela realtostr
strtoreal vs.

ben bunların hepsini her unıtte yenıden yazıyorum.
bunların hepsini bi unitte yazıp
sonra
diğer unitlerden çağrı yaparak kullanmanın yolu var mı

teşekkürederim.
kolay gelsin
yi çalışmalar

[fahrettin]

Tabi ki....
Bu fonksiyonları bir unit icine toplayın. Sonra da buradan bir fonksiyona ihtiyac duydugunuz her unit te uses kısmına bu unit in adini yazın. Boylece bu unitteki fonksiyonlara ulasabilirsiniz....

[fduman]

Biraz açarsak:

Kod: Tümünü seç

Unit Araclar;

interface

function StrToReal(ASource: string): Real;

implementation

function StrToReal(ASource: string): Real;
begin
   Result:= StrToFloat(ASource);
end;

end.

bunu Araclar.PAS olarak kaydedersek ve bu dosyayı kullanacağımız proje altına kopyalayıp, projedeki unitte:

Kod: Tümünü seç

Unit Unit1;

interface

uses Araclar;

....

olarak tanımlarsak Araclar unit indeki StrToReal function unu kullanabiliriz.

[heskin35]

Özellikle bu yöntem ile kod kalabalığından büyük nebzede kurtulmuş oluruz. Ayrıca bu çeşit fonksyon ve procedure leri dll dosyası ile de kullanabiliyoruz yanlış hatırlamıyorsam.

[ozsal]

teşekkür ederim arkadaşlar.bu olay çok iyi oldu. şimdi mesala fonksiyonlarım.pas adında bi unitim var. bir proje de kullanıyorum. yeni bir proje de de kulanmak ıstedıgım zaman poject -- add to prjocet yolunu izlersem otomatik olarak yeni projeme eklenır mı?

[fduman]

Aynen öyle. Eklenir. Ancak tabii kullanacağın unitte "uses fonksiyonlarım" demen lazım yine de.