Fonksiyon çağırma

[frmman]

Aşağıdaki örnek kullanım umarım size fikir verir. Gerekli açıklamalar kod içerisinde comment olarak yapıldı.

Fonksiyonun bulunduğu unit (burada unit1)

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm1 = class(TForm)
 private
   { Private declarations }
 public
   { Public declarations }
   function Toplama(a,b:integer):integer;    // başka bir formdan çağırmak için public kısmına fonksiyon prototipi tanımlanır
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}


function TForm1.Toplama(a, b: integer): integer;  // fonksiyonun kendisi
begin
 result := a + b;
end;

end.

Fonksiyonun çağrıldığı diğer form (unit2)

unit Unit2;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
 TForm2 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form2: TForm2;

implementation
uses unit1;   // fonksiyonun bulunduğu unit uses kısmına ekleniyor
{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var sonuc:integer;
begin
 sonuc := form1.Toplama(2,4);    // Form1 deki foksiyonu çağırma
 //....
end;

end.