Function no Delphi

Delphi

27/02/2003

tenho uma function chamada Data , ok

preciso declarar esta functio em algum lugar para que funcione ou não ?

ou simpleste faço a chamada dela , pergunto isso pq qdo crio uma nova procedure tenha que declara-la no inicio do codigo não é ?


Anonymous

Anonymous

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

27/02/2003

tenho uma function chamada Data , ok preciso declarar esta functio em algum lugar para que funcione ou não ? ou simpleste faço a chamada dela , pergunto isso pq qdo crio uma nova procedure tenha que declara-la no inicio do codigo não é ?


Está correto. A diferença de uma função para uma procedure é que a função sempre retorna um valor.


GOSTEI 0
Anonymous

Anonymous

27/02/2003

alguém pode me dar um exemplo de como CRIAR , DECLARAR e UTILIZAR uma FUNCTION ?


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

27/02/2003

alguém pode me dar um exemplo de como CRIAR , DECLARAR e UTILIZAR uma FUNCTION ?


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, Qrctrls, ExtCtrls;

type
  TForm1 = class(TForm)
  function ScanChar(const S: string; var Pos: Integer; Ch: Char): Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.ScanChar(const S: string; var Pos: Integer;
  Ch: Char): Boolean;
begin
  Result := False;
  ScanBlanks(S, Pos);
  if (Pos <= Length(S)) and (S[Pos] = Ch) then begin
    Inc(Pos);
    Result := True;
  end;

end;

end.



GOSTEI 0
Fred

Fred

27/02/2003

Exemplo de function

function maior(n1,n2 : integer) : integer;
begin
if n1 > n2 then
result := n1
else
result := n2
end;

esta é uma simples função para retornar o maior numero para chama-la basta fazer por exemplo o seguinte:

label1.caption := inttostr(maior(1,2));


GOSTEI 0
POSTAR