随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//Delphi 支持过程中的方法
procedure TForm1.Button1Click(Sender: TObject);
  procedure alert(s: string);
  begin
    ShowMessage(s);
  end;
begin
  alert('万一'); {万一}
end;

posted on 2008-01-14 21:42  万一  阅读(...)  评论(...编辑  收藏