delphi 自定义函数怎么写啊

Question

希望大家给个例子  越详细越好  谢谢

Answer 1

  function test: boolean;
  begin
    ShowMessage('希望大家给个例子  越详细越好  谢谢');
  end;

Answer 2

  function test: boolean; 
  begin 
    ShowMessage('希望大家给个例子  越详细越好  谢谢'); 
    Result := true;
  end;

Answer 3

  function test: boolean; 
  begin
    Result := false; //进来最好先false 
    ShowMessage('希望大家给个例子  越详细越好  谢谢'); 
    Result := true; 
  end;

Answer 4

function test: boolean; 
  begin 
    Result := false; 
    ShowMessage('Hello World'); 
    Result := true; 
  end; 

Answer 5

找相关的资料。baidu，google 都可以的。或者CSDN上找以前的贴子

Answer 6

 先定义  function test: boolean; 然后在写函数 function Tform1.test: boolean; 
  begin 
    ShowMessage('希望大家给个例子  越详细越好  谢谢'); 
    Result := true; 
  end;

Answer 7

  function test(Text:string): boolean; 
  begin 
    Result:= False;
    if Length(Text)> 0 then
    begin
      ShowMessage(Pchar(Text)); 
      Result:= true; 
    end;
  end; 调用 
Text:='希望大家给个例子  越详细越好  谢谢'; 
test(Text); 

Answer 8

  function Test(Value: Boolean):string;
  const
   A='返回A';
   B='返回B';
  begin
    if Value then Result := A
      else Result := B;
  end;
//例子
  Caption := Test(True)

Answer 9

function a(e:string;f:array[0..255] of byte):boolean