StartprogrammingusingObjectPascal:Procedures

프로시저

이전 장에서 Writeln, Readln, Reset 등과 같은 프로시저를 이미 사용했지만, 이번에는 우리 프로그램에서 사용할 프로시저를 작성하려고 합니다.

다음 예제에서는 SayHello와 SayGoodbye 두 개의 프로시저를 작성했습니다.

Program Structured;

{$mode objfpc}{$H+}

uses
    {$IFDEF UNIX}{$IFDEF UseCThreads}
    cthreads,
    {$ENDIF}{$ENDIF}
    Classes
    { you can add units after this };


procedure SayHello;
begin
    Writeln('Hello there');
end;

procedure SayGoodbye;
begin
    Writeln('Good bye');
end;

begin // Here main application starts
    Writeln('This is the main application started');
    SayHello;
    Writeln('This is structured application');
    SayGoodbye;
    Write('Press enter key to close');
    Readln;
end.

작은 프로그램과 같은 begin .. end를 지닌 프로시저와 메인 프로그램 코드에서 이것을 호출하는 것을 보았습니다.