Functions

function MyFunction(X1, X2 : Integer): Integer;

begin
  Result := X1 + X2;
end;

En funktion i delphi returner ting. Det behøver den jo ikke i PHP .
function hej(D: TDateTime): TDateTime;
Som du kan se er der deffineret en type på det som funktionen returnerer. Det der er i parantesen er input parametre. Skal den ikke returnere noget skal du lave en procedure.
f.eks.
procedure Luk1Click(Sender: TObject);

A_C

Når du så skal kalde den


  label1.caption := IntToStr(MyFunction(2, 2));

eller

  y := MyFunction(2, 2);

den ved ikke hvad jeg mener med IntToStr(MyFunction(2, 2));

den kan ikke genkende MyFunction

Nej du skal introducere den oppe under f.eks public, og hvis din form heder f.eks form1

får du

function Form1.MyFunction(X1, X2 : Integer): Integer;

begin
  Result := X1 + X2;
end;

public
    function MyFunction(X1, X2 : Integer): Integer;
  begin
  Result := X1 + X2;
end;
  end;


sådan ?? det virker heller ikke den venter på END men får begin

Nej sådan her:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function MyFunction(X1, X2 : Integer): Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.MyFunction(X1, X2 : Integer): Integer;
begin
  Result := X1 + X2;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := IntToStr(MyFunction(2,2))
end;

end.

Man behøver nu ikke at definere den først, bare den står før den funktion som kalder den. Men det er god programmeringsskik at gøre det.

ok tak tak