delphi function 写在哪里可以调用

Question

function StrPas(const Str: PChar): string;
begin
Result := Str;
end;
//比如这个写在哪里,就可以在程序里调用它

Answer 1

例如
var
  Form1: TForm1;implementation{$R *.dfm}type
  PThreadMsg = ^TThreadMsg;
  TThreadMsg = record
    Handle: HWND;
    Msg: String;
  end;function testfunc(Param: Pointer):integer;
begin
 ...
end;

Answer 2

delphi函数按作用域有全局（不属于任何类）、类内（即类的方法，严格讲不能称作函数了）、函数内（函数内嵌的函数）

Answer 3

如果在本单元里用,写到implementation下面,但要保持本函数在本单元所有其它函数的前面,如下
implementation
{$R *.dfm}
  function StrPas(const Str: PChar): string;
  begin
    Result := Str;
  end;
function Form1.Test: stirng;
var
  str1: string;
begin
  str1:= StrPas('Hello');
end;如果是函数的子函数,则这可以这样implementation
{$R *.dfm}
function Form1.Test: stirng;
  function StrPas(const Str: PChar): string;
  begin
    Result := Str;
  end;
var
  str1: string;
begin
  str1:= StrPas('Hello');
end;

Answer 4

一般内部调用就下在类里面，如果是写dll外调用要写在类外，并exports出来