LINUX.ORG.RU

История изменений

Исправление Nervous, (текущая версия) :

Почему было не встроить что-то паскалеподобное - так и не понял.

Unit explanation;

{$mode objfpc}{$H+}

Interface

Uses 
  Classes, SysUtils, LResources, Controls, Graphics, Math, Types;
(*{$ifdef WIN32}
  Classes, SysUtils, LResources, Controls, Graphics, Math, Types;
{$endif}
{$ifdef LINUX}
  Classes, SysUtils, LResources, Controls, Graphics, Math, Types;
{$endif}*)

 
Var Message = 'No way I write all this shit in my scripts, every one of them';

Procedure NoWay(message: string);

Implementation

Procedure NoWay(message: string);
begin
    WriteLn(Message);
end 

{ ...more shit like this }

End.

Исходная версия Nervous, :

Почему было не встроить что-то паскалеподобное - так и не понял.

Unit explanation;

{$mode objfpc}{$H+}

Interface

Classes, SysUtils, LResources, Controls, Graphics, Math, Types;
(*{$ifdef WIN32}
  Classes, SysUtils, LResources, Controls, Graphics, Math, Types;
{$endif}
{$ifdef LINUX}
  Classes, SysUtils, LResources, Controls, Graphics, Math, Types;
{$endif}*)

 
Var Message = 'No way I write all this shit in my scripts, every one of them';

Procedure NoWay(message: string);

Implementation

Procedure NoWay(message: string);
begin
    WriteLn(Message);
end 

{ ...more shit like this }

End.