Function no Delphi
27/02/2003
0
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
Posts
27/02/2003
Aroldo Zanela
Está correto. A diferença de uma função para uma procedure é que a função sempre retorna um valor.
27/02/2003
Anonymous
27/02/2003
Aroldo Zanela
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.
27/02/2003
Fred
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));
Clique aqui para fazer login e interagir na Comunidade :)