Delphi: subroutines (問題在哪里？？)

frankyhui

<div class="blockcode"><span class="headactions" onclick="copycode($('code0'));">複製內容到剪貼板</span><h5>代碼:</h5><code id="code0">unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  procedure FormCreate(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure SayHello(const sWhat:String);
begin
ShowMessage('Hello ' + sWhat);

end;

function YearsOld(const BirthYear:Integer) : Integer;
var
Year, Month, Day : word;

begin
DecodeDate(Date, Year, Month, Day);
Result := Year - BirthYear;

end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SayHello('Delphi User');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SayHello('Zarko Gajic');
ShowMessage('You are ' + IntToStr(YearsOld(1973)) + 'years old!');

end;

end.</code>

mydear888

這個貼好像之前沒見過  

maverickhon

呵呵 那就好好玩吧~~~~  

tomato_alex

估計你是沒見識過~` 呵呵