在DELPHI中怎样定义函数？初学者

Question

我是DELPHI的一个初学者，
今天在制作一个简单媒体播放器时
procedure DoMediaoen;
然后它提示函数没有定义，我想知道的的是怎么定义它？
请大虾帮忙，小妹感激不尽！！！

Answer 1

参考这个：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { 私有 }
    procedure DoMediaoen;
  public
    { 公有 }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DoMediaoen;
begin
  //函数实体
end;end.
结贴给分谢谢~~~~~~~~~~ ^v^

Answer 2

可以像一楼一样，把他声明成窗体类的过程，也可以写在implementation后面，成为一个单独过程，还可以写到另外一个过程的begin前面，供这个过程调用。

Answer 3

procedure 定义的是一个函数，他是没有返回值的，当你要定义它的时候，要根据它的作用域来考虑定义方式。作用域说明谁有操作函数的权限，正常情况下，在本单元使用而其它单元不使用时在单元开始部分的type中的private中声明函数，即
type
  private
    procedure DoMediaoen;
如果其它单元可用，则
type
  public
    procedure DoMediaoen;
或
type
  published
    procedure DoMediaoen;
然后再单元中定义函数体

Answer 4

首先谢谢各位了
TO LYWHO:procedure定义的是一个过程，不是函数
TO XIAOXIAOBAI:我认为应该把它放在public部分。
还有函数实体究竟写些什么，是不是根据需要写代码？

Answer 5

晕，搞错了，不过记住procedure没有返回值就是了。函数实体吗，该写什么写什么。如
procedure TForm1.DoMediaoen;
var
//定义变量,如 
 namestr:string;
 icount:integer;
...
begin
  //函数实体，操作多媒体的动作，可以是动作，也可以调用其它方法。end;

Answer 6

可以不用在private public  中定义的，我没有这样做过，定义函数在前面就行了吧

Answer 7

同意  xiaoxiaobai(小白.net) 的意见。UP.

Answer 8

最好这样：声明部分
根据你的实际需要选择放在private还是public下，只是学习，可以先不考虑，先随便在一个下面写上就可以了。实现部分
别忘了加上你定义的form类就行了，就是这个TForm1.

Answer 9

或者这个：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
  private
    { 私有 }
  public
    { 公有 }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure DoMediaoen;
begin
  //过程
end;function DoMediaoen:boolean;
begin
  //函数（有返回值）
  result :=true;
end;end.
结贴给分谢谢~~~~~~~~~~ ^v^

Answer 10

type
  TForm1 = class(TForm)
  private
    { 私有 }<--------------------这里声明私有函数和过程
   //比如
    Funtion MaxValue(Value:Integer):Integer;<-----函数的返回直为整数型，不鼠标放上来按Ctrl+Shift+C就可以了，你就可以写你的函数了
             
    procedure DoMediaoen;
  public
    { 公有 }
  end;