Source Examples

From Freepascal Amiga wiki
Revision as of 12:23, 25 August 2013 by Molly (talk | contribs) (Added hello world example program (as in wiki-editor trying to get the hang on things))
Jump to navigation Jump to search

Source Examples

On this page Source example are going to collect (or links to it) which working on AROS freepascal



Basic hello world program:

 Program HelloWorld;
 Begin
   Writeln('Hello World');
 End.


One example, Put a message to a named port:

function SafePutToPort(Msg: PMessage; Portname: string): Integer;
var
  Port: PMsgPort;
  PName: PChar;
begin
  Result := -1;
  PName := PChar(Portname + #0);
  Forbid();
  Port := FindPort(PName);
  if Assigned(Port) then
  begin
    PutMsg(Port, Msg);
    Result := 0;
  end;
  Permit();
end;